服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - VB - VB实现的倒计时类代码详解

VB实现的倒计时类代码详解

2021-10-10 22:36VB教程网 VB

这篇文章主要介绍了VB实现的倒计时类代码,非常实用的功能,需要的朋友可以参考下

本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码。

具体功能代码如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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

延伸 · 阅读

精彩推荐
  • VBVB实现的16位和32位md5加密代码分享

    VB实现的16位和32位md5加密代码分享

    这篇文章主要介绍了VB实现的16位和32位md5加密代码分享,需要的朋友可以参考下...

    VB.NET教程网8592021-10-08
  • VBVB键盘鼠标无动作调用程序的尝试

    VB键盘鼠标无动作调用程序的尝试

    这篇文章主要介绍了VB键盘鼠标无动作调用程序的尝试,记录下整个思路和过程,有需要的小伙伴可以参考下。...

    VB教程网4452021-10-15
  • VB分享如何在VB中调用VC编写的DLL

    分享如何在VB中调用VC编写的DLL

    一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中插入;还有一种是在VC中生成ActiveX Automation服务器...

    VB教程网4452021-10-07
  • VBVB返回记录集结果到HTML表格的方法

    VB返回记录集结果到HTML表格的方法

    这篇文章主要介绍了VB返回记录集结果到HTML表格的方法,实例分析了VB获取记录集与HTML表格生成的相关技巧,需要的朋友可以参考下...

    小卒过河10682021-10-15
  • VBVB的TextBox文本框实现垂直居中显示的方法

    VB的TextBox文本框实现垂直居中显示的方法

    这篇文章主要介绍了VB的TextBox文本框实现垂直居中显示的方法,比较实用的功能,需要的朋友可以参考下...

    VB教程网15092021-10-11
  • VBVB关机恶搞小程序

    VB关机恶搞小程序

    本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦...

    VB教程网10142021-10-16
  • VBVB6实现连接Access数据库的ADODB代码实现方法

    VB6实现连接Access数据库的ADODB代码实现方法

    这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下...

    VB教程网9832021-10-11
  • VBVB获取文件大小的方法

    VB获取文件大小的方法

    这篇文章主要介绍了VB获取文件大小的方法,可实现准确获取文件大小的功能,需要的朋友可以参考下...

    小卒过河13192021-10-15