Question

VB怎样编一个正计时程序？

要求：
有3个text

用text3正计时 秒
用text2正计时 分
用text1正计时 时

也就是
首先只在text3每秒+1，一只加到60后text3清零text2+1
当text2＝06然后text2清零

也就是这样！

Answer 1

不用这么麻烦,只要用两个控件就可以一个是text或caption,另一个就是timer.
将timer的时间间隔改成1000ms,在timer1中加入2句代码:
Private Sub Timer1_Timer()
text1.forntsize=50
text1.text=time
End Sub
完成
解释一下"text1.forntsize=50"这句的意思是text1控件的字号为50你也可以自己改."text1.text=time"这句的意思是每隔一秒将系统的时间显示在text中.

Answer 2

添加三个text，一个timer控件，一个command，为方便查看效果，先在三个text控件属性中设text3.text=55 ,text2.text=58 ,text1.text=00
以下是程序部分：

Dim ho As Integer, mi As Integer, sec As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
sec = 55
mi = 58
End Sub

Private Sub Timer1_Timer()
sec = sec + 1
If sec > 59 Then
sec = 0
mi = mi + 1
End If
If mi > 59 Then
mi = 0
ho = ho + 1
End If
Text1.Text = Format(sec, "00")
Text2.Text = Format(mi, "00")
Text3.Text = Format(ho, "00")
End Sub