我想让四个数字分别1秒加一次，可是这代码写好后四个数字隔一秒不是+1而是+好多。。。。。
4个intervel属性为1000，求助大虾们怎么改下代码




Dim i As Integer, number As Integer
Private Sub Command1_Click()
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Command1.Caption = Format(Int(Rnd * 10000), "0000")
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Timer2.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub
Private Sub Command4_Click()
Timer3.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub

Private Sub Command5_Click()
Timer4.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub



Private Sub Timer1_Timer()
Label1.Caption = i
If i = 9 Then
i = 0
Else
i = i + 1
End If
End Sub

Private Sub Timer2_Timer()
Label2.Caption = i
If i = 9 Then
i = 0
Else
i = i + 1
End If
End Sub
Private Sub Timer3_Timer()
Label3.Caption = i
If i = 9 Then
i = 0
Else
i = i + 1
End If
End Sub
Private Sub Timer4_Timer()
Label4.Caption = i
If i = 9 Then
i = 0
Else
i = i + 1
End If
End Sub

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer''''四个定时器不能只定义一个i变量,需要四个,每个定时器使用一个,再研究下面代码中定时器事件里面代码,其它无需变动
Dim number As Integer
Private Sub Command1_Click()
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
  Command5.Enabled = True
  Timer1.Enabled = True
  Timer2.Enabled = True
  Timer3.Enabled = True
  Timer4.Enabled = True
  Command1.Caption = Format(Int(Rnd * 10000), "0000")
  Command1.Enabled = False
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
  If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
  number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
  If Command1.Caption = number Then
  MsgBox "你真强"
  End If
  Command1.Caption = "开始"
  Command1.Enabled = True
End If
End Sub
Private Sub Command3_Click()
  Timer2.Enabled = False
  If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
    number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
  If Command1.Caption = number Then
    MsgBox "你真强"
  End If
 Command1.Caption = "开始"
 Command1.Enabled = True
End If
End Sub
Private Sub Command4_Click()
Timer3.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub

Private Sub Command5_Click()
Timer4.Enabled = False
If Not (Timer1.Enabled Or Timer2.Enabled Or Timer3.Enabled Or Timer4.Enabled) Then
number = Label1.Caption * 1000 + Label2.Caption * 100 + Label3.Caption * 10 + Label4.Caption
If Command1.Caption = number Then
MsgBox "你真强"
End If
Command1.Caption = "开始"
Command1.Enabled = True
End If
End Sub



Private Sub Timer1_Timer()
Label1.Caption = i
If i = 9 Then
i = 0
Else
i = i + 1
End If
End Sub

Private Sub Timer2_Timer()
Label2.Caption = j
If j = 9 Then
j = 0
Else
j = j + 1
End If
End Sub
Private Sub Timer3_Timer()
Label3.Caption = k
If k = 9 Then
k = 0
Else
k = k + 1
End If
End Sub
Private Sub Timer4_Timer()
Label4.Caption = l
If l = 9 Then
l = 0
Else
l = l + 1
End If
End Sub

其实上面的代码简单加工一下,在窗体的load事件中使每一个标签控件显示的是随机数,就类似于一个抽奖程序了

哈哈，问题解决了，谢谢你！原来每个timer的计数器都要自己定义一个，学习到了！！