（十一）Select....Case条件控制语句

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