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

'添加一个标签（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 = "-分钟"
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
t = t - 1
Label1.Caption = t & "分钟"

If t = 0 Then
Timer1.Enabled = False
MsgBox "时间到！"
End If
End Sub

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本回答被提问者采纳

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