佛教大三千世界:VB编程问题

Private Sub Form_Load()
Command1.Caption = "1"
End Sub

Private Sub Command1_Click()
'如果你把下成3改成其它数如9就会从1到9按次循环了。
If Command1.Caption = "3" Then
Command1.Caption = "1"
Else
Command1.Caption = Trim(Val(Command1.Caption) + 1)
End If
End Sub

初始 command.caption = "1"

按下时加个判断
if command.caption = "1" then
command.caption = "2"
else
command.caption = "1"
endif

初始值 command.caption = "1"
不过判断语句楼上的有点问题，因为command.caption 一共有3个值，最好使用 select case 语句

select case command.caption
case "1"
command.caption = "2"
case "2"
command.caption = "3"
case "3"
command.caption = "1"
end select

这样就可以了

command.caption="1" 初始值
if command.caption="1" then
command.caption="2"
else
if command.caption="2" then
command.caption="3"
else
command.caption="3"
endif

最上面的不对
2楼的case没有break(忘了VB里的case用不用这个了)....

从程序速度上讲逻辑运算比算术运算快

回答得越来越好，qipinw的最简洁

Private Sub Form_Load()
Command1.Caption = "1"
End Sub

Private Sub Command1_Click()
select case command1.caption
case "1" command1.caption="2"
case "2" command1.caption="3"
case "3" command1.caption="1"
end select
end