vb 设计新建一个工程，完成“秒表计时”程序的设计，如图13-11所示。具体要求如下：

一秒的速度太慢，我给你设置了001秒

Option Explicit

Dim MinSec As Integer

Dim Sec As Integer

Dim Minute As Integer

Dim Hour As Integer

Private Sub Command1_Click() '开始

Timer1Enabled = True

End Sub

Private Sub Command2_Click() '停止

Timer1Enabled = False

MsgBox "现在是" & Label2Caption

End Sub

Private Sub Command3_Click() '取消

Timer1Enabled = False

Hour = 0

Minute = 0

MinSec = 0

Sec = 0

Label2Caption = Format(Hour, "00") & "时" & Format(Minute, "00") & "分" & Format(Sec, "00") & "秒" & Format(MinSec, "00")

End Sub

Private Sub Form_Load()

Timer1Enabled = False

Timer1Interval = 10

End Sub

Private Sub Timer1_Timer()

MinSec = MinSec + 1

If MinSec = 100 Then

MinSec = 0

Sec = Sec + 1

If Sec = 60 Then

Sec = 0

Minute = Minute + 1

If Minute = 60 Then

Minute = 0

Hour = Hour + 1

Else

End If

Else

End If

Else

End If

Label2Caption = Format(Hour, "00") & "时" & Format(Minute, "00") & "分" & Format(Sec, "00") & "秒" & Format(MinSec, "00")

End Sub

第一步，打开vb

第二部，添加一个计时器timer，一个文字标签label

第三部，输入代码，代码如下

Private Sub Form_Load()

picClockMove (MeScaleWidth - 8 210) / 2, (MeScaleHeight - 315) / 2, 8 210, 315

Dim i&

For i = 0 To 7

picClockPaintPicture picNumberPicture, i 210, 0, 210, 315, IIf((i = 2) Or (i = 5), 12, 10) 210, 0, 210, 315

Next i

End Sub

Private Sub Timer1_Timer()

Dim cNow$, i&

cNow = Format(Now, "hh:mm:ss")

For i = 0 To 7

If Mid(cNow, i + 1, 1) <> ":" Then

picClockPaintPicture picNumberPicture, i 210, 0, 210, 315, Val(Mid(cNow, i + 1, 1)) 210, 0, 210, 315

End If

Next i

End Sub

望采纳

上面的代码错了，下面是正确代码

Private Sub Form_Load()

Timer1Enabled = True

Timer1Interval = 300

End Sub

Private Sub Timer1_Timer()

Label1 = Now

End Sub

代码如下：

Private x As Double

Private Sub Form_Load()

    Timer1Interval = 100

    Timer1Enabled = False

End Sub

Private Sub Command1_Click()

    Timer1Enabled = True

End Sub

Private Sub Command2_Click()

    Timer1Enabled = False

End Sub

Private Sub Command3_Click()

    Timer1Enabled = False

    x = 0

End Sub

Private Sub Timer1_Timer()

    x = Round((x + 01), 1)

    If x < 1 Then Text1 = "0" & x Else Text1 = x

End Sub

加入以下代码：

Private Sub Form_Load()

Text1Text = Now

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1Text = Now

End Sub

扩展资料：

VB获取系统当前时间并格式化输出

用到的函数：

Date函数：返回系统的日期

Now函数：返回系统的日期和时间

Format函数：根据格式表达式来格式化数据

实例：

Private Sub Form_Load()

'设置同步时间显示

Timer1Interval = 1000

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2Caption = Format(Now, "hh:mm:ss")            '获取当前时间

Label4Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期

Label6Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间

End Sub

网上独此一家，就易通教程网有，自己去下载！

易通教程网

葛军VB教程打包下载

第一章、Visual Basic程序开发环境

1、前言 2、VB的特点与版本 3、VB的启动与退出

4、VB的主窗口 5、VB的其他窗口

第二章、对象及其 *** 作

1、对象 2、窗体(1) 3、窗体(2)

4、窗体(3) 5、窗体(4) 6、窗体(5)

