Question

用VB设计一个秒表程序

运行时单击“开始”按钮，秒表开始计时；单击“停止”按钮，停止计时；单击“清空”按钮，秒表清零。要求计时精度达到0.01秒。

Answer 1

Option Explicit
Dim MinSec As Integer
Dim Sec As Integer
Dim Minute As Integer
Dim Hour As Integer
Private Sub Command1_Click() '开始按钮
Timer1.Enabled = True
End SubPrivate Sub Command2_Click() '停止
Timer1.Enabled = False
End SubPrivate Sub Command3_Click() '清除
Timer1.Enabled = False
Hour = 0
Minute = 0
MinSec = 0
Sec = 0
Label1.Caption = Format(Hour, "00") & "时" & Format(Minute, "00") & "分" & Format(Sec, "00") & "秒" & Format(MinSec, "00")
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
Form1.Caption = "秒表"
Command1.Caption = "开始"
Command2.Caption = "停止"
Command3.Caption = "清除"
End SubPrivate 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
Label1.Caption = Format(Hour, "00") & "时" & Format(Minute, "00") & "分" & Format(Sec, "00") & "秒" & Format(MinSec, "00")
End Sub

Answer 2

我写了个 显示是用的标签 开始和停止是用的一个按纽 还有一个时钟 一个清除的 代码:Option ExplicitPrivate Sub Command1_Click()
If Command1.Caption = "开始" Then
Dim StartTimer!, GTimer!, GDay%
Command1.Caption = "停止"
StartTimer = Timer
10 DoEvents
If GTimer <= -0.001 Then GDay = GDay + 1 '此处之所以不用<0而用<=0.001，就是为了防止出现刚点击就多了24小时的现象。
GTimer = Timer + 86400 * GDay - StartTimer
Label1.Caption = Format(Int(GTimer / 3600), "00") & ":" & Format(Int((GTimer Mod 3600) / 60), "00") & ":" & Format(Int(GTimer Mod 60), "00") & ":" & Format(Int((GTimer - Int(GTimer)) * 1000), "000")
If Command1.Caption = "停止" Then GoTo 10
Else
Command1.Caption = "开始"
End If
End SubPrivate Sub Command2_Click()
Label1.Caption = "00.00.00"
End SubPrivate Sub Form_Load()
Command1.Caption = "开始"
End Sub