求助!控件数组问题。。
兄弟姐妹们,帮我看看这个程序哪里出错啦!
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End Sub
Private Sub Command3_Click(Index As Integer)
End
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub