Question

我想做一个vb，里面有一个按钮控件，我想让第一次点击的时候出现 第一次点击 第二次的时候出

我想做一个vb，里面有一个按钮控件，我想让第一次点击的时候出现 第一次点击 第二次的时候出现 第二次点击 怎么设置？

Answer 1

Dim A As Integer

Private Sub Command1_Click()
A = A + 1
Select Case A
Case 1: Command1.Caption = "第一次点击"
Case 2: Command1.Caption = "第二次点击"
Case 3: Command1.Caption = "第三次点击"
Case 4: Command1.Caption = "第四次点击"
Case 5: Command1.Caption = "第五次点击"
Case 6: Command1.Caption = "第六次点击"
Case 7: Command1.Caption = "第七次点击"
Case 8: Command1.Caption = "第八次点击"
Case 9: Command1.Caption = "第九次点击"
Case 10: Command1.Caption = "第十次点击"
Case 11: Command1.Caption = "第十一次点击"
Case 12: Command1.Caption = "第十二次点击": A = 0
End Select
End Sub

Answer 2

Dim n As Integer
Private Sub Command1_Click()
n = n + 1
Command1.Caption = "第 " & n & " 次点击"
'……其它命令
End Sub

Private Sub Form_Load()
n = 1
Command1.Caption = "第 " & n & " 次点击"
End Sub

Answer 3

 
Private Sub Command1_Click()
Static a As Long
a = a + 1
Command1.Caption = "第" & a & "次点击"
End Sub