3个"text",分别是当前时间，结束时间和经过时间，两个"command"是"开始"和"结束"。谁会编啊！

Question

快啊！

Answer 1

Private Sub Command1_Click()
Text1.Text = Time
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
Text3.Text = Time
End SubPrivate Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()
Static a As Integer
Text2.Text = a
a = a + 1
End Sub
text2是秒数

Answer 2

Dim time1, time2Private Sub Command1_Click()
time1 = Now
End SubPrivate Sub Command2_Click()
time2 = Now
Text2.Text = "结束时间: " + CStr(time2)
Text3.Text = "经过时间: " + CStr(time2 - time1)
End SubPrivate Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Text1.Text = "当前时间:  " + CStr(Now)
End Sub不知道你要编什么

Answer 3

'加一个Timer,两个Command,三个Text
Private Sub Command1_Click()
    Text1 = Time
    Text2 = ""
    Command1.Enabled = False
    Command2.Enabled = True
End SubPrivate Sub Command2_Click()
    Text2 = Time
    Command1.Enabled = True
    Command2.Enabled = False
End SubPrivate Sub Form_Load()
    Timer1.Interval = 1
    Text1 = ""
    Text2 = ""
    Command1.Caption = "开始"
    Command2.Caption = "结束"
    Command2.Enabled = False
End SubPrivate Sub Timer1_Timer()
    Text3 = Time
End Sub

Answer 4

就 Time 控件。不过有很多人答了，来晚了

Answer 5

虽然晚上，但是也把我写的贴上去吧，看能否能你有帮助：
Dim start_t
Dim end_t
Dim past_t
Dim temp_tPrivate Sub Command1_Click()
    start_t = Now
    Label1.Caption = Format(start_t, "HH:MM:SS")
    Label3.Caption = "00:00:00"
    Command2.Enabled = True
    Command1.Enabled = False
    Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
    end_t = Now
    past_t = end_t - start_t
    Label2.Caption = Format(end_t, "HH:MM:SS")
    Label3.Caption = Format(past_t, "HH:MM:SS")
    Command1.Enabled = True
    Command2.Enabled = False
    Timer1.Enabled = False
End SubPrivate Sub Form_Load()
    Command2.Enabled = False
    Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
    temp_t = Now
    past_t = temp_t - start_t
    Label2.Caption = Format(temp_t, "HH:MM:SS")
    Label3.Caption = Format(past_t, "HH:MM:SS")
End Sub

Answer 6

楼主，你写这个干什么用？我很有兴趣知道这个答案—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip