VB简单的问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 13:50:43
如何让我第一次按command1的在text1显示1,第二次时在text1显示2,第三次时又在text1显示1,
到第四又在text1显示2,如此类推
(是同一个按钮的)

Private Sub Command1_Click()
Static num
num = num Mod 2 + 1
Text1.Text = num
End Sub

声明一个全局变量
Dim a As Boolean
Private Sub Command1_Click()
a = Not a
If a = True Then
Command1.Caption = "1"
Else
Command1.Caption = "2"
End If
End Sub

dim rt as interget

sub command1_click()

if rt=0 then
rt=1
text1.text=“1”
goto sign1
end sub

if rt=1 then
rt=0
text1.text=“2”
goto sign1
end sub

sign1:

end sub