7、窗体(6) 8、窗体(7) 9、窗体(8）

10、窗体(9) 11、窗体(10) 12、控件

13、控件的画法和基本 *** 作 14、课后习题

第三章、简单程序设计

1、VB中的语句(1) 2、VB中的语句(2) 3、编写简单的VB程序(1)

4、编写简单的VB程序(2) 5、编写简单的VB程序(3) 6、编写简单的VB程序(4)

7、编写简单的VB程序(5) 8、程序的保存装入和运行 9、VB应用程序的结构与工作方式

10、课后习题

第四章、Visual Basic程序设计基础

1、数据类型(1) 2、数据类型(2) 3、数据类型(3)

4、常量和变量(1) 5、常量和变量(2) 6、常量和变量(3)

7、常量和变量(4) 8、常量和变量(5) 9、常量和变量(6)

10、变量的作用域(1) 11、变量的作用域(2) 12、常用内部函数(1)

13、常用内部函数(2) 14、常用内部函数(3) 15、常用内部函数(4)

16、常用内部函数(5) 17、字符处理与字符串函数(1) 18、字符处理与字符串函数(2)

19、字符处理与字符串函数(3) 20、字符处理与字符串函数(4) 21、运算符与表达式(1)

22、运算符与表达式(2) 23、运算符与表达式(3) 24、运算符与表达式(4)

25、运算符与表达式(5) 26、课后习题

第五章、数据的输入、输出

1、Print方法(1) 2、Print方法(2) 3、Print方法(3)

4、与print方法有关的函数(1) 5、与print方法有关的函数(2) 6、与print方法有关的函数(3)

7、格式输出(1) 8、格式输出(2) 9、格式输出(3)

10、格式输出(4) 11、格式输出(5) 12、其他方法和属性(1)

13、其他方法和属性(2) 14、其他方法和属性(3) 15、其他方法和属性(4)

16、其他方法和属性(5) 17、其他方法和属性(6) 18、其他方法和属性(7)

19、其他方法和属性(8) 20、其他方法和属性(9) 21、其他方法和属性(10)

22、其他方法和属性(11) 23、InputBox函数(1) 24、InputBox函数(2)

25、InputBox函数(3) 26、InputBox函数(4) 27、MsgBox函数和MsgBox语句(1)

28、MsgBox函数和MsgBox语句(2) 29、MsgBox函数和MsgBox语句(3) 30、MsgBox函数和MsgBox语句(4)

31、MsgBox函数和MsgBox语句(5) 32、MsgBox函数和MsgBox语句(6) 33、字形(1)

34、字形(2) 35、字形(3) 36、打印机输出

37、课后习题

第六章 常用标准控件

1、文本控件(1) 2、文本控件(2)

3、文本控件(3)

4、文本控件(4)

5、文本控件(5)

6、文本控件(6)

7、文本控件(7)

8、文本控件(8)

9、文本控件(9)

10、文本控件(10) 11、图形控件(1) 12、图形控件(2)

13、图形控件(3) 14、图形控件(4) 15、图形控件(5)

16、图形控件(6) 17、图形控件(7) 18、图形控件(8)

19、按钮控件(1) 20、按钮控件(2) 21、按钮控件(3)

22、选择控件—

复选框和单选按钮(1) 23、选择控件—

复选框和单选按钮(2) 24、选择控件—

列表框和组合框(1)

25、选择控件—

列表框和组合框(2) 26、选择控件—

列表框和组合框(3) 27、选择控件—

列表框和组合框(4)

28、选择控件—

列表框和组合框(5) 29、选择控件—

列表框和组合框(6) 30、选择控件—

列表框和组合框(7)

31、滚动条(1) 32、滚动条(2) 33、滚动条(3)

34、计时器 35、框架(1) 36、框架(2)

37、焦点与Tab顺序(1) 38、焦点与Tab顺序(2) 39、焦点与Tab顺序(3)

40、课后习题

第七章、Visual Basic的控制结构

1、选择控制结构(1) 2、选择控制结构(2) 3、选择控制结构(3)

4、选择控制结构(4) 5、选择控制结构(5) 6、选择控制结构(6)

7、选择控制结构(7) 8、多分支控制结构(1) 9、多分支控制结构(2)

10、多分支控制结构(3) 11、for循环控制结构(1) 12、for循环控制结构(2)

13、for循环控制结构(3) 14、for循环控制结构(4) 15、for循环控制结构(5)

16、for循环控制结构(6) 17、for循环控制结构(7) 18、for循环控制结构(8)

19、for循环控制结构(9) 20、for循环控制结构(10) 21、当循环控制结构(1)

22、当循环控制结构(2) 23、do循环控制结构(1) 24、do循环控制结构(2)

25、do循环控制结构(3) 26、多重循环(1) 27、多重循环(2)

28、出口语句 29、GoTo控制语句(1) 30、GoTo控制语句(2)

31、课后习题

第八章、数组

1、数组的概念 2、静态与动态数组 3、数组的基本 *** 作

4、数组的初始化 5、控件数组

第九章、过程

1、Sub过程 2、Function过程 3、可选参数与可变参数

4、对象参数 5、局部内存分配 6、Shell函数

第十章、菜单与对话框

1、菜单编辑器 2、菜单项的控制 3、d出式菜单

4、菜单项增减 5、通用对话框 6、其它对话框

第十一章、多重窗体程序设计与环境应用

1、建立多重窗体应用程序 2、多重窗体程序的执行与保存 3、Visual Basic的工程结构

4、闲置循环与DoEvents语句

第十二章、键盘与鼠标事件过程

1、KeyPress事件 2、鼠标事件 3、鼠标光标的形状

4、拖放

第十三章、数据文件

1、文件的结构与分类 2、文件的打开与关闭 3、顺序文件(1)

4、顺序文件(2) 5、顺序文件(3) 6、顺序文件(4)

7、随机文件(1) 8、 随机文件(2) 9、 随机文件(3)

10、 文件系统控件 11、 文件基本 *** 作

以上就是关于vb 设计新建一个工程，完成“秒表计时”程序的设计，如图13-11所示。具体要求如下：全部的内容，包括:vb 设计新建一个工程，完成“秒表计时”程序的设计，如图13-11所示。具体要求如下：、怎样用VB编写电子时钟还要带上秒表计时器！、怎样用VB做一个秒表计时器等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！