Question

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

很简单的，一个小软件，有秒表，显示当天日期和时间，在线等

Answer 1

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

Answer 2

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

Answer 3

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

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

只需要timer1和label1控件就行了

Answer 4

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

Dim m As Integer, s As Integer, ms As Integer, flag As Boolean
Private Sub Command1_Click()
If flag = False Then
Timer1.Interval = 1000
flag = True
Else
Timer1.Interval = 0
flag = False
End If
End Sub

Private Sub Command2_Click()
flag = False
Timer1.Interval = 0
m = 0
s = 0
ms = 0
Label1.Caption = "00:00:00"
End Sub

Private Sub Timer1_Timer()
ms = ms + 1
If ms = 100 Then
s = s + 1
ms = 0
End If
If s = 60 Then
m = m + 1
s = 0
End If
Label1.Caption = Format(m, "00:") & Format(s, "00:") & Format(ms, "00")
End Sub

---------------------------------------------------------------------
显示当天日期和时间：
一个Label控件和timer控件
Private Sub Form1_Load()
Timer1.Interval = 1
Label1.AutoSize = TRUE

Private Sub Timer1_Timer()
Label1.Caption = "现在是:" & date & "的" & time
End Sub

至于显示的文字可以通过设置Label1的Font来改变

Answer 5

很简单吧，就显示时间～～～

Answer 6

这么简单，有意找我。