Question

VB6 一个CMD控制多条命令的方法！！！

有一个command1 我想在第一次按的时候执行程序段A，按第二次的时候执行程序段B，再按一下执行程序段C
如：有一场比赛
按一下command1 ，LABEL1显示"开始比赛"
再按一下command1，label1显示“比赛题目1”
再按一下command1，label1显示“显示答案1”
再按一下command1，label1显示“比赛题目2”
再按一下command1，label1显示“显示答案2”
....................
最好简短一点的程序。谢谢
题目数量不定的啊，怎么做？

Answer 1

再次给思路。
还是用原来的sum来累加，通过sum的值来判断。
按下command1时先判断sum的值，如果是0就显示开始比赛。
如果不是0，再判断它整除2的结果（假设为a）和除以2的余数，根据余数来判断显示“比赛题目”还是“显示答案”。
根据a来判断题目和答案后面的编号。

Answer 2

定义使用公共变量进行累加及判断
Dim nowNum As Integer
Private Sub Command1_Click()

Select Case nowNum
Case 0
Label1.Caption = "开始比赛"
Case 1
Label1.Caption = "比赛题目1"
Case 2
Label1.Caption = "显示答案1"
Case 3
Label1.Caption = "比赛题目2"
Case 4
Label1.Caption = "显示答案2"
End Select
If nowNum < 4 Then nowNum = nowNum + 1 Else nowNum = 0

End Sub