Question

vb设计一个多功能计时器，时钟，秒表，倒计时功能，LED风格，程序启动时，首先进入时钟模式

秒表模式下，开始按钮按下之后变为暂停，回零无效。暂停按下后，变为继续

Answer 1

frmTimer窗体控件：
commandbutton * 2
picturebox * 1
pictureclip(注：图片剪切控件) * 1
timer * 3
（注：此处只给出了控件类型，控件名祥见代码）
frmTimer 的代码
Option Explicit
Public t As Integer, str As String
Public h As Integer, m As Integer, s As Integer

Private Sub Show_LED(picTimer As PictureBox, str As String)
'显示图片的通用过程
Dim s As String * 1
Dim pos As Integer
Dim n As Integer
Dim i As Integer
For i = 1 To Len(str)
s = Mid(str, i, 1)
n = -1
Select Case s
Case "0" To "9"
n = CInt(s)
Case ":"
n = 10
Case "-"
n = 11
Case "."
n = 12
Case "a", "A"
n = 13
Case "p", "P"
n = 14
Case " "
n = 15
End Select
If n <> -1 Then
picTimer.PaintPicture PCTimer.GraphicCell(n), pos, 0
pos = pos + 300
End If
Next
End Sub

Private Sub cmdRestart_Click() '秒表的回零
h = 0
m = 0
s = 0
str = ""
cmdStart.Caption = "开始"
Timer1.Enabled = False: str = "00:00:00"
Cls
Call Show_LED(picTimer, str)
End Sub

Private Sub cmdStart_Click() '秒表的开始和暂停控制
If cmdStart.Caption = "开始" Then
h = 0
m = 0
s = 0
cmdStart.Caption = "暂停"
Timer1.Enabled = True
cmdRestart.Enabled = False
Exit Sub
ElseIf cmdStart.Caption = "暂停" Then
cmdStart.Caption = "继续"
Timer1.Enabled = False
cmdRestart.Enabled = True
Exit Sub
Else
cmdStart.Caption = "暂停"
Timer1.Enabled = True
cmdRestart.Enabled = False
Exit Sub
End If
End Sub

Private Sub Form_Load() '窗体加载
Call mnuClock_Click
End Sub

Private Sub mnuClock_Click() '时钟
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer2.Enabled = False
cmdStart.Visible = False
cmdRestart.Visible = False
frmTimer.Caption = "时钟"
Timer3.Enabled = True
picTimer.Visible = True
Cls
End Sub
Private Sub mnuCuntDwnClock_Click() '倒计时
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer3.Enabled = False
cmdStart.Visible = False
cmdRestart.Visible = False
frmSet.Visible = True
frmTimer.Caption = "倒计时钟"
picTimer.Visible = True
End Sub

Private Sub mnuExit_Click() '退出选项
Unload frmTimer: Unload frmSet
End Sub

Private Sub mnuStopwatch_Click() '秒表
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
cmdStart.Visible = True
cmdRestart.Visible = True
frmTimer.Caption = "秒表"
picTimer.Visible = True
End Sub

Private Sub Timer1_Timer() '秒表计时过程
str = ""
s = s + 1
If s = 100 Then '秒表数字显示的处理
s = 0
m = m + 1
If m = 60 Then
m = 0
h = h + 1
If h = 24 Then
h = 0
End If
End If
End If

If h < 10 Then '数字显示格式的处理
str = str & 0 & h
Else: str = str & h
End If
If m < 10 Then
str = str & ":" & 0 & m
Else: str = str & ":" & m
End If
If s < 10 Then
str = str & ":" & 0 & s
Else: str = str & ":" & s
End If
Cls
Call Show_LED(picTimer, str)
End Sub

Private Sub Timer2_Timer() '倒计时计时过程
picTimer.Cls
str = ""
t = h * 3600 + m * 60 + s
If t >= 1 Then
s = s - 1
If s = -1 Then
s = 59
m = m - 1
End If
If m = -1 Then
m = 59
h = h - 1
End If
If h < 10 Then
str = str & "0" & h
Else
str = str & ":" & h
End If
If m < 10 Then
str = str & ":" & "0" & m
Else
str = str & ":" & m
End If
If s < 10 Then
str = str & ":" & "0" & s
Else
str = str & ":" & s
End If
Cls
Call Show_LED(picTimer, str)
Else
picTimer.Visible = False
Cls
frmTimer.Print "时间到"
Timer2.Enabled = False
End If
End Sub

Private Sub Timer3_Timer() '时钟显示过程
str = CStr(Now)
Call Show_LED(picTimer, str)
Cls
End Sub
frmTimer窗体控件：
text * 3
commandbuton * 1
label * 3
(注：控件名称参照代码)
frmSet 的代码
Option Explicit

Private Sub cmdCuntStart_Click()
frmTimer.h = Val(txtInput(0))
frmTimer.m = Val(txtInput(1))
frmTimer.s = Val(txtInput(2))
If frmTimer.h + frmTimer.m + frmTimer.s = 0 Then
Call MsgBox("输入错误，请重新输入", 48, "多功能计时器")
Else
frmTimer.Timer2.Enabled = True
Unload frmSet
End If
End Sub

Answer 2

现在有没有解决，如果解决了能不能给我发一下，谢谢，一定给积分

Answer 3

现在做晚不晚