vb倒计时程序怎么写

2025-07-11 00:36:01分类：首页 > 知识

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倒计时程序怎么写

信捷plc倒计时程序怎么写 vb编写倒计时程序 vb设计倒计时程序
知识

microsoft账户名怎么写

阅读(297)

本文主要为您介绍microsoft账户名怎么写，内容包括microsoft账户名可以填哪些，创建microsoft账户怎么填写账户名，microsoft账户名是什么。注册 Microsoft 帐户1.转到 Microsoft 帐户注册 网页，然后点击或单击“立即注册”。2.输入自己的姓和

知识

啟的篆体字怎么写

阅读(276)

本文主要为您介绍啟的篆体字怎么写，内容包括启的篆体字的写法，启动的启字怎么写，启字的繁体字怎么写。之的篆体字写法如下图：

知识

卖房启示怎么写

阅读(281)

本文主要为您介绍卖房启示怎么写，内容包括售房启示怎么写售房启示的常见范本，卖房启示怎么写，房屋转让启示如何写。1.要写明房屋的格局，几居室. 2.位置在哪儿. 3.性质.是商品房，还是已购公房. 4.房子的情况：总高几层，在第几层，面积，板楼还是

知识

柳条的诗歌怎么写

阅读(268)

本文主要为您介绍柳条的诗歌怎么写，内容包括写柳树的诗歌，描写柳条的诗词，描写柳树、柳条的词语、段落、诗歌等内容。柳树属于杨柳科，品种繁多，据知有三千多种，遍布世界各地。我国的柳树品种也多达五十余种，尤以垂柳、河柳、旱柳、杞柳、黄花柳

知识

核酸分子式怎么写

阅读(272)

本文主要为您介绍核酸分子式怎么写，内容包括DNA的分子式怎么写，DNA的分子式怎么写，核酸的化学结构式是什么。这个问题没有直接的答案。蛋白质和核酸都是生物大分子，并没有一个统一的化学式。 首先说核酸，就目前而言，核酸一共有两大类：脱氧核糖

知识

二氧化硅分子式怎么写

阅读(297)

本文主要为您介绍二氧化硅分子式怎么写，内容包括二氧化硅的分子式是什么，二氧化硅的分子式SiO2,，二氧化硅的化学方程式怎么写。化学式SiO2，式量60.08。也叫硅石，是一种坚硬难溶的固体。它常以石英、鳞石英、方石英三种变体出现。从地面往下16

知识

村党支部牌子怎么写

阅读(429)

本文主要为您介绍村党支部牌子怎么写，内容包括村党支部牌子怎么写，党支部村委会牌子如何悬挂，制作党支部委员会牌子的规格如何规定的。按照进门方向，左边钉村党支部牌子，右边钉村委会牌子。可在两侧分开钉挂，也可并列钉挂；也有些说“中国传统是

知识

拼音本上g的格式怎么写

阅读(621)

本文主要为您介绍拼音本上g的格式怎么写，内容包括汉语拼音g的笔顺怎么写，拼音g在生字本上怎么写g在生字本上怎么写啊麻烦拍张照,谢谢啦,，拼音g在生字本上怎么写。汉语拼音g分两笔写成，第一笔左半圆，第二笔竖左弯。具体写法如下：

知识

扔的笔画顺序怎么写的

阅读(311)

本文主要为您介绍扔的笔画顺序怎么写的，内容包括扔的笔画顺序怎么写，扔的笔顺怎么写，扔的笔画顺序怎么写。扔的笔顺：横、竖钩、提、横折折折钩/横撇弯钩、撇

知识

我的幼师梦作文怎么写

阅读(276)

本文主要为您介绍我的幼师梦作文怎么写，内容包括高一作文我的幼师梦300字以上，我的梦想作文600字幼师，幼儿园口头作文我的梦怎么描写。梦想是什么？梦想是从不言弃、努力拼搏的精神支柱，伴随着我们每一个人。上帝没有给我们翅膀，却给了我们一颗

知识

牙医的音标怎么写

阅读(325)

本文主要为您介绍牙医的音标怎么写，内容包括牙医的英语怎么写，牙医的英文读音，牙医英文怎么读音。牙医的英文：dentistdentist 读法 英 [dentɪst] 美 [dɛntɪst] 作名词的意思是：牙科医生；牙医诊所短语：

