二、简单应用题
第 1 小题
【审题分析】本题通过计时器来控制火箭移动。单击"发射"按钮时启动计时器,在计时器的 Timer 事件过程中,如果火箭尚未抵达云层(即 Pic1.Top > Pic2.Top + Pic2.Height),则通过 Move 方法,使火箭(图片框 Pic1)每次加速上移,否则通过停止计时器来停止火箭上移。
【操作步骤】
步骤 1:打开考生文件中的本题工程文件 vbsj3.vbp,设置计时器的 Enabled 属性值为False,Interval 属性值为 100。
步骤 2:在代码编辑窗口,去掉程序中的注释符"’",将问号"?"改为正确的内容。
参考代码:
Tmr1.Enabled = True
If Pic1.Top > Pic2.Top + Pic2.Height Then
Tmr1.Enabled = False
步骤 3:按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】本题程序设计思路:在"移动"按钮的单击事件过程中,首先判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时,是否超过滚动条 Max 属性值的限制,若是则弹出消息框显示"输入的数值太大";否则接着判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时,是否超过滚动条 Min 属性值的限制,若是则弹出消息框显示"输入的数值太小",否则设置滚动条的 Value 属性值为原有 Value 属性值加上文本框中的输入值。
【操作步骤】
步骤 1:打开考生文件中的本题工程文件 vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符"’",将问号"?"改为正确的内容。
步骤 2:按要求将文件保存至考生文件夹中。