Option Explicit
Dim time_start


Private Sub Command1_Click()
   If Command1.Caption = "开始计时(&S)" Then
       time_start = Timer                           '将当前的秒数值保存在变量time_start中
       Command1.Caption = "停止计时(&C)"
       Timer1.Enabled = True
   ElseIf Command1.Caption = "停止计时(&C)" Then
       Command1.Caption = "开始计时(&S)"
       Timer1.Enabled = False
   End If
End Sub

Private Sub Command2_Click()
   Text1.Text = ""
   Text2.Text = ""
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
    Text2.Text = Timer - time_start     '计算显示的时间
End Sub

Private Sub Timer2_Timer()
    Text1.Text = Now
End Sub
 
在以上代码中有三个问题请教，请讲解，谢谢
1、time_start = Timer   能不能细致讲解下，不太明白。
2、Text2.Text = Timer - time_start   后面这一段也请讲解下，这是什么语法格式？
3、计时输出的结果能不能以00：00：00（时：分：秒）的格式输出。具体怎么做？


144页例题：
Private Sub Timer1_Timer()
    Randomize   '初始化随机数产生器
    Label3(0).Caption = Int(Rnd * 10 + 0)   ' 在Label3(0)中显示产生的一个0-10的随机数
    Label3(1).Caption = Int(Rnd * 10 + 0)   ' 在Label3(1)中显示产生的一个0-10的随机数
    Label3(2).Caption = Int(Rnd * 10 + 0)   ' 在Label3(2)中显示产生的一个0-10的随机数
    Label3(3).Caption = Int(Rnd * 10 + 0)   ' 在Label3(3)中显示产生的一个0-10的随机数
    Label3(4).Caption = Int(Rnd * 10 + 0)   ' 在Label3(4)中显示产生的一个0-10的随机数
End Sub
1、Randomize 去掉这一句也可以正常工作，它具体什么作用？能再举例说明下吗？谢谢
2、Label3(1).Caption = Int(Rnd * 10 + 0)   为什么后面要加上一个0？ 谢谢
再次感谢老师的帮助！愿论坛图书越卖越好！