广州西门口附近租房:VB编程问题
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/03 06:22:05
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