Question

请问一vb题目，用计时器安秒计时，在窗体画一计时器控件和一标签程序

请问一vb题目，用计时器安秒计时，在窗体画一计时器控件和一标签程序运行后，在标签内显示经过秒数并响铃，代码怎么写啊

Answer 1

Dim t As Date
Private Sub Command1_Click()
  Timer1.Interval = 1000
  t = Time
End Sub

Private Sub Timer1_Timer()
  Label1.Caption = CDate(Time - t)
  Beep
End Sub