vb设计倒计时程序

2026-04-16 06:42:34位置：首页 > vb设计倒计时程序

1. vb倒计时程序怎么写

vb倒计时程序怎么写

1.用VB编写个倒计时程序

完整代码如下，可以解释。

Private f As Integer, m As Integer

Private Sub Command1_Click()

Dim n As Integer

Do

n = Val(InputBox（"请输入秒数：（小于3600）"))

Loop Until (n < 3600)

f = n \ 60: m = n Mod 60

Label1.Caption = f & ":" & m

End Sub

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

m = m - 1

If m = 0 Then

If f > 0 Then

f = f - 1: m = 60

Else

Timer1.Enabled = False

Label1.Caption = "时间到！"

Exit Sub

End If

End If

Label1.Caption = f & ":" & m

End Sub

效果图：请验证！符合要求就请上分。

2.如何用VB编写一个倒计时的程序

请参考： 或者： 新建 工程，1个按钮，1个timer，和1个文本框 在文本框内输入时间（秒数），点按钮就开始倒计时了： Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = "开始计时"， "停止计时"， "开始计时") Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = "开始计时" Text1 = "" End Sub Private Sub Timer1_Timer() If Text1 = "" Then Exit Sub Cls If Val(Text1) - i = 0 Then Print "时间到！！！" Timer1.Enabled = False Exit Sub End If Print "现在还剩下" & Val(Text1) - i & "秒了！！" i = i + 1 End Sub。

3.怎么用vb编写倒计时的程序

用VB6.0写的，运行时单击“设置”按钮，弹出Inputbox输入框供用户输入倒计时的时间（以分钟为单位）。单击“开始”按钮则在文本框内显示剩余的时间数（以时：分：秒的格式），同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long

dim fen as long

dim miao as long

Private Sub form_load()

fen=val(0)

miao=val(0)

shi=val(0)

end sub

Private Sub command2_click()

fen=inputbox（"时间"，"输入"，""）

if fen>=val(60) then shi=val(shi)+val(1)

end sub

Private Sub command1_click()

Timer1.Enabled=true

end sub

Private Sub Timer1_timer()

if miao<>val(0) then

miao=miao-1

end if

if miao=val(0) and fen <>val(0) then

fen=fen-1

miao=60-1

end if

if miao=val(0) and fen =val(0) and shi <>val(0) then

shi=shi-1

fen=60-1

miao=60-1

end if

if miao=val(0) and fen =val(0) and shi =val(0) then

msgbox（"时间用尽了！"）

timer1.Enabled=False

end if

text1.text="还剩" & shi &； "时" & fen &； "分" & miao &； "秒"

end sub

4.如何用VB编写一个倒计时的程序

请参考： 编程中国-北京2008年奥运会倒计时 或者： 新建 工程，1个按钮，1个timer，和1个文本框 在文本框内输入时间（秒数），点按钮就开始倒计时了： Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = "开始计时"， "停止计时"， "开始计时") Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = "开始计时" Text1 = "" End Sub Private Sub Timer1_Timer() If Text1 = "" Then Exit Sub Cls If Val(Text1) - i = 0 Then Print "时间到！！！" Timer1.Enabled = False Exit Sub End If Print "现在还剩下" & Val(Text1) - i & "秒了！！" i = i + 1 End Sub。

5.怎样用VB编一个倒计时程序

楼上的代码这么长，还简单？

无语

我给你写了一个，这个才是真正的简单实用，呵呵！

加个TIMER控件 把Interval 属性调成 1000 毫秒 也就是 1秒

在加两个 TEXT

text1.text=3

text2.text=00

在加个按钮 开始倒计时

就行了

程序代码如下：

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If (Text2.Text <= 0) Then

Text2.Text = 59

Text1.Text = Text1.Text - 1

Else

Text2.Text = Text2.Text - 1

End If

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

如果有什么地方不懂，欢迎联系我！

6.如何用VB设计一个倒计时的程序

在窗体上放一个textbox，一个Label，一个Timer，一个Commandbutton

双击窗体，粘贴以下代码：

Private Sub Command1_Click()

Label1.Caption = Text1.Text

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer1.Enabled = False

End If

End Sub

'使用时在文本输入倒计时的秒数，点按钮开始倒计时

7.VB倒计时程序

窗体上放一个label，一个HScrollbox，三个Commandbutton，一个timer

