[问答题] 完成下列问题:
在考生文件夹下有一个工程文件sjt3.vbp,含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“ *** 作”,含有3个菜单命令(如图4所示)。Form2上有一个名称为Command1、标题为“返回”的命令按钮(如图5所示)。要求当单击“窗体2”菜单命令时,隐藏Form1,显示Form2。单击“动画”菜单命令时,使小汽车开始移动,一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时,结束程序运行。在程序中的横线处填写正确的内容。
[*]
[*]
注意:考生不得修改窗体文件中已经存在的程序,最后程序按原文件名存盘。
[题目提供的源程序]
Form1的源程序:
Private Sub mnuOper_Click(Index As Integer)
Select Case (1)
Case 1
Form2.Show
Form1.Hide
Case 2
Timer1.Enabled= (2)
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer()
Picture1.Left=Picture1.Left+100
If Picture1.Left+Picture1.Width>= (3) Then
Picture1.Left= (4)
End If
End Sub
Form2的源程序:
Private Sub Command1_Click()
正确答案:[ *** 作步骤] 第1步:打开工程文件sjt3.vbp。 第2步:修改程序。 第3步:调试、运行并保存程序。 [l]Index [2]True [3]Form1.Width [4]-Picture1.Width
参考解析:本题中使用了菜单控件数组,与其他控件数组一样,菜单控件数组事件过程中也采用Index参数来标识菜单,Index=1,则显示第二个窗体,Index=2,则开始移动小汽车;Index=3,则退出程序。小汽车的移动是在计时器控件Timer1的Timer事件中完成的,只要Timer1的Enabled属性值为True,Interval属性值大于0,则会按照Interval属性指定的时间间隔不停地执行Timer事件过程,以达到移动小汽车的目的。小汽车放在图像框中,要小汽车从左向右移动,只需要在图像框原有Left属性值以固定值定时增加即可。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)