T T
Dim x As Integer
2 Private Sub Timer1_Timer()
3 Timer1.Enabled = True
4 Dim wenhou As String
5 Select Case Time
6 Case #6:00:00 AM# To #7:59:59 AM#
7 wenhou = "同学们早上好！"
8 Case #8:00:00 AM# To #11:59:59 AM#
9 wenhou = "同学们上午好！"
10 Case #12:00:00 PM# To #1:59:59 PM#
11 wenhou = "同学们中午好！"
12 Case #2:00:00 PM# To #5:59:59 PM#
13 wenhou = "同学们下午好！"
14 Case Else
15 wenhou = "同学们晚上好！"
16 End Select
17 Label3.Caption = Date
18 Label4.Caption = Time
19 Label5.Caption = wenhou
20 Label1.Top = Label1.Top + 14
21 If Label1.Top = 400 Then Label1.Top = -1000
22 x = x + 1
23 Select Case x
24 Case 100
25 Label1.Caption = "做诚信有为的人"
26 Case 200
27 Label1.Caption = "认真做好你的事"
28 Case 300
29 Label1.Caption = "开心快乐每一天"
30 End Select
31 If x = 300 Then x = 0
32 End Sub