VB计时器作业,在线等,谢谢.12点之前要提交,麻烦各位大神了.悬赏分可以提高,这题并不难吧 - -!

来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 18:42:09
VB计时器作业,在线等,谢谢.12点之前要提交,麻烦各位大神了.悬赏分可以提高,这题并不难吧 - -!

VB计时器作业,在线等,谢谢.12点之前要提交,麻烦各位大神了.悬赏分可以提高,这题并不难吧 - -!
VB计时器作业,在线等,谢谢.


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

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

VB计时器作业,在线等,谢谢.12点之前要提交,麻烦各位大神了.悬赏分可以提高,这题并不难吧 - -! 英语作业 高中 神七圆满成功 作文（时间23点之前 在线等） 密封场所内作业有哪三大危险因素? 在线等 谢谢 形容非常气愤,非常气恼的词语有什么?最好5个以上,在线等,请在8点之前给我,麻烦各位快一点,谢谢! 一篇作文,什么题目都行,越少越好.谢谢了快啊我在线等的.11点之前给我,写好了我加分的.快啊. 高中物理常量及数值在线等,详细点的,谢谢 治水必躬亲的论点,论据,论证请详细点,在线等,10点之前 英语苏教版八年级上册第三单元reading的翻译今晚22点之前,在线等 八上地理4.3工业的发展与分布（在线等,10点之前） 求四升五苏教版小学暑假作业答案(书名:) 求各位大神!! 急!在线等! 谢谢了! 求首都博物馆观后感,在线等700字作业,谢谢了初一 概括与总结哲学与世界观的关系是作业、在线等!谢谢啦 求解答,初一数学作业在线等,好评谢谢,要过程 经济法作业,求各位帮忙了,谢谢了,在线等,急啊 鲁庄公的鄙表现在哪里 用自己的话说作业啊,我在线等,谢谢! 老师今天作业：总结前出师表的实词虚词 谢谢大家 在线等 初二下开学数学分式在线等!明天交作业 重发图片，清楚点的 英语翻译 ：电子杂志 在线等 谢谢