双击窗体，删掉别的代码，粘贴下面代码：

Dim Minute, Second As Long

Private Sub Command1_Click()

Minute = InputBox（"输入分钟数"， "倒计时时间"）

Second = 60 * Minute

Label1.Caption = "倒计时时间为" & Minute & "分钟"

Command2.Enabled = True

Command3.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Command3_Click()

Timer1.Enabled = False

Label1.Caption = "已结束倒计时"

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Second < 0 Then

Timer1.Enabled = False

Else

Label1.Caption = IIf(Second \ 3600 = 0, "00", IIf(Second \ 3600 < 10, "0" & Second \ 3600, Second \ 3600)) & ":" & IIf(Second \ 60 Mod 60 = 0, "00", IIf(Second \ 60 Mod 60 < 10, "0" & Second \ 60 Mod 60, Second \ 60 Mod 60)) & ":" & IIf(Second Mod 60 Mod 60 = 0, "00", IIf(Second Mod 60 Mod 60 < 10, "0" & Second Mod 60 Mod 60, Second Mod 60 Mod 60))

HScroll1.Value = (60 * Minute - Second) / (60 * Minute) * HScroll1.Max

Second = Second - 1

End If

End Sub

8.如何用VB编写一个天数倒计时的程序

新建 工程，1个按钮，1个timer，和1个文本框 在文本框内输入时间（秒数），点按钮就开始倒计时了： Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = “开始计时“， “停止计时“， “开始计时“) Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = “开始计时“ Text1 = ““ End Sub Private Sub Timer1_Timer() If Text1 = ““ Then Exit Sub Cls If Val(Text1) - i = 0 Then Print “时间到！！！“ Timer1.Enabled = False Exit Sub End If Print “现在还剩下“ & Val(Text1) - i & “秒了！！“ i = i + 1 End Sub。

9.用VB编写倒计时程序

Private Sub Command1_Click()

Me.Caption = "今天是：" & FormatDateTime(Date, 1) &； "，距离情人节还有" & DateDiff("d", Date, "2012-02-14") &； "天"

End Sub

在窗体上添加一个Command1控件，直接复制以上代码，

效果：今天是2012年1月29日，距离情人节还有16天.

vb倒计时程序怎么写

转载请注明出处育才学习网 » vb设计倒计时程序

知识

罗梅芬用日文怎么写(罗钰潇日语怎么写)

阅读(21419)

本文主要为您介绍罗梅芬用日文怎么写，内容包括伊蕾娜日语怎么写，王雪菲用日文怎么说，张佳怡在日语中怎么写啊怎么读啊。罗 ら ラ ra钰 ぎょく ギョク gyoku潇 しょう シヨウ shou第一列：日语汉字，写法同汉字，都要用繁体，这三个都挺难写的，看

知识

邓先生的英文怎么写(1~40的英文怎么说)

阅读(10435)

本文主要为您介绍邓先生的英文怎么写，内容包括“邓先生”用英语怎么写，1~40的英文怎么说，漂亮英文beautiful缩写怎么写。1 one 2 two 3 three 4 four 5 five 6 six 7 seven 8 eight 8 nine 10 te

知识

一个人布满皱纹怎么写(描写人物皱纹的句子)

阅读(9505)

本文主要为您介绍一个人布满皱纹怎么写，内容包括描写人物皱纹的句子，描写人物皱纹的句子，皱纹怎么描写。、老人脸上布满了皱纹，那一条条曲折不均的像是墙上斑驳的印迹，爬满了面容，留下了岁月的痕迹。2、外祖父是一位年过六旬的白发老人。在他

知识

登录接口怎么写(php登录的接口怎么写)

阅读(7754)

本文主要为您介绍登录接口怎么写，内容包括php登录的接口怎么写，网页登陆接口怎么做，网站登录接口程序怎么做。PHP 接口 接口 使用接口（interface），你可以指定某个类必须实现哪些方法，但不需要定义这些方法的具体内容。我们可以通过int

知识

档案奖惩情况怎么写(奖惩情况怎么写)

阅读(9593)

本文主要为您介绍档案奖惩情况怎么写，内容包括奖惩情况怎么写，个人简历及奖惩情况怎么填写，个人简历里面奖惩情况怎么写。在简历里的“奖励”部分，列出与你所获得的并与你的求职目标相关的荣誉、奖励和奖金。你既可以按时间顺序排列，也可以按

