Question

VB按钮 点击一下为1 再次点击为0 再点击为1 如此循环 怎么实现

Answer 1

Private Sub Command1_Click()
If Command1.Caption = "1" Then
Command1.Caption = "0"
Else
Command1.Caption = "1"
End If
End Sub
以上可以实现你的要求！如再有疑问，请追问！

Answer 2

'用iif()函数
'==============
Private Sub Command1_Click()
command1.caption=iif(command1.caption="1","0","1")
End Sub

Answer 3

Private Sub Command1_Click()
Command1.Caption = Not Command1.Caption - 2
End Sub