二级vb模拟题2010(上).docVIP

1、 Dim k As Integer Private Sub Command1_Click() If command1.caption=”计数” then Command1.caption=”暂停” Timer1.Enabled = True Else Command1.caption=”计数” Timer1.enabled=false End if End Sub Private Sub HScroll1_Scroll() Timer1.Interval = HScroll1.Value Label2.Caption = 时间间隔= Timer1.Interval ms End Sub Private Sub Timer1_Timer() k = k + 1 Label1.Caption = k If k = 50 Then Label1.Caption = 计数已达50 K=0 Call command1_click End if End Sub 2、 Private Sub Option1_Click(Index As Integer) CommonDialog1.ShowColor Select Case Index Case 0 vbbc.BackColor = CommonDialog1.Color Case 1 Label1.ForeColo