知识

头孢克肟拼音怎么写(头孢克肟的肟念什么)

阅读(7996)

本文主要为您介绍头孢克肟拼音怎么写，内容包括头孢克肟片全名拼音，头孢克肟片全名拼音，头孢克肟的肟念什么。肟[wò] ：是含有羰基的醛、酮类化合物与羟胺作用而生成的有机化合物，可以参与许多有机化学反应，例如经典的Beckmann重排就是肟为底

知识

一库搜用日语怎么写(日语一库是什么意思)

阅读(7981)

本文主要为您介绍一库搜用日语怎么写，内容包括日语大神来,看动漫里的主人公说一句：恰,一库搜这是什么意思，一库一库；一搜库这两个日语是什么意思怎么写，看片都有“一库”（日语）是什么意。一库的意思就是“出发，出去”的意思。日语「行く」的音译

知识

外租无人机广告怎么写(植保无人机广告语)

阅读(6991)

本文主要为您介绍外租无人机广告怎么写，内容包括求一个无人机创意广告词谢谢巨友们了，求一关于无人机的广告标语，求一关于无人机的广告标语我们公司是做无人机的,新成立的公司,求。DJI大疆创新研发的的MG-1农业植保机专为农村作业环境设计，

知识

河南话que怎么写(河南话的nenna怎么写)

阅读(6525)

本文主要为您介绍河南话que怎么写，内容包括que怎么写，河南话的nenna怎么写，que怎么写。尿一壶（niào yī hú）关系密切，观点一致。例：“他俩今天尿一壶啦。”●尿（niào）⑴、从尿道排泄的液体。⑵、排泄小便。⑶、不放

知识

国学经文的论文怎么写(国学征文该怎么写)

阅读(7104)

本文主要为您介绍国学经文的论文怎么写，内容包括国学征文该怎么写，弟子规的400论文，关于国学经典的征文怎么写。“子曰：“温故而知新，可以为师”……小时，总是觉得国学就是没用的，古人写的话，我们还需要背，每次老师教给我们时，我总是会让思想开一

知识

化学实验总结怎么写(化学实验报告小结怎么写)

阅读(5387)

本文主要为您介绍化学实验总结怎么写，内容包括化学实验总结怎么写，化学实验报告小结怎么写，化学实验小结怎么写。化学实验报告的书写： 一般情况下化学实验报告是根据实验步骤和顺序从七方面展开来写的： 1.实验目的：即本次实验所要达到的目标或

知识

蝴蝶豌豆拼音怎么写(豌豆的拼音是什么)

阅读(5820)

本文主要为您介绍蝴蝶豌豆拼音怎么写，内容包括蝴蝶怎么拼音的，豌豆的拼音是什么，蝴蝶的拼音是什么。豌豆的拼音是[wān dòu]。豌豆是豆科一年生攀援草本，高0.5-2米。全株绿色，光滑无毛，被粉霜。叶具小叶4-6片，托叶心形，下缘具

知识

海绵宝宝用英文怎么说(海绵宝宝用英文怎么说)

阅读(6505)

本文主要为您介绍海绵宝宝用英文怎么说，内容包括海绵宝宝用英语怎么说，海绵宝宝用英文怎么说，海绵宝宝英文名是什么。1. SPONGEBOB SQUAREPANTS 近期很夯的一步卡通影片《海绵宝宝》（SpongeBob SquarePants）是一系

知识

茶盏怎么用(茶盏在茶道中干嘛用)

阅读(5413)

本文主要为您介绍茶盏怎么用，内容包括茶盏怎么用我要写一篇200字左右的茶盏的使用说明,求指教，茶盏在茶道中干嘛用，问一下斗笠盏如何使用现在是不是很少有人使用它,它的意义。苏东坡的名句＂从来佳茗似佳人＂，典型地代表了唐宋及以后的文人墨客，

知识

thinkpad小红点怎么用(怎么学习使用thinkpad小红点)

阅读(7573)

本文主要为您介绍thinkpad小红点怎么用，内容包括怎么学习使用thinkpad小红点，thinkpad小红点怎么用，求教：THINKPAD的小红点使用方法。Thinkpad 小红点最高效的使用方法为：左手拇指按左键，无操作时在左键待命2、右手拇指按右键，同时兼按空格键及