用VB制作一程序，界面如下，功能是显示当前的时间！

Question

如题所述

Answer 1

代码如下：
Private Sub Command1_Click()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
End Sub
Private Sub Command2_Click()
End
End Sub
如果希望时间会动，可以在窗体中再画一个计时器，Enabled属性设置为False，Interval属性设置为1000，然后代码修改为（这样单击查看当前时间时时间开始变化，单击结束时时间停止变化）：
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
End Sub

Answer 2

在窗体再画一个计时器，Enabled属性为False，Interval属性为1000，然后编写以下代码,这样单击查看当前时间，时间开始变化，单击结束则时间停止变化。
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
End Sub
如果仅仅是单击查看当前时间时显示时间，单击结束时结束程序，代码可改为：
Private Sub Command1_Click()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
End Sub
Private Sub Command2_Click()
End
End Sub本回答被网友采纳

Answer 3

Private Sub Command1_Click()
Text1 = Hour(Time)
Text2 = Minute(Time)
Text3 = Second(Time)
End Sub

Answer 4

这个很好做的...要是要做,加我QQ:199263386