[问答题] 完成下列问题:在考生文件夹下有一个工程文件sjt3.vbp,含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“ *** 作”,含有3个菜单命

[问答题] 完成下列问题:在考生文件夹下有一个工程文件sjt3.vbp,含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“ *** 作”,含有3个菜单命,第1张

[问答题] 完成下列问题:在考生文件夹下有一个工程文件sjt3.vbp,含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“ *** 作”,含有3个菜单命

[问答题] 完成下列问题:

在考生文件夹下有一个工程文件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属性值以固定值定时增加即可。

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/zaji/5471455.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-12
下一篇 2022-12-12

发表评论

登录后才能评论

评论列表(0条)

保存