怎样用VB做倒计时，如果说距离考试结束还有两个小时，要时分秒的

怎么用vb做一个倒计时软件？理解能力差，望详细解答。~

用VB做倒计时，预设（可以修改）距离考试结束还有两个小时，有时分秒，有语音提示。
很容易！
建3个TEXT(分别显示时、分、秒)，1个定时器（设1秒），2个按钮（开始倒计时和退出）。
TEXT里分别写入预设的时间。如果是2小时，就分别写2、00、00。
定时器响应里：
秒-1，如果为负，置59，同时分钟位-1，....
类推。直至3个位都为0。
很简单的代码，时间到有语音提示等，不管你信不信，反正我测试通过了。
Dim sec, min, h
Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "开始倒计时"
End Sub

Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If
If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If
If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False
CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
End Sub

很简单事件，添加一个command 一个timer
Dim a As IntegerPrivate Sub Command1_Click() Timer1.Enabled = True a = Text1End SubPrivate Sub Form_Load() Text1 = 10 Command1.Caption = "计时"End SubPrivate Sub Timer1_Timer()If a = 0 Then Timer1.Enabled = False MsgBox "倒计时结束"Else a = a - 1 Text1 = aEnd IfEnd Sub

很容易！
建3个TEXT(分别显示时、分、秒)，1个定时器（设1秒），2个按钮（开始倒计时和退出）。
TEXT里分别写入预设的时间。如果是2小时，就分别写2、00、00。
定时器响应里：
秒-1，如果为负，置59，同时分钟位-1，....
类推。直至3个位都为0。
特意给你写个简单的代码，时间到有语音提示等，不管你信不信，反正我测试通过了。
Dim sec, min, h
Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "开始倒计时"
End Sub

Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If
If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If
If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False
CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
End Sub
怎么样？我专门写这么多代码，还调试半天，我容易吗？ 给个好评吧！

---

凭祥市18760001637： 怎样用VB做倒计时,如果说距离考试结束还有两个小时,要时分秒的 ？
揣味艾本： 很容易!建3个TEXT(分别显示时、分、秒),1个定时器(设1秒),2个按钮(开始倒计时和退出).TEXT里分别写入预设的时间.如果是2小时,就分别写2、00、00...

凭祥市18760001637： 急求vb倒计时代码,半小时后考试用!!!! - ？
揣味艾本： Private Sub Form_Load() Me.AutoRedraw = True Me.FontSize = 15 Me.Cls Print ＂现在是北京时间:＂ & Now Print ＂距离奥运会开幕还有＂ & #8/8/2008# - Date & ＂天＂ End Sub

凭祥市18760001637： 怎么用vb做一个倒计时软件?理解能力差,望详细解答. - ？
揣味艾本： 用VB做倒计时,预设(可以修改)距离考试结束还有两个小时,有时分秒,有语音提示.很容易!建3个TEXT(分别显示时、分、秒),1个定时器(设1秒),2个按钮(开始倒计时和退出).TEXT里分别写入预设的时间.如果是2小时,就分...

凭祥市18760001637： 如何用VB做一个考试天数倒计时器啊? - ？
揣味艾本： 已经通过试验的! 为了方便修改日期,加入了输入对话框.代码如下:Dim a$ Private Sub Form_Load() Label1.Caption = ＂＂ a$ = InputBox(＂请输入考试日期(例如2012-12-21):＂, ＂输入对话框＂, ＂ ＂) End Sub Private Sub Timer1_Timer() Label1.Caption = ＂今天距＂ & a$ & ＂还有＂ & -DateDiff(＂d＂, a$, Date) & ＂天＂ End Sub

凭祥市18760001637： 高分.VB编程,怎么做一个高考倒计时的东东,就告诉我怎么计算距离6月8日还有多少天就行了.谢谢. - ？
揣味艾本： #2011-06-08#-date 上面的表达式可以计算出距离6月8日的天数 用#括起来表示日期 我以前做过个毕业倒计时,窗体是不规则形状的,有指针的钟表,如需要消息我

凭祥市18760001637： 怎么用VB制作一个倒计时? - ？
揣味艾本： 窗体中放置三个Command、三个Label、一个Timer控件,在Form_Load过程中已经说明了控件用途,其中Label1是显示分钟数,Label2是显示秒数,代码如下:Dim JS As Integer '这里声明了一个全局变量,保存计时数 Private Sub Command1...

凭祥市18760001637： 如何用VB设计一个倒计时的程序 - ？
揣味艾本： 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...

凭祥市18760001637： 如何在VB程序中设计一个倒计时器 - ？
揣味艾本： '---定义一个全局变量,用于倒计时的开始数public maxcount as long private sub form_load()timer1.interval = 1000end sub '开始倒计时,10秒一个循环private sub command1_click()maxcount = 10 '---设计倒计时的起始数label1.caption = ...

凭祥市18760001637： 怎么用vb编写倒计时的程序 - ？
揣味艾本： 用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位).单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的滚动块同步随时间自左向右移动.dim shi ...

凭祥市18760001637： 用vb制作倒数计时器 - ？
揣味艾本： 1、在窗体上添加一个label1控件 2、在窗体上添加一个command1控件 3、在窗体上添加一个timer1控件 4、复制如下代码,运行 Dim a As Long Private Sub Command1_Click() a = InputBox(＂请输入秒数＂) Label1.Caption = a Timer1....