劲舞团温泉怎么卡上天:急求：在vb6.0环境下，编写如下程序：

主要是使用doevents()这个函数把控制权限交给cpu就可以了，其它的没有什么的

以下代码能实现你的要求,实际上这些代码就是由本人回答你的"关于vb6.0环境下一个时钟到记时的正确程序，请高手赐教！"问题的代码修改而成.
Option Explicit
Dim sum_zj As Integer
Dim sum_zj1 As Integer
Dim Message, Title, Default
Dim MyValue As Single

Private Sub cmStart_Click()
Timer1.Enabled = True '开始倒记时
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False '暂停或终止
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Message = "请输入倒记时分钟数"
Title = "倒记时报警试验"
MyValue = InputBox(Message, Title, Default, 1000, 1000)
sum_zj1 = MyValue * 20
sum_zj = 0
Text1 = sum_zj: Text2 = sum_zj1
End Sub
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
'3秒校准一次
If sum_zj >= 3 And sum_zj1 > 0 Then
sum_zj1 = sum_zj1 - 1
sum_zj = sum_zj - 3
Text2 = sum_zj1
ElseIf sum_zj1 <= 0 Then
Form1.BackColor = vbRed
Timer1.Enabled = False
Timer2.Enabled = True
End If
End If
End Sub
Private Sub Timer2_Timer()
Beep ' 发出报警声。
End Sub