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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/22 05:50:13

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

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

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秒，并没有倒计时啊。
再答：我已经改了，你看第一行
再问：十分感谢！都怪我上课没听课，真的谢谢了！

英语翻译在线等明天交作业谢谢语文家庭作业,在线等!~谢谢. 在线等谢谢啦老师今天作业：总结前出师表的实词虚词谢谢大家在线等经济法作业,求各位帮忙了,谢谢了,在线等,急啊英语翻译：电子杂志在线等谢谢简单英语翻译.在线等.谢谢! 线性代数,在线等答案,谢谢暨渡改桥是什么意思?在线等,谢谢请求英语翻译.在线等.谢谢 matlab问题~~ 在线等.谢谢. 求英文翻译,在线等,谢谢