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

来源：百度知道 编辑：UC知道 时间：2024/05/21 14:17:52
有一个command1 我想在第一次按的时候执行程序段A，按第二次的时候执行程序段B，再按一下执行程序段C
如：有一场比赛
按一下command1 ，LABEL1显示"开始比赛"
再按一下command1，label1显示“比赛题目1”
再按一下command1，label1显示“显示答案1”
再按一下command1，label1显示“比赛题目2”
再按一下command1，label1显示“显示答案2”
....................
最好简短一点的程序。谢谢
麻烦各位再去
http://zhidao.baidu.com/question/74861911.html
看看图片怎么做效果。。。谢谢~~

但我要做循环啊，因为题目不定是几个？？怎么弄，2位帅哥帮帮忙。

Dim T As Integer, Tn As Integer

Private Sub Command1_Click()

With Label1

If T = 0 Then
.Caption = "开始比赛"
T = T + 1
ElseIf T = 20 Then
T = 0
Else
If Tn = 0 Then
.Caption = "比赛题目" & T
Tn = 1
ElseIf Tn = 1 Then
.Caption = "显示答案" & T
Tn = 0
T = T + 1
End If
End If

End With
End Sub

给你个思路。
在command1的Click事件过程中定义一个静态变量sum
没执行一次click事件就对sum+1
然后根据sum的值来判断label1该显示什么内容。

实现起来很简单的，自己写写有助于理解。

'添加窗体Form1,卷标Label1,按钮Command1,然后添加如下代码:
Dim i%, s$, isShowQ As Boolean

Private Sub Form_Load()
    i = 1
End Sub

Private Sub Command1_Click()
    isShowQ = Not isShowQ
    If Left(Label1.Caption, 2