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

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

窗体上加入两个控件,一个是command1,一个是Label1
Private Sub Command1_Click()
Static Flag As Boolean
If Flag = False Then
MeCommand1Caption = "切换"
MeLabel1Caption = "bbbb"
Flag = True
Else
MeCommand1Caption = "显示"
MeLabel1Caption = "aaaa"
Flag = False
End If
End Sub
你描述的不太清晰,但是这是一种能实现的较直观的方法,至于两个caption是怎么对应的,请你再确认一下
解释一下,在这个sub过程里使用的static变量的声明,而没有用dim
楼上的代码稍有问题,一个是如果不使用static变量的话,还可以使用全局变量来实现,但是不应当在form_load中进行变量声明,应在通用中进行声明第二个,在i的累加过程中,可以用余数来判断两种状态,比如进行s=i mod 2,s值=0或者=1来判断使用这种方法有个缺陷,进行累加时i值会不断增加,因此i的声明就成了个问题,假如声明为int型,那么只能累加到255,以上就可能会出现溢出错误所以在进行i的自加时,进行判断后,还可以再减回去
比如
if i = 1 then
i=i-1
elseif i = 0 then '其实用else就行了,为了看起来清晰这里我使用了elseif
i=i+1
end if
不过声明为全局变量也是一种不错的办法
这里只是作为知识的探讨,没有任何其他意思

你试试这个
Private Sub Command1_Click()
'全部设置为不显示。
Dim xFrame As Object
For Each xFrame In MeControls
If TypeOf xFrame Is Frame Then
xFrameVisible = False
End If
DoEvents: Next
'设置显示的
Frame4Visible = True
End Sub

---