Question

用VB编写一个显示当前日期和时间的程序

Answer 1

1.

Private Sub Form_Load()
Text1.Text = Now
End Sub

2.

Private Sub Timer1_Timer()
Text1.Text = Hour(Time) & ":"
Text2.Text = Minute(Time) & ":"
Text3.Text = Second(Time)
Text4.Text = Date
End Sub

==============
给你参考:
month(date)

day(date)

year(date)

second(time)

minute(time)

hour(time)

now

Answer 2

text1.text = Format(Date, "YYYY.MM.DD")
text2.text = Format(Time, "hh:mm:ss")

Answer 3

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub

Timer空间中的interval设置为1000