VB单击六次Command1以后， Label1增加一个数字，从0001开始的代码

VB单击六次Command1以后， Label1增加一个数字，从0001开始的代码

Dim i As Integer
Dim j As Integer
Private Sub command1_click()
If i < 6 Then
i = i + 1
Else
i = 1
j = j + 1
Label1.Caption = Format(j, "0000")
End If
End Sub

Private Sub Form_Load()
i = 1
j = 1
Label1.Caption = "0001"
End Sub

int s=1; int time=1; public command1_click(....) { if(time=6) {time=1;s=s+1;} } this.label1.text=s.tostring();

Private Sub Command1_Click() Static i As Long i = i + 1 If i >= 6 Then i = 0 Label1.Caption = Val(Label1.Caption) + 1 End If End Sub Private Sub Form_Load() Label1.Caption = "0001" End Sub