第二套 试题二 修改 VB 程序:添加定时器, 时间间隔为 0.1 秒,初始状态为 False 。实现效果:单击 “产生”在标签 1 控件数组中显示 [10 , 99] 随机整数,且在 “产生”按变为“停止”;单击“最值”按,在标签 2 显示结果,如图 2-1 所示;单击 “平均值”,在标签 2 上显示结果并保留 1 位小数,如图 2-2 所示。 打开 “试题二“文件夹中的工程文件“ test2.vbp ”,完成下列操作: 1. ( 6 分)添加相关的控件和属性:添加计时器控制,并设置初始化状态:时间间隔为 0.1 秒、不可用;添加定时器事件,将 2.txt 文件复制到定时器事件,完成相应的( 1 ),( 2 )填空,实施标签 1 控件数组每隔 0.1 秒显示 [10 , 99] 上随 机整数,同时在标签 1 控件数组的背景颜色每隔 0.1 秒变化。 ( 其中时间间隔为 0.1 秒、不可用各 1 分,共 2 分 ) 2. ( 6 分) 单击 “开始”按,定时器工作;“开始”按变成“停止”;单击“停止”按,定时器停止工作,“停止”按变“开始”;完成( 3 ),( 4 )填空; 3. ( 6 分)单击 “最值”,求出一组标签 1 控件数组中显示的随机整数中的最大值与最小值。并在标签 2 上显示结果如图 2-1 所示,完成( 5 ),( 6 )( 7 )填空; 4. ( 6 分)单击 “平均值”,求出一组标签 1 控件数组中显示的随机整数中平均值,完成( 8 ),( 9 )填空。 Dim a%(17) Private Sub Command1_Click() If Timer1.Enabled = False Then Timer1.Enabled = '(3) Command1.Caption = "停止" Else Timer1.Enabled = False '(4) End If End Sub Private Sub Command2_Click() Dim max%, min% Label2.Caption = "" max = a(0) min = ' (5) For i = 1 To 17 If max < a(i) Then ' (6) If min > a(i) Then min = a(i) Next i '(7) End Sub Private Sub Command3_Click() Dim x! Label2.Caption = "" For i = 0 To 17 x = '(8) Next i Label2.Caption = "平均值为" & '(9) End Sub Private Sub Timer1_Timer() Randomize For i = 0 To 17 a(i) = Int(90 * Rnd) + 10 Label1(i). = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd)) '(1) Label1(i).Caption = '(2) Next i End Sub