2. 计算机
  3. 在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整，要求：

在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整，要求：

admin2020-04-08  45
问题 在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timerl。并给出了两个事件过程，但并不完整，要求：
  ①设置Timerl的属性，使其在初始状态下不计时；
  ②设置Timerl的属性，使其每隔0．1秒调用Timer事件过程一次：
③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0．1秒向上移动一次，当到达P2的下方时停止移动，如图所示。

   注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤l：按题目要求打开工程文件，设置计时器属性，如图4．14所示。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案(划线部分是需考生填入的内容) priVate Sub C1_Slick() Timetl．Enabled=True′单击＂发射＂按钮．则Timer生效 End Sub PriVate Sub Timerl_Timer() Static a％ a=a+1 If P1．Top＞P2．Top+P2．Height Then’判定P1是否接触到P2 P1．Move P1．Left，P1．Top －5 －a，P1．Width，P1．Height Else Timerl．Enabled=False′当P1接触到P2时Timer事件停止 End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 工程文件中已建立全部控件，只需编写事件过程即可。Timerl控件的Interval属性用来控制计时器事件发生的时间间隔，通过题意可知。该属性设置为100(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时，将计时器控件的Enabled属性设置为True。如果使航天飞机即Pl停止移动，则将计时器控件的Enabled属性设置为False。
转载请注明原文地址:https://www.kaotiyun.com/show/wATp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)