设计vb程序，能显示出今天是星期几
设计vb程序，能显示出今天是星期几（实用weekday（now）函数），跪求高手~~~~~~~~...
设计vb程序，能显示出今天是星期几（实用weekday（now）函数），跪求高手~~~~~~~~
展开
展开全部
Private Sub Form_Load()
Dim a As Integer
a = Weekday(Now(), vbMonday)
Select Case a
Case 1
Me.Caption = "今天是星期一"
Case 2
Me.Caption = "今天是星期二"
Case 3
Me.Caption = "今天是星期三"
Case 4
Me.Caption = "今天是星期四"
Case 5
Me.Caption = "今天是星期五"
Case 6
Me.Caption = "今天是星期六"
Case 7
Me.Caption = "今天是星期日"
End Select
End Sub
Dim a As Integer
a = Weekday(Now(), vbMonday)
Select Case a
Case 1
Me.Caption = "今天是星期一"
Case 2
Me.Caption = "今天是星期二"
Case 3
Me.Caption = "今天是星期三"
Case 4
Me.Caption = "今天是星期四"
Case 5
Me.Caption = "今天是星期五"
Case 6
Me.Caption = "今天是星期六"
Case 7
Me.Caption = "今天是星期日"
End Select
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
ZESTRON
2025-02-18 广告
在Dr. O.K. Wack Chemie GmbH，我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质，为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
