Question

用vb程序设计一个电子时钟

参照运行时界面完成界面设计。（2）设计两个定时器，Timer1用于显示系统时间，时间间隔为1秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可使用。（3）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。（5）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过闹钟时间，则标签Label1的背景色按红白两色交替变换。

Answer 1

label字体什么的自己改吧，主要功能实现了
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Timer2.Enabled = False
Timer2.Interval = 500

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not IsDate(Text1.Text) Then
MsgBox "时间格式错误，正确应为HH:MM:SS"
Else
Text1.Locked = True
Timer2.Enabled = True
End If
End If
End Sub

Private Sub Timer2_Timer()
Dim lTime As Integer
Static LblColor As Boolean
lTime = DateDiff("s", Time, Text1.Text)
If lTime <= 0 Then
If LblColor = True Then
Label1.BackColor = vbRed
LblColor = False
Else
Label1.BackColor = vbWhite
LblColor = True
End If
End If
End Sub