Question

VB计时器作业，在线等，谢谢。

12点之前要提交，麻烦各位大神了。悬赏分可以提高，这题并不难吧 - -！

Answer 1

Dim s As Long

Private Sub Command1_Click()
If Option1.Value Then
   s = 60
ElseIf Option2.Value Then
   s = 300
Else
   s = 600
End If
Timer1.Interval = 1000
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim mm As Integer, ss As Integer
mm = s \ 60
ss = s Mod 60
Label1.Caption = mm & "分" & ss & "秒"
If s > 0 Then
   s = s - 1
Else
   Timer1.Enabled = False
   Command1.Enabled = True
End If
End Sub

所涉及的控件：Command1、Label1、Timer1、Option1、Option2、Option3、Frame1

追问

你好，这个我试了一下，点击计时开始它并不运行啊。你试过了吗？label只显示0分0秒，并没有倒计时啊。

追答

我已经改了，你看第一行

追问

十分感谢！都怪我上课没听课，真的谢谢了！