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("本程序?yàn)榈褂?jì)時(shí)程序，請分部輸入需要倒數(shù)的小時(shí)數(shù)、分鐘數(shù)、秒數(shù)") 
Console.WriteLine("請輸入計(jì)時(shí)的小時(shí)數(shù)（大于等于0的整數(shù)）：") 
h = Console.ReadLine() 
Console.WriteLine("請輸入計(jì)時(shí)的總分鐘數(shù)（大于等于0并且小于60的整數(shù)）：") 
m = Console.ReadLine() 
Console.WriteLine("請輸入計(jì)時(shí)的秒數(shù)（大于等于0的并且小于60的整數(shù)）：") 
s = Console.ReadLine() 
Console.WriteLine("當(dāng)前系統(tǒng)時(shí)間為：{0}", h) 
a = Now() 
Console.WriteLine("當(dāng)前系統(tǒng)時(shí)間為：{0}", a) 
Console.WriteLine(" ") 
Console.WriteLine(" **************倒計(jì)時(shí)開始***************** ") 
Console.WriteLine(" **************倒計(jì)時(shí)開始***************** ") 
Console.WriteLine(" **************倒計(jì)時(shí)開始***************** ") 
Console.WriteLine(" **************倒計(jì)時(shí)開始***************** ") 
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}小時(shí){1}分{2}秒", h, m, s) 
If (h <= 0) And (m <= 0) And (s <= 0) Then 
Console.WriteLine("倒計(jì)時(shí)完畢，隨意輸入字符將退出程序：") 

Exit For 
End If 
End If 
If s = 0 Then 
If m > 0 Then 
m = m - 1 
s = 59 
Console.WriteLine(" 剩余：{0}小時(shí){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}小時(shí){1}分{2}秒 ", h, m, s) 
If (h <= 0) And (m <= 0) And (s <= 0) Then 
Console.WriteLine("倒計(jì)時(shí)完畢，隨意輸入字符將退出程序：") 
Exit For 
End If 
End If 
End If 
Next 
Console.Read() 
End Sub 
End Module