VB 每单机一次按钮 caption变一次

dim flg as boolean
private sub form_load()
flg=true
command1.caption="123"
end sub
private sub command1_click()
if flg then
command1.caption="123"
else
command1.caption="456"
end if
end sub

Private lngcount As Long

Private Sub Command1_Click()
Command1.Caption = ""
For i = 1 To 3
lngcount = lngcount + 1
Command1.Caption = Command1.Caption & lngcount
Next
End Sub

如果是随机的话就这样可以了
Dim a As Integer
Private Sub Command1_Click()
Randomize
Command1.Caption = Int(Rnd * 100)
End Sub

如果是想要固定的，，也就是你自己想它变成怎样的话就用if来判断了
if command1.caption="sdfsd" then
command1.caption=""9869
elseif ……
end if

后面这个你想要多少个就用多少个判断，不过这个办法很笨，，其他的方法我就没试过了