求vb编程

来源：百度知道 编辑：UC知道 时间：2024/05/13 15:46:25
当运行程序时,会根据当前的系统时间,在窗体上相应地显示"早上好！"、“下午好！”或“晚上好！”。

先加个时间控件
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
If Time(Now) < #12:00:00 PM# Then '判断时间在输出语句
Text1.Text = "早上好"
ElseIf Time(Now) < #6:00:00 PM# Then
Text1.Text = "下午好"
Else: Text1.Text = "晚上好"
End If
End Sub

这还不简单啊 now是当前系统时间 你判断一下是上午是下午还是晚上把结果显示到窗体上就OK了