vb倒计时源程序代码
更新时间:2024-05-04 18:23:01 阅读量: 综合文库 文档下载
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}\
a = Now()
Console.WriteLine(\当前系统时间为:{0}\
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}秒\
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}秒 \
End If
If m = 0 And h > 0 And s = 0 Then h = h - 1 m = 59 s = 59
Console.WriteLine(\ 剩余:{0}小时{1}分{2}秒 \
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
正在阅读:
vb倒计时源程序代码05-04
现场总线CANopen学习笔记一09-15
人大附中新初一分班考试真题之105-15
县公安局工作总结和2022年工作规划08-02
福建省宁化城东中学2016届九年级上学期期中考试化学试题(无答案)01-14
饼干大作战作文300字07-02
我家的夜晚作文400字06-26
守岁作文500字06-28
我渴望得到一双翅膀作文450字07-08
混凝土搅拌站试验员培训教材08-13
- 中级财务会计章练习题及案例12bc
- 高速公路监理规划
- 毛概复习资料之实事求是思想路线
- FIDIC合同条款解读-17-19风险管理
- 齐齐哈尔医学院内外妇儿大题题库
- 中国投影电视行业发展研究报告 - 图文
- 2017考研英语阅读常见7种题型总结
- 重庆大学2012年本科毕业生毕业设计施工组织设计
- 互感器现场检验设备的故障处理
- 中考物理模拟计算题电功和电功率(十三)含答案与解析
- 证券从业资格证考试的部分题 - 图文
- 免费语文教案006:心音共鸣 写触动心灵的人和事
- 士林华苑商住楼建筑给水排水优秀毕业设计 - 图文
- 2015年结婚吉日一览表
- 豫政〔2005〕49号 河南省人民政府贯彻国务院关于全面整顿和规范
- SQL语句大全
- 光立方成功制作资料累积 - 图文
- C语言113道题目
- 语音放大电路设计 - 图文
- 地墙钢筋笼吊装方案