不知道CASE這個(gè)語(yǔ)句和IF有什么不同 現(xiàn)在我只會(huì)IF 請(qǐng)教大家關(guān)于CASE語(yǔ)句的問(wèn)題 例如以下的這個(gè)代碼中星期的體現(xiàn)是什么原理?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貢獻(xiàn)1898條經(jīng)驗(yàn) 獲得超8個(gè)贊
簡(jiǎn)單說(shuō)來(lái)
作用就是由Weekday(Date$) - 1值的不同情況來(lái)執(zhí)行語(yǔ)句
Case 0 'Weekday(Date$) - 1值為0時(shí)，只執(zhí)行xq="日"，然后執(zhí)行End Select 后面的語(yǔ)句
xq = "日"
Case 1
xq = "一" 'Weekday(Date$) - 1值為1時(shí)，只執(zhí)行xq="一",然后執(zhí)行End Select 后面的語(yǔ)句
Case 2
xq = "二" 'Weekday(Date$) - 1值為2時(shí)，只執(zhí)xq="二"，然后執(zhí)行End Select 后面的語(yǔ)句
Weekday(Date$)返回一個(gè)數(shù)值 即一星期的第幾天(默認(rèn)星期日為一星期的第一天，星期一為一星期的第二天。。。)
因此 ，當(dāng)Date所表示的日期 是星期日 時(shí)返回1；是星期一 時(shí)返回2 。。。。
由此Weekday(Date$) - 1表示的就是 星期幾（
值為1時(shí)表示星期1 值為2時(shí)表示星期2 。。。 特殊的是值為0時(shí)表示星期日）
- 2 回答
- 0 關(guān)注
- 144 瀏覽
添加回答
舉報(bào)
0/150
提交
取消