如何在VB中根据时间显示问候语?如:8:00-10:00显示早上好,11:00-12:00显示中午好,以此类推,谢谢.

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/05 22:00:36

如何在VB中根据时间显示问候语?如:8:00-10:00显示早上好,11:00-12:00显示中午好,以此类推,谢谢.
如何在VB中根据时间显示问候语?如:8:00-10:00显示早上好,11:00-12:00显示中午好,以此类推,谢谢.

如何在VB中根据时间显示问候语?如:8:00-10:00显示早上好,11:00-12:00显示中午好,以此类推,谢谢.
加一个时钟控件,代码:
Private Sub Timer1_Timer()
h = Hour(Now)
If h = 8 Or h = 9 Then
  Me.Caption = "早上好"
ElseIf h = 11 Or h = 12 Then
  Me.Caption = "中午好"
ElseIf h >= 18 And h <= 23 Then
  Me.Caption = "晚上好"
End If
End Sub