第八套 试题二 修改 VB程序: 修改 vb程序,使其具有下列功能:窗体加载时,28个标签不可见,且被随机地给予前 景色;单击 “开始”命令按,28个标签逐行显示;单击“暂停”按则停止逐行显示;时钟控件1秒钟响应5次。如图2所示。 图2 打开 “试题二“文件夹中的工程文件“ test2.vbp ”,完成下列操作: 1.(4分)添加时钟,初始值无效,时钟控件1秒钟响应5次 ( 20分)复制“2.txt”中两段代码到适当事件过程中,在程序12345处填空,使程序正确运行,实现功能。 Option Explicit Private Sub Command1_Click() = True '(1) End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 27 Label1(i).Visible = False Label1(i). = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) '(2) Next i End Sub Private Sub Timer1_Timer() Static n As Integer Dim i As Integer For i = 0 To 27 If Then '(3) Label1(i).Visible = True Else Label1(i).Visible = False End If Next i n = '(4) End Sub