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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/26 23:06:59
如何在VB中根据时间显示问候语?如:8:00-10:00显示早上好,11:00-12:00显示中午好,以此类推,谢谢.
x){ީOszc;{6}[|ɮ=mbZ{{fYXI+zt!X.4ioH.yq:/6,"="]f}ߵɎ';V4Y'/~hXM@QfYbIZ^RqupiZd44 2 R#H/*FUdIZBH̓CHT=Ă<=j%Pp!]sS3 v< C-n4HRP03ga Uih/.H̳%W?$

如何在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