说明: Private Sub Command1_Click() If Command1.Caption = "Start" Then Timer1.Enabled = True Command1.Caption = "Stop" Else Timer1.Enabled = False Command1.Caption = "Start" End If End Sub Private Sub Timer1_Timer() Randomize a = Int(Rnd * 4 + 1) Text1(a).
<baidu_15414037> 上传 | 大小:65kb