admin 管理员组文章数量: 1184232
2024年1月23日发(作者：oracle删除触发器)
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
ine("本程序为倒计时程序，请分部输入需要倒数的小时数、分钟数、秒数")
ine("请输入计时的小时数（大于等于0的整数）：")
h = ne()
ine("请输入计时的总分钟数（大于等于0并且小于60的整数）：")
m = ne()
ine("请输入计时的秒数（大于等于0的并且小于60的整数）：")
s = ne()
ine("当前系统时间为：{0}", h)
a = Now()
ine("当前系统时间为：{0}", a)
ine("
")
ine(" **************倒计时开始***************** ")
ine(" **************倒计时开始***************** ")
ine(" **************倒计时开始***************** ")
ine(" **************倒计时开始***************** ")
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
ine(" 剩余：{0}小时{1}分{2}秒", h, m, s)
If (h <= 0) And (m <= 0) And (s <= 0) Then
ine("倒计时完毕，随意输入字符将退出程序：")
Exit For
End If
End If
If s = 0 Then
If m > 0 Then
m = m - 1
s = 59
ine(" 剩余：{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
ine(" 剩余：{0}小时{1}分{2}秒 ", h, m, s)
If (h <= 0) And (m <= 0) And (s <= 0) Then
ine("倒计时完毕，随意输入字符将退出程序：")
Exit For
End If
End If
End If
Next
()
End Sub
End Module
版权声明：本文标题：vb倒计时源程序代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1705984192a496684.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论