Question

vb问本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变

Answer 1

放一定时器控件 

Private Sub Timer1_Timer()

Timer1.Enabled = True

Timer1.Interval = 100

Text1.Text = Time()

End Sub

Answer 2

添加一个定时器timer1
把属性Interval的值设置为1000
添加以下代码
Private Sub Timer1_Timer()
Text1.Text = Now
End Sub

Answer 3

添加一个timer控件，一个text控件
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.text = Time$
End Sub

Answer 4

用到Timer控件 .Interval设置为1000
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

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

Answer 5

'''''''''''timer控件
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
'''''''''text控件
Private Sub Timer1_Timer()
Text1.text = Time
End Sub