知识

报告内容要点怎么写

阅读(287)

本文主要为您介绍报告内容要点怎么写，内容包括报告的种类及写作要点，写总结报告的要点是什么，报告单的格式怎么写。报告是向上级机关汇报工作、反映情况、提出意见或者建议，答复上级机关的询问时使用的公文。报告的类别及功用1.例行报告（日报

知识

书信格式怎么写快

阅读(282)

本文主要为您介绍书信格式怎么写快，内容包括书信格式怎么写,快，书信格式怎么写,快，书信的格式怎么写。书信一般由称谓、问候语、正文、结尾、署名、日期所构成。 我们以刘星给强强的一封信为例作简单讲析。1 .称谓在首行顶格的位置写称谓，后

知识

酒店新开业怎么写宣传

阅读(292)

本文主要为您介绍酒店新开业怎么写宣传，内容包括饭店新开业朋友圈宣传语模版，新开业一个酒店怎么去做宣传,和营销，饭店开业的宣传单怎么写。专致专注，品质服务。2、主随客变，如您所愿。3、烛光闪耀度圣诞，美酒佳肴迎新年。4、真心出美味，真诚遇

知识

vba查询代码怎么写

阅读(267)

本文主要为您介绍vba查询代码怎么写，内容包括EXCELVBA中关于查询代码如何编写，VBA要写一个在数据库查询的代码,要如何修改才是正确的写法搜狗，ExcelExcel2007版用VBA实现多条件查询并显示代码怎么写。问题太笼统，给你个例子看吧Public Sub d

知识

vbfunction怎么写

阅读(334)

本文主要为您介绍vbfunction怎么写，内容包括VB如何用function自定义函数格式怎么写，vb用function怎样自定义函数格式怎么写举个例子,比如inputbox，VB函数function的用法。用function自定义函数，跟一般的子程序基本相同。不同的是，function需

知识

液晶电视万能驱动板怎么写程序

阅读(579)

本文主要为您介绍液晶电视万能驱动板怎么写程序，内容包括液晶电视万能驱动板怎么写程序，液晶电视万能驱动板怎么写程序，怎样给驱动板写程序我想知道给液晶电视驱动板写程序的操作过程。需要准备一个U盘就可以更换所有的LVDS接口的液晶屏程

知识

在电脑里怎么写eprom里面的程序

阅读(343)

本文主要为您介绍在电脑里怎么写eprom里面的程序，内容包括外部存储器EPROM,里面有程序时,把它插在专用编程器上面,就能，在proteus里面,怎样往Eprom里面写入数据啊，用STEP57.0怎样把EPROM里的程序拷到PLC和电脑。EPROM是要高电压编程的，不知

知识

怎么写建议安卓程序

阅读(257)

本文主要为您介绍怎么写建议安卓程序，内容包括android程序中的意见反馈是怎么编写的，安卓软件怎么写，如何在androidstudio编写一个建议。打开软件，在菜单中选择file-》new project打开创建向导。配置项目，确定各个名称和存放项目存放路径；Appl

知识

程序怎么写数据库相对路径

阅读(290)

本文主要为您介绍程序怎么写数据库相对路径，内容包括c#程序怎么写数据库相对路径，winform中怎样写数据库的相对路径，c#程序怎么写数据库相对路径。这个需要的超链接指向文件在服务器的绝对路径，即下面获取到的文件的编译路径 ：/*** 获取当前

知识

应用程序接口怎么写

阅读(284)

本文主要为您介绍应用程序接口怎么写，内容包括应用程序接口是什么意思，怎么写App接口设计方案，编写程序时的接口是什么意思。PHP是编程语言和应用程序服务器的结合。PHP和其它的编程语言类似，使用变量存储临时数值，使用操作符处理变量。PHP的

知识

vb实训报告怎么写

阅读(272)

本文主要为您介绍vb实训报告怎么写，内容包括求一篇VB实训报告范文，如何写vb实验报告步骤，如何写VB实验报告。一周实训时间转瞬即逝，在这段短暂的时间里，为了完成一个不起眼的小程序，我们可以说是绞尽脑汁，终于，在不懈的奋斗下，在老师的帮助下，在辛

[/e:loop]