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).Text = "姓名1" Do b = Int(Rnd * 4 + 1) Loop While a =