Option Explicit
Dim vday
vday =Weekday(Date)
Select Case vday
Case 1
Msgbox "今天是周日"
Case 2
Msgbox "今天是周一"
Case 3
Msgbox "今天是周二"
Case 4
Msgbox "今天是周三"
Case 5
Msgbox "今天是周四"
Case 6
Msgbox "今天是周五"
Case Else
Msgbox "今天是周六"
End Select
(十一)Select....Case条件控制语句
猜你喜欢
转载自blog.csdn.net/jiangshangchunjiezi/article/details/80633619
今日推荐
周排行