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

发布网友 发布时间：2023-11-19 09:16

我来回答

共4个回答

热心网友 时间：2023-12-02 17:37

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

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

热心网友 时间：2023-12-02 17:37

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

热心网友 时间：2023-12-02 17:38

下面几行代码可以满足不定题目的作题要求。

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

热心网友 时间：2023-12-02 17:38

'添加窗体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