求用VB 编的一个小程序 高分（要源程序）

来源：百度知道 编辑：UC知道 时间：2024/05/03 09:24:21
要求 ：一个计时器 ，比如我输入 40分钟 然后点击确定，就开始倒计时这40分钟的，到0的时候填出对话框提示已到时间. 还可以加分。要的是我输入多少就倒计时多少的时间.显示秒钟
我的QQ 3123764

QQ多少我教你到会
窗体一个确定按钮command1一个暂停按钮command2
两个标签label1和label2 label1的caption为空label2的caption 为分钟
一个文本框 text1 Timer1的Interval 属性为 60000
Timer1的Enabled 为False

Private Sub Command1_Click()
Label1.Caption = val(Text1.Text)
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = val(Label1.Caption) - 1
If val(Label1.Caption) < 1 Then
MsgBox "时间到了!", , "提示"
me.enabled = Flase
End If
End Sub

可以啊，挺简单的，不过你填入的是以什么为单位时间，或者加一个列表框就可以解决了，不知道你什么要啊

'添加一个标签（Label1），一个时钟控件（Timer1），一个按钮（Command1）

Dim t As Integer

Private Sub Command1_Click()
t = Val(InputBox("输入时间（分钟）"))
Label1.Caption = t & "分钟"
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Label1.Caption = "-分钟"
Ti