【正文】 2023年 4月 2日星期日 12時 23分 22秒 00:23:222 April 2023 ? 1一個人即使已登上頂峰，也仍要自強(qiáng)不息。 2023年 4月 2日星期日 上午 12時 23分 22秒 00:23: ? 1最具挑戰(zhàn)性的挑戰(zhàn)莫過于提升自我。勝人者有力，自勝者強(qiáng)。 :23:2200:23Apr232Apr23 ? 1越是無能的人，越喜歡挑剔別人的錯兒。 , April 2, 2023 ? 閱讀一切好書如同和過去最杰出的人談話。 2023年 4月 2日星期日 12時 23分 22秒 00:23:222 April 2023 ? 1空山新雨后，天氣晚來秋。 。 :23:2200:23:22April 2, 2023 ? 1意志堅強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 :23:2200:23Apr232Apr23 ? 1世間成事，不求其絕對圓滿，留一份不足，可得無限完美。 , April 2, 2023 ? 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒有。 2023年 4月 2日星期日 12時 23分 22秒 00:23:222 April 2023 ? 1做前，能夠環(huán)視四周；做時，你只能或者最好沿著以腳為起點的射線向前。 。 :23:2200:23:22April 2, 2023 ? 1他鄉(xiāng)生白發(fā)，舊國見青山。 :23:2200:23Apr232Apr23 ? 1故人江海別，幾度隔山川。 , April 2, 2023 ? 雨中黃葉樹，燈下白頭人。 01 Private Sub Form_Activate() 02 password = InputBox$(請輸入密碼 , 密碼檢查 ) 03 If password = 1234 Then 04 MsgBox 通過密碼檢查了 !, vbOKOnly + vbExclamation,恭喜 ! 05 Else 06 feedback = MsgBox(密碼錯誤 !, vbYesNoCancel + vbCritical, 抱歉 !) 07 Select Case feedback 08 Case vbYes 09 MsgBox 你按了「是 (Y)」鈕 , 0, 是 10 Case vbNo n MsgBox 你按了「否 (N)」鈕 , 0, 否 “ 12 Case vbCancel 13 MsgBox 你按了「取消」鈕 , 0, 取消 14 Case Else 15 MsgBox 不應(yīng)有此情況 16 End Select 17 End If 18 End Sub 【執(zhí)行情況】 第一次執(zhí)行 ： 第二次執(zhí)行 711 應(yīng)用實例 【實例一】假設(shè)某出版社圖書售價依採購數(shù)量而分成下面三種 情況： 1~9本 照定價出售 10~49本 照定價打九折 50本以上 照定價打八折 設(shè)計程式輸入採購數(shù)量及定價，再計算並輸出其總金額。（若省略此參數(shù)，會自動設(shè)定為 0） 5. 利用 MsgBox函數(shù)出現(xiàn)對話方塊後，使用者按下方塊中的 命令鈕 時，會傳回一個數(shù)值（參看表 83）供程式辨認(rèn)，作為執(zhí)行後續(xù)敘述的依據(jù)。 3. 標(biāo)題 ：要出現(xiàn)在對話方塊 標(biāo)題欄 上的文字，若省略此參數(shù)，會以 專案名稱 為標(biāo)題。 【例 1】輸入分?jǐn)?shù)，並輸出「及格，恭喜！」或「不及格， 請多用功！」 s= InputBox(請輸入分?jǐn)?shù) ) Print Switch(s=60, 及格，恭喜！ , _ s60, “不及格，請多用功！” ) 【例 2】將成績分三段 s = InputBox(請輸入成績 ) Print Switch(s 60, 不及格 ,請多用功！ , _ s = 60 And s 90, 及格 ,恭喜！ , _ s= 90, “優(yōu)等 ,發(fā)獎狀一張！” ) 【討論】如果分?jǐn)?shù)超出 0~100的範(fàn)圍時，要輸出「分?jǐn)?shù)超出 0~100的範(fàn)圍」，要如何修改？ 710 MsgBox敘述與函數(shù) 敘述： MsgBox 訊息 [,[格式碼 ][,標(biāo)題 ]] 函數(shù)： MsgBox (訊息 [,[格式碼 ][,標(biāo)題 ]]) 1. 兩者的用法一樣，只不過在 函數(shù) 中， 參數(shù)列 的前後要加上小括 弧，而且會傳回值（可測知使用者按了那個鈕），使用 敘述 時不會傳回值。 運算式 都不成立，則傳回 空字串 （ null，無內(nèi)容）。（如輸入 1，就輸出Monday；輸入 6，就輸出 Saturday） d = InputBox(“請輸入 1~7的數(shù)字” ) If d 1 Or d = 8 Then Print (“輸入數(shù)字超出範(fàn)圍” ) _ Else Print Choose(d, Monday, Tuesday, Wednesday, Thursday, Friday, _ Saturday, Sunday) 79 Switch函數(shù) 格式 ： Switch(運算式 1,資料 1[,運算式 2,資料 2,…[, 運算式 n,資料 n]]) 【功能】依序判斷 運算式 是否成立（ True），成立就傳回其後一個參數(shù)的資料。 中的各項資料可以是不同型態(tài)的資料。 i=1時，傳回 資料 1； i=2時，傳回 資料 2；依此類推， 當(dāng) i= n時，傳回 資料 n。 Case A To D,I,J,Is =P 運算式的結(jié)果值為 A~D，或 I，或 J，或 P~Z等字母均符合條件 【例 2】輸入成績，再輸出如 75節(jié)例 4 的文字。如下： Case Is =60 運算式的結(jié)果值 ≧ 60就符合條件 Case Is SUN 運算式的結(jié)果值 ≠ SUN 就符合條件 Case Is = Y 運算式的結(jié)果值為 Y就符合條件 四、 將前述三種用法混合使用 。如下： Case 1 Case SUN Case 1,2,3,4 Case 2,4,8,16,32,64 Case MON,TUE,WED,THU,FRI Case 臺北 ,臺中 ,高雄 二、 利用常數(shù)指定範(fàn)圍 ：如果運算式的結(jié)果值在範(fàn)圍之內(nèi)，就算符合該 Case的條 件。 元 【例 2】根據(jù)分?jǐn)?shù)（ score），印出「及格 ,恭喜！」或「不及格 , 請多用功！」 Print IIf(score=60,及格 ,恭喜！ ,不及格 ,請多用功！ ) Select Case 運算式 Case