怎样用VB编一个计时程序

Question

具体思想如为:
画一个命令按钮,标题为"开始",一个计时器和标签控件.程序运行后,当点击"开始"按钮,则标签显示0:0:0,秒钟开始计时,请各位老师指教,谢谢!

Answer 1

http://www.applevb.com/art/timing.htm
http://search.csdn.net/expert/topic/51/5103/2001/11/25/387172.htm

Answer 2

Dim Second As Integer, TenSecond As Integer
Dim Minute As Integer, TenMinute As Integer
Dim Hour As Integer, TenHour As IntegerPrivate Sub Form_Load()
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()Second = Second + 1
If Second = 10 Then
   Second = 0
   TenSecond = TenSecond + 1
      If TenSecond = 6 Then
         TenSecond = 0
         Minute = Minute + 1
            If Minute = 10 Then
               Minute = 0
               TenMinute = TenMinute + 1
                 If TenMinute = 6 Then
                    TenMinute = 0
                    Hour = Hour + 1
                      If Hour = 10 Then
                         Hour = 0
                         TenHour = TenHour + 1
                           If TenHour = 10 Then
                              TenHour = 0
                           End If
                       End If
                   End If
              End If
         End If
  End If
  Me.Cls
  Me.Print TenHour & Hour & ":" & TenMinute & Minute & ":" & TenSecond & Second
End Sub

Answer 3

Option Explicit
Dim starttime As Double
Dim i As Double
Private Sub Command1_Click()
    starttime = Time
    Timer1.Enabled = True
End SubPrivate Sub Form_Load()
    Me.Timer1.Interval = 1000
    Me.Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
    i = Time - starttime
    Me.Label1.Caption = CStr(CDate(i))
End Sub

Answer 4

to :evbsky(梁溪河畔) 
我想写和你一样的代码 ,好在没有写 不然好没有面子!

Answer 5

回复人： 01order(天使恋) ( ) 信誉：100  2003-12-11 22:22:00  得分:0 
 
 
  to :evbsky(梁溪河畔) 
我想写和你一样的代码 ,好在没有写 不然好没有面子!
   
------------------------------------------------------------
因为是别人问，所以我不会写这个，因为嫌费事哈，你也是因为懒吧