Question

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

有一个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位帅哥帮帮忙。

Answer 1

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

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

Answer 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

Answer 3

下面几岁者链行代码可以满足不定题目的作嫌正题要求。

Private Sub Command1_Click()
Select Case Left(Label1, 4)
Case "开始比赛"
Label1 = "比赛题目1"
Case "比赛题目"
Label1 = Replace(Label1, "比赛题目", "显示答案")
Case "显示答案"
Label1 = "比赛题目"乎孙 & (Val(Mid(Label1, 5)) + 1)
Case Else
Label1 = "开始比赛"
End Select
End Sub

Answer 4

'添加窗体笑知衡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) = "显示" Then i = i + 1
    Label1.Caption = IIf(isShowQ, "显示答案", "比赛题目") & i
End Sub