VB实现的倒计时类代码详解
<p>本文所述为用VB制作倒计时程序用到的一个Module类代码，是基于控制台的倒计时程序，可供VB初学者或者VB爱好者参考学习，当然读者也可以将其拷贝代码到VB工程里面直接使用，不过需要自己创建相关的代码，对于初学者来说，也是很容易看懂的一段代码。</p><p>具体功能代码如下：</p>
<div class="jb51code">
<pre class="brush:xhtml;">
Module Module1
Sub Main()
Dim a As Date
Dim h, m, s As Integer
Dim n, i As Long
Dim x, z As Long
Dim y As Long
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
For i = 0 To h * 3600 + m * 60 + s
For n = 0 To 6000000
For y = 0 To 25
z = z + 1
Next
Next
If (h <= 0) And (m <= 0) And (s <= 0) Then Exit For
If s > 0 Then
s = s - 1
Console.WriteLine(" 剩余：{0}小时{1}分{2}秒", h, m, s)
If (h <= 0) And (m <= 0) And (s <= 0) Then
Console.WriteLine("倒计时完毕，随意输入字符将退出程序：")
Exit For
End If
End If
If s = 0 Then
If m > 0 Then
m = m - 1
s = 59
Console.WriteLine(" 剩余：{0}小时{1}分{2}秒 ", h, m, s)
End If
If m = 0 And h > 0 And s = 0 Then
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("倒计时完毕，随意输入字符将退出程序：")
Exit For
End If
End If
End If
Next
Console.Read()
End Sub
End Module</pre>
</div>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>简单易用的倒计时js代码</li><li>Android实现加载广告图片和倒计时的开屏布局</li><li>Delphi实现毫秒级别的倒计时实例代码</li><li>jquery实现倒计时代码分享</li><li>php+js实现倒计时功能</li><li>timespan使用方法详解</li><li>C#实现线程安全的简易日志记录方法</li><li>C#与js实现去除textbox文本框里面重复记录的方法</li><li>C#实现获取一年中是第几个星期的方法</li><li>C#基于TimeSpan实现倒计时效果的方法</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]