Question

VB程序 小弟新手，在练习中这个程序始终完成不了，求高手！

我要实现的功能是这样的：程序开始窗口打开，然后等待30S，弹出窗口提示“等待时间超出，请重新”，谈后点击按钮，再等待30S，标签窗口内容改变成“无法完成”，结束。求这个程序代码！

Answer 1

界面如你的图所示，一个label控件名称为label1，一个按钮，名称为command1，
增加一个timer控件，名称为timer1,将timer1的interval属性改为1000.
将下面的代码全部copy，注意第一行必须是全部代码的第一行，那是一个窗体级变量。
运行方式：打开后等待30s，弹出对话框后点击按钮，再等待30s
Dim j As Integer '控制次数
Private Sub Command1_Click()
Timer1.Enabled = True '控制timer控件
j = j + 1
End Sub

Private Sub Timer1_Timer()
'静态变量，计时
Static i As Integer
i = i + 1
If i = 30 And j = 0 Then
MsgBox "等待时间超出，请重新"
Timer1.Enabled = False
i = 0
End If
If i = 30 And j > 0 Then
Label1.Caption = "无法完成……"
MsgBox "结束！"
End
End If
End Sub

Answer 2

窗体上添加一个timer1、一个label1、一个command1，输入以下代码：

Dim flag As Boolean
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Caption = "重算"
Label1.Caption = "等待......"
Timer1.Enabled = True
Timer1.Interval = 30000
flag = False
End Sub

Private Sub Timer1_Timer()
If flag = False Then
MsgBox "等待时间超出，请重新"
flag = True
Timer1.Enabled = False
ElseIf flag = True Then
labe1.Caption "无法完成"
Timer1.Enabled = False
End
End If
End Sub

Answer 3

Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i > 30 Then
i = 0
Timer1.Enabled = False
Label1.Caption = "等待时间超出，请重新！"
Else
Label1.Caption = "等待中......"
End If
End Sub