vb中用case编写一个周活动

如题所述

Select Case Weekday(Date())
Case 1
    MsgBox "今天是星期日，活动内容是……"
Case 2
    MsgBox "今天是星期一，活动内容是……"
Case 3
    MsgBox "今天是星期二，活动内容是……"
Case 4
    MsgBox "今天是星期三，活动内容是……"
Case 5
    MsgBox "今天是星期四，活动内容是……"
Case 6
    MsgBox "今天是星期五，活动内容是……"
Case 7
    MsgBox "今天是星期六，活动内容是……"
End Select

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s27q478ps422p447s2.html