【正文】 DJ = 及格 Case Else DJ = 不及格 End Select = DJ 39。 CJ=90 True False DJ=”良好” True False True False DJ=”中等” 開始 CJ=80 CJ=70 CJ=60 True DJ=”及格” DJ=”不及格” False DJ=”優(yōu)秀” 輸出 DJ 結(jié)束 輸入 CJ Private Sub Command1_Click() Dim CJ As Single, DJ As String CJ = Val() 39。 ? 也可以是上述幾種形式的組合，用逗號分隔開。 3. 使用 Is關(guān)鍵字構(gòu)成的比較表達(dá)式。 2. 連續(xù)的范圍，范圍是用關(guān)鍵字 To連接的兩個值。 Visual Basic程序設(shè)計 93 測試項的形式 1. 具體的取值（表達(dá)式），值與值之間用逗號分隔。 –滿足下列條件之一的年份即為閏年 ?年份能被 4整除但不能被 100整除 ?年份能被 400整除 Visual Basic程序設(shè)計 90 多分支語句 IfElseIf If 條件 1 Then 語句塊 1 ElseIf 條件 2 Then 語句塊 2 ElseIf 條件 3 Then 語句塊 3 …… [Else 語句塊 n+1] End If 條件 1 語句塊 1 True False 條件 2 語句塊 2 True False 條件 3 True False 語句塊 3 語句塊 n+1 ElseIf中的 Else與 If之間不能有空格！ ElseIf語句的數(shù)量沒有限制！ 前面的條件成立執(zhí)行對應(yīng)語句后結(jié)束！ Visual Basic程序設(shè)計 91 多分支語句 Select Case Select Case 測試表達(dá)式 Case 表達(dá)式列表 1 語句組 1 [Case表達(dá)式列表 2 語句組 2] [Case表達(dá)式列表 3 語句組 3] …… [Case Else 語句組 n+1] End Select Visual Basic程序設(shè)計 92 Select Case語句功能 ? 首先計算出測試表達(dá)式的值，然后自上而下依次與各個表達(dá)式列表進(jìn)行比較，如果匹配，則執(zhí)行相應(yīng)的語句組，然后跳到 End Select后面的語句繼續(xù)執(zhí)行；如果測試表達(dá)式的值不能與給出的任何一個表達(dá)式列表匹配，則執(zhí)行 Case Else之后的語句組。 Visual Basic程序設(shè)計 89 練習(xí) ? 輸入一個三位正整數(shù)，判斷其是否為水仙花數(shù)。 ? 在塊結(jié)構(gòu)的條件語句中，語句塊中的語句不能與 Then、 Else書寫在同一行上。如果是數(shù)值表達(dá)式，則 0對應(yīng)False，非 0的任何數(shù)對應(yīng)True。在 Text2中輸出周長 = S ‘在 Text3中輸出面積 End Sub Visual Basic程序設(shè)計 85 分支結(jié)構(gòu) If語句 ? 單行結(jié)構(gòu) If語句 –If 條件 Then 語句 A [Else 語句 B] ? 塊結(jié)構(gòu) If語句 If 條件 Then 語句塊 A [Else 語句塊 B] End If Visual Basic程序設(shè)計 86 If語句流程圖 條件 語句 A 條件 語句 A 語句 B True True False （ a） （ b） False Visual Basic程序設(shè)計 87 示例 ? 輸入一個整數(shù)，若為偶數(shù)，則輸出“偶數(shù)”，否則輸出“奇數(shù)”。 開始 輸入邊長 A L=4*A S=A^2 輸出 L、 S 結(jié)束 Private Sub Command1_Click() Dim A As Single, L As Single, S As Single A = Val() 39。 ? 循環(huán)結(jié)構(gòu)：將某些語句重復(fù)執(zhí)行有限次。 開始 結(jié)束 輸入 A,B AB? Max=A Max=B 輸出 Max True False Visual Basic程序設(shè)計 82 程序的三種基本結(jié)構(gòu) ? 順序結(jié)構(gòu)：按語句書寫順序執(zhí)行。 ? 注釋 –單引號：單引號后的內(nèi)容為注釋 – Rem：注釋一整行 Visual Basic程序設(shè)計 79 算法 ? 程序 =數(shù)據(jù)結(jié)構(gòu) +算法 ? 算法是解決問題的方法、步驟，是程序的核心。 Stop語句被執(zhí)行后，并不退出 VB系統(tǒng)，如果在可執(zhí)行文件（ .EXE）中含有 Stop語句，則將會關(guān)閉文件。將對窗體 Form1的引用賦給 frm = Hello 39。將 Boolean類型的數(shù)據(jù)賦值給數(shù)值類型的轉(zhuǎn)換方法 為： True?1， False?0 Visual Basic程序設(shè)計 77 給對象類型的變量賦值 ? 格式： Set 對象變量 =對象引用 示例 Dim frm As Object 39。任何類型的數(shù)據(jù)均可給字符串型變量賦值 S = XYZ A = S 39。日期型數(shù)據(jù)可轉(zhuǎn)換為數(shù)值 D = A 39。 Visual Basic程序設(shè)計 76 示例 Dim A As Integer, B As Long, C As Single, D As Date, S As String A = 100 B = 200 C = D = S = A = S 39。 ? 累加： B=B+N ? 累乘： C=C*N Visual Basic程序設(shè)計 74 交換兩個變量的值 ? 中間變量法 –T=A –A=B –B=T ? 數(shù)值加減法 –A=A+B –B=AB –A=AB 適合任何兩個相同類型的變量 適合兩個數(shù)值類型的變量 Visual Basic程序設(shè)計 75 賦值相容 ? 相容是指變量或?qū)ο蟮膶傩阅軌蛘_存取賦值號右邊的表達(dá)式的值。 ? 如果用戶輸入有語法錯誤的語句，在按下回車鍵后，系統(tǒng)將彈出一個出錯提示框，并用紅色標(biāo)出有語法錯誤的語句。 返回 Visual Basic程序設(shè)計 70 第 4章 程序控制結(jié)構(gòu)與算法基礎(chǔ) Visual Basic程序設(shè)計 71 代碼書寫規(guī)則 ? 每個語句一行，以回車鍵結(jié)束； ? 多個語句可以寫在同一行上，各語句之間用冒號（ :）進(jìn)行分隔； ? 一條長語句可以分成多行書寫，在除最后一行之外的其余各行的末尾使用下劃線（ _）作為續(xù)行符，并且續(xù)行符與它前面的字符之間至少要有一個空格； ? 所有語句中的變量名、函數(shù)名、關(guān)鍵字、對象名、對象屬性名、對象方法名等均不區(qū)分大小寫，但保留定義時所使用的大小寫格式； ? 代碼的物理行最多可含 1023個字符，一個邏輯行最多可由 10個物理行組成。在表達(dá)式中也可利用圓括號來改變運(yùn)算次序，圓括號的優(yōu)先級別最高。 Visual Basic程序設(shè)計 69 運(yùn)算符的優(yōu)先級與結(jié)合性 ? 當(dāng)表達(dá)式中有多個運(yùn)算符時，運(yùn)算次序由運(yùn)算符的優(yōu)先級決定，即優(yōu)先級高的運(yùn)算符優(yōu)先運(yùn)算。 ? 操作數(shù)為邏輯型數(shù)據(jù)，如邏輯型常量、變量或關(guān)系表達(dá)式等。 ? 關(guān)系表達(dá)式的結(jié)果為邏輯值 True或 False Visual Basic程序設(shè)計 67 邏輯運(yùn)算符 ? 邏輯運(yùn)算符又稱布爾運(yùn)算符，用于對邏輯值進(jìn)行運(yùn)算，結(jié)果也為邏輯值?！?=”如是賦值運(yùn)算符，它的左邊只能是一個合法變量，不能是表達(dá)式；而作為關(guān)系運(yùn)算符的“ =”可出現(xiàn)在表達(dá)式中的任何位置。 ? 、 、 =、 、 =、 =、 Like、 Is ? 字符串比較是根據(jù) ASCII碼值的大小，自左向右按照“逐個比較，遇大則大，長大短小，完全相同才是相等”的原則進(jìn)行比較。字符表達(dá)式用于將字符串進(jìn)行連接。”作為字符運(yùn)算符時應(yīng)當(dāng)與前后的運(yùn)算對象之間加上空格，以免產(chǎn)生錯誤。 ? 由于“ amp。 ? “ amp。 ? “ +”既可以是算術(shù)加運(yùn)算符，又可以是字符連接運(yùn)算符。 Visual Basic程序設(shè)計 63 字符運(yùn)算符 ? 字符運(yùn)算符有兩個： amp。用來計算乘方和求根式運(yùn)算的值，結(jié)果為雙精度類型。要求參與運(yùn)算的兩個數(shù)應(yīng)該是整數(shù)，如果不是整數(shù)，則自動轉(zhuǎn)換為整數(shù)。 ? Mod為取模運(yùn)算。 ? \為整數(shù)除法，操作數(shù)一般為整型值，結(jié)果也為整型值。例如，一個整型數(shù)與一個長整型數(shù)進(jìn)行運(yùn)算，結(jié)果為長整型數(shù)；一個整型數(shù)與一個單精度型數(shù)進(jìn)行運(yùn)算，結(jié)果為單精度數(shù)；一個長整型數(shù)與一個單精度型數(shù)運(yùn)算，結(jié)果為雙精度數(shù)，以此類推。 ? +、 、 *、 / 、 \ 、 MOD 、 /\ ? +、 、 *的用法與數(shù)學(xué)中的一致。 ? 由常量、變量、函數(shù)等數(shù)據(jù)和運(yùn)算符組成的式子稱為表達(dá)式。 E+ E 用科學(xué)計數(shù)法顯示。 % 顯示百分比符號，表達(dá)式中的數(shù)據(jù)需乘以 100。 . 顯示小數(shù)點(diǎn)。 數(shù)字位。 ? 格式： Format（ 表達(dá)式 [， 格式 ]） Visual Basic程序設(shè)計 58 Format中 常用數(shù)值格式化符號 符號 含義 0 數(shù)字位。 ? 為了生成某個范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式： Int((upperbound lowerbound + 1) * Rnd + lowerbound) upperbound是隨機(jī)數(shù)范圍的上限，而 lowerbound 則是隨機(jī)數(shù)范圍的下限 。數(shù)據(jù)類型與參數(shù)的數(shù)據(jù)類型相同。舍入的規(guī)則為：當(dāng)小數(shù)部分大于 ，向上進(jìn)；當(dāng)小數(shù)部分小于 ，舍掉；當(dāng)小數(shù)部分恰好為 時， CInt會將它轉(zhuǎn)換為最接近的偶數(shù)值（保證結(jié)果為偶數(shù)）。 Visual Basic程序設(shè)計 51 字符串函數(shù) 1 ? 字符串長度函數(shù) Len（） ? 字符串截取函數(shù)： Left$（ s， n） right$（ s， n） Mid$（ s， p[， n]） ? 刪除空格函數(shù) : Ltrim$（ s） Rtrim$（ s） Trim$（ s） ? String（）函數(shù) Visual Basic程序設(shè)計 52 字符串函數(shù) 2 ? Space（）函數(shù) ? InStr（）函數(shù) ? 大小寫轉(zhuǎn)換函數(shù) UCase$（ s） LCase$（ s） Visual Basic程序設(shè)計 53 日期時間函數(shù) ? Date函數(shù) ? Date函數(shù) ? Time函數(shù) ? Now函數(shù) ? Year（）函數(shù) ? Month（）函數(shù) ? Day（）函數(shù) ? Weekday（）函數(shù) Visual Basic程序設(shè)計 54 轉(zhuǎn)換函數(shù) 1 ? Str（）函數(shù) ? Str（）函數(shù) ? Val（）函數(shù) ? Chr（）函數(shù) ? Asc（）函數(shù) ? CStr（）函數(shù) Visual Basic程序設(shè)計 55 轉(zhuǎn)換函數(shù) 2 ? Int（）函數(shù) 返回值是小于或等于參數(shù)的最大整數(shù)（即下取整），數(shù)據(jù)類型與參數(shù)的數(shù)據(jù)類型相同。 ? VB的內(nèi)部函數(shù)一般分為 4類：數(shù)學(xué)函數(shù)、字符串函數(shù)、日期 /時間函數(shù)、轉(zhuǎn)換函數(shù)等。若都未找到，則將此變量當(dāng)作未定義的變量處理，未定義的變量的作用域為所在過程（即為局部變量），其數(shù)據(jù)類型為變體型。 Visual Basic程序設(shè)計 48 同名變量 ? 當(dāng)不同作用域的同名變量發(fā)生沖突時， VB優(yōu)先訪問局限性大的變量。 ? 該關(guān)鍵字只能在過程中使用 。 ? 其作用范圍是整個應(yīng)用程序中的所有窗體或標(biāo)準(zhǔn)模塊中的過程，即一個 VB程序中的任何一個代碼段都可以使用全局變量。 ? 其作用范圍是所在的窗體或標(biāo)準(zhǔn)模塊，模塊級變量可作用于同一個模塊內(nèi)的所有過程。