VB计时器作业,在线等,谢谢.

Dim s As LongPrivate Sub Command1_Click()If Option1。Value Then   s = 60ElseIf Option2。Value Then   s = 300Else   s = 600End IfTimer1。Interval = 1000Timer1。Enabled = TrueCommand1。Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Dim mm As Integer, ss As Integermm = s \ 60ss = s Mod 60Label1。Caption = mm & "分" & ss & "秒"If s > 0 Then   s = s - 1Else   Timer1。Enabled = False   Command1。Enabled = TrueEnd IfEnd Sub所涉及的控件：Command1、Label1、Timer1、Option1、Option2、Option3、Frame1 再问： 你好，这个我试了一下，点击计时开始它并不运行啊。你试过了吗？label只显示0分0秒，并没有倒计时啊。 再答： 我已经改了，你看第一行再问： 十分感谢！都怪我上课没听课，真的谢谢了！