5.5 练习题

1️⃣练习题一

1. 题目：将“熊出没小心”中的第1个、第4个和第5个字符出取组合成新的词语“小心熊”。

2. 提示：

   • 在视窗项目环境中，取出文本中的某个或几个字符可以用文本类.取文本左边()、文本类.取文本右边()、文本类.取文本中间()，取来出的文本应赋值给一个文本型变量。

   • 文本的连接可以用+号。

3. 参考答案（视窗项目环境）：

<火山程序类型="通常"版本=1/>

包火山.程序

类启动类<公开基础类=窗口程序类折叠>
{
    变量主窗口对象<类型=我的主窗口>

    方法启动方法<公开类型=整数>
    {
        主窗口对象.创建主窗口 ()
        返回 (1)
    }
}

#===

类我的主窗口<基础类=窗口注释="样例主窗口"@视窗.布局="client_size = \"500, 300\""标题="我的主窗口">
{
    变量按钮1<类型=按钮折叠2隐藏值属性="0"@视窗.布局="id = 102\r\npos = \"119, 134, 64, 26\""标题="按钮1">

    方法按钮_被单击<接收事件类型=整数注释="当按钮被单击后发送此事件">
    参数来源对象<类型=按钮注释="提供事件产生的具体来源对象">
    参数标记值<类型=整数注释="用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        如果 (来源对象==按钮1)
        {
            变量对象_文本1<类型=文本型值="熊出没小心">
            变量对象_子文本1<类型=文本型>
            变量对象_子文本2<类型=文本型>
            变量对象_合成文本1<类型=文本型>
            对象_子文本1=文本类.取文本左边 (对象_文本1, 1)
            对象_子文本2=文本类.取文本右边 (对象_文本1, 2)
            对象_合成文本1=对象_子文本2+对象_子文本1
            调试输出 (对象_合成文本1)
        }
        返回 (0)
    }
}