修改 VB 程序:添加定时器, 时间间隔为 0.5 秒,初始状态为 False 。实现效果标签上下重复移动,如图 2-1 所示,双击标签“调整方块移动的距离”,出现对话框如图 2-2 所示可以输入要调整移动方块的距离。 图 2-1 图 2-2 打开 “试题二“文件夹中的工程文件“ test2.vbp ”,完成下列操作: 1. ( 10 分)添加相关的控件和属性:添加计时器控制,并设置初始化状态:时间间隔为 0.5 秒、不可用;添加定时器事件,将 2.txt 文件复制到定时器事件,完成相应的( 1 ),( 2 )( 3 )填空,实施标签上下重复移动; ( 其中时间间隔为 0.5 秒、不可用各 1 分,共 2 分 ) 2. ( 6 分) 单击 “开始”按,定时器工作;“开始”按变成“暂停”;单击“暂停”按,定时器停止工作,“暂停”按变“开始”;完成( 4 ),( 5 )填空; 3. ( 4 分)双 击标签 “调整方块移动的距离”, 弹出对话框如图 2-2 所示,添加适当的事件; 4. ( 4 分)单击命令按 “改变窗体背景颜色大小”,要求窗体背景颜色同命令按背景颜色一致;且将窗体移动到左上角( 0 , 0 ),同时窗体的宽度与高度大小分别 5000 , 5000 (要求用 move 方法)完成相应( 6 )( 7 )。 5. ( 1 分)保存工程文件和窗体文件,生成可执行文件 test2.exe 。并保存到 “试题二“文件夹下。 Dim x$, f As Boolean Private Sub Timer1_Timer() If Label1. >= Form1.Height - Label1.Height Then'(1) f = True ElseIf Label1.Top <= 0 Then '(2) End If If f = True Then Label1.Move Label1.Left, '(3) Else Label1.Move Label1.Left, Label1.Top + Val(x) End If Private Sub Command1_Click() If Timer1.Enabled = False Then Command1.Caption = "暂停" Timer1.Enabled = '(4) Else Command1.Caption = ‘ (5) Timer1.Enabled = False End If End Sub Private Sub Command2_Click() Form1.BackColor = ‘ (6) ‘(7) End Sub Private Sub Form_Load() x = Str(100) f = False End Sub Private Sub Label2_Click() x= '(8) End Sub