谁能帮我做个VB小软件，重赏

来源：百度知道 编辑：UC知道 时间：2024/06/23 08:52:59
很简单的，一个小软件，有秒表，显示当天日期和时间，在线等

maIL TO HAPPYQ6@163.COM
i DO IT FOR YOU.

Dim I As Double

Private Sub Command1_Click()
I = 0
Label2.Caption = ""
Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 10
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

Private Sub Timer2_Timer()
I = I + 1
j = I \ 100
k = I Mod 100
Me.Label2.Caption = j & ":" & k & "S"
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

只需要timer1和label1控件就行了

秒表：一个标签，两个按钮，一个计时器。
'标签显示时间，按钮一控制秒表，按钮二清零。

Dim m As Integer, s As Integer, ms As Intege