Question

vb做一个控件显示当前，时间每隔1秒变换1次

Answer 1

利用时间控件timer，再插入一个label控件，用来显示时间；
将timer的时间间隔设为1000毫秒，即1秒。Now为显示当前时间
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Answer 2

讲一个每隔两秒变化一次的

在 form里直接设置

Private Sub Form_Load()
  Label1.Caption = Time
  timer1.Interval=2000
End Sub
Private Sub Timer1_Timer()
  Label1.Caption = Time
End Sub

完美！

Answer 3

Private Sub Form_Load()
Label1.Caption = Now
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Answer 4

'补充一种不使用timer的方法：
Do 'While 设置退出的条件，否则一直运行
Label1.Caption = Format(Now(), "hh:mm:ss")
DoEvents
Loop