不知道CASE這個語句和IF有什么不同 現在我只會IF 請教大家關于CASE語句的問題 例如以下的這個代碼中星期的體現是什么原理?Private Sub Timer1_Timer()Dim xq As StringSelect Case Weekday(Date$) - 1Case 0xq = "日"Case 1xq = "一"Case 2xq = "二"Case 3xq = "三"Case 4xq = "四"Case 5xq = "五"Case 6xq = "六"End SelectLabel1.Caption = Date$ & Chr$(10) & Time$ & Chr$(13) & "星期" & xqEnd Sub
2 回答
汪汪一只貓
TA貢獻1898條經驗 獲得超8個贊
簡單說來
作用就是由Weekday(Date$) - 1值的不同情況來執行語句
Case 0 'Weekday(Date$) - 1值為0時，只執行xq="日"，然后執行End Select 后面的語句
xq = "日"
Case 1
xq = "一" 'Weekday(Date$) - 1值為1時，只執行xq="一",然后執行End Select 后面的語句
Case 2
xq = "二" 'Weekday(Date$) - 1值為2時，只執xq="二"，然后執行End Select 后面的語句
Weekday(Date$)返回一個數值 即一星期的第幾天(默認星期日為一星期的第一天，星期一為一星期的第二天。。。)
因此 ，當Date所表示的日期 是星期日 時返回1；是星期一 時返回2 。。。。
由此Weekday(Date$) - 1表示的就是 星期幾（
值為1時表示星期1 值為2時表示星期2 。。。 特殊的是值為0時表示星期日）
- 2 回答
- 0 關注
- 148 瀏覽
添加回答
舉報
0/150
提交
取消