VB中如何设计一个类似60秒倒计时的程序

创建一个Timer控件：Timer1
设置Timer1的Interval属性为1000
创建一个显示倒计时的Lable：lblTime

代码：
dim i as long
private sub form_load()
i=60
endsub
private sub timer1_timer()
i=i-1
lblTime.caption="倒计时" & i
if i<=0 then
msgbox "倒计时结束，退出"
end
endif
end sub

shutdown -s -t 60 60是关机倒数秒数，60秒已结束，就会自动关机。
命令设置倒计时关机的步骤：
按住键盘上的组合键：Win+R，打开“运行”对话框。在里面输入命令：shutdown /s /t +time,例如现在需要设置一个60后自动关机，我们就需要输入：shutdown /s /t 60,
输入好以后，单击“确定”按钮或者直接按回车键（ENTER），之后就可以看见弹出一个提示，计算机将在多少时间关机，倒计时开始。

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快叫爸爸不叫就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "爸爸")
a = inputbox ("快叫爸爸,就不关机，快撒，说 ""爸爸"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~
创建个

记事本。然后复制上去把为重名后面的.txt改成 .vbs

捉迷藏优秀作文
我是捉的,游戏一开始,我便闭眼,开始倒数,20,19,18,17,16, 15……5,4,3,2,1,开始。倒计时一完,我便睁开眼,就发现一个人,因为她还来不及躲好...开始游戏了,我和我的小伙伴们石头剪刀布,哈哈哈,王玉输了,她先数了60秒,我们全都藏起来了,突然一声:“哈哈哈……”我知道了,原来是高飞被王玉捉到了...

小学数学教学设计案例及反思5篇
1.知识与技能目标:借助已有的生活经验,学生自主认识新的时间单位“秒”,知道“1分=60秒”。 2.过程...(课件出示钟面,伴随着“滴答”声,让学生共同进行倒计时) 谈话:刚才,我们进行倒计时,像这样计量很短...③比一比,哪位学生不看时钟,每秒数一个数,看谁数得最准确。 ④小结:刚才,我们听到钟声“滴答”一声...

一个人在毫无防备的情况下,是不堪人一击的
人生就像是一个茶几\/ a> 7,摆满了杯具(悲剧)不再是什么都可以放下\/ a> 不远处从后面叫了一声,...生日礼物无所谓,你可以买一个礼物送给妈妈和爸爸。 - 103,闲下来的时候,放一段柔情音乐,翻阅几页一...你说开始的倒计时结束,天空,雨,雨伞,心脏雨,怎么办<\/不要伤害你是不是一个人,第二人,爱一个人...

科幻飞向太空作文
“天宫一号”是为了建造中国未来的太空站,“天宫一号”也就是中国2020年太空站的第一块“砖”、第一片“瓦”。发射时间进入了倒计时,60秒、50秒、30秒……10、9、8、7、6、5……随着一声“发射”,火箭底部熊熊的火焰燃烧起来,火箭缓缓地升了起来,渐渐地成为天空中的一个小小的光点……一分钟后,助推器分离...

一次有趣的游戏
游戏要开始了,老师告诉我们:“我们玩的是一个很有趣的游戏,游戏规则是我们每人手中都有一张卡牌,那张卡牌就代表着你们的号数,如果我叫到一个号数,那么那个人就要到讲台上写一句话,下一个人就要接下去写,到最后会给你们各自发言。为什么你们的句子会比他们的句子好,最后哪一个队的分数最高,那一队就会获得...

怎么才能让学生记住时分秒的认识??
2.使学生初步建立1分、1秒的时间观念。 学习重点: 时间单位“秒”的认识,知道1分=60秒。学习难点:让学生通过观察、探究分与秒之间的关系,收集有关时间的信息,培养学生的实践能力。 一、自主学习*1、看教材59页,这是春节联欢晚会现场。看墙上的大钟,你能告诉大家,现在是: 时分。 让我们一起来倒计时:10 8 ...

一个令人()的时刻(作文)
尤其是击缶倒数，当画面上的“30”与电视机屏幕右上角的时钟显示完全吻合的时候，那种和谐的变化同时又精确无误的场景让我心潮澎湃！在高亢鼓乐和震天欢呼声中，北京奥运会开幕式拉开帷幕。热情友好的中华儿女诚邀四海宾朋，我们欢迎你！在《历史的足迹》一幕中，象征奥运历史足迹的29个“巨人脚印”，用...

铃声响起作文
而爸爸呢,虽在异地他乡,心里却始终牵挂着我们姐妹两个,工作再忙,也要在双休日的时候给我们打电话,了解我们在家的情况,同时也告诉我们他的情况,打电话已成了我们父女交流情况的最佳途径,也是我们最幸福的时刻。 又是一个月光皎洁的夜晚,我再一次坐在电话机前,等待着铃声响起的时刻。 倒计时开始! “十、九、八...

科幻飞向太空作文
这时,只听到咚咚的脚步声,十分的响,于是我打开了门,看见了一个三头六臂的怪物,他尖叫了一声,把我吓晕了过去,当我睁开了眼,看见了爸爸在叫我起床,我...“天宫一号”是为了建造中国未来的太空站,“天宫一号”也就是中国2020年太空站的第一块“砖”、第一片“瓦”。发射时间进入了倒计时,60秒、50秒、30秒...

什么情景让你切切实实地感受到无比的恐惧?
在看电视玩游戏过程中会好一些，但只要一个人独处就又会这样。我刚开始以为是强迫症，但症状毫无原由。这几年下来恐惧的场景不断变化，有时候是坐在椅子上总觉得脚后面又东西顶着，就会出现凳子抵着小腿的场景还真会有顶着的感觉，非常痛苦，有时候恐惧的场景还会变化，比如会出现自己坠入悬崖的场景，...