VB实现的倒计时类代码详解
本文所述为用VB制作倒计时程序用到的一个Module类代码，是基于控制台的倒计时程序，可供VB初学者或者VB爱好者参考学习，当然读者也可以将其拷贝代码到VB工程里面直接使用，不过需要自己创建相关的代码，对于初学者来说，也是很容易看懂的一段代码。
具体功能代码如下：
ModuleModule1
SubMain()
DimaAsDate
Dimh,m,sAsInteger
Dimn,iAsLong
Dimx,zAsLong
DimyAsLong
Console.WriteLine("本程序为倒计时程序，请分部输入需要倒数的小时数、分钟数、秒数")
Console.WriteLine("请输入计时的小时数（大于等于0的整数）：")
h=Console.ReadLine()
Console.WriteLine("请输入计时的总分钟数（大于等于0并且小于60的整数）：")
m=Console.ReadLine()
Console.WriteLine("请输入计时的秒数（大于等于0的并且小于60的整数）：")
s=Console.ReadLine()
Console.WriteLine("当前系统时间为：{0}",h)
a=Now()
Console.WriteLine("当前系统时间为：{0}",a)
Console.WriteLine("")
Console.WriteLine("**************倒计时开始*****************")
Console.WriteLine("**************倒计时开始*****************")
Console.WriteLine("**************倒计时开始*****************")
Console.WriteLine("**************倒计时开始*****************")
z=0
x=60
Fori=0Toh*3600+m*60+s
Forn=0To6000000
Fory=0To25
z=z+1
Next
Next
If(h<=0)And(m<=0)And(s<=0)ThenExitFor
Ifs>0Then
s=s-1
Console.WriteLine("剩余：{0}小时{1}分{2}秒",h,m,s)
If(h<=0)And(m<=0)And(s<=0)Then
Console.WriteLine("倒计时完毕，随意输入字符将退出程序：")
ExitFor
EndIf
EndIf
Ifs=0Then
Ifm>0Then
m=m-1
s=59
Console.WriteLine("剩余：{0}小时{1}分{2}秒",h,m,s)
EndIf
Ifm=0Andh>0Ands=0Then
h=h-1
m=59
s=59
Console.WriteLine("剩余：{0}小时{1}分{2}秒",h,m,s)
If(h<=0)And(m<=0)And(s<=0)Then
Console.WriteLine("倒计时完毕，随意输入字符将退出程序：")
ExitFor
EndIf
EndIf
EndIf
Next
Console.Read()
EndSub
EndModule