【文章內(nèi)容簡介】 Y = Case Is 0 Y = Log(X) / Log(10) End Select = Format(Y, ) End Sub 第五章 選擇結(jié)構(gòu)程序設(shè)計 24 4. 注意 1) 測試表達式 的類型應(yīng)與各 Case后的表達式類型一致。 2) 不能在 Case后的表達式中使用 測試表達式 中的變量。例如： Select Case X Case X 0 39。 在這里使用了變量 X， 是錯誤的 Y = Exp(X) + Exp(X) Case X=0 39。 在這里使用了變量 X， 是錯誤的 Y = Case X 0 39。 在這里使用了變量 X， 是錯誤的 Y = Log(X) / Log(10) End Select 第五章 選擇結(jié)構(gòu)程序設(shè)計 25 3) 測試表達式 只能是一個變量或一個表達式，而不能是變量表或表達式表。例如，檢查變量X X X3之和是否小于零， 不能寫成： Select Case X1,X2,X3 39。 錯誤寫法 Case X1+X2+X3 0 … End Select 而應(yīng)該寫成： Select Case X1+X2+X3 39。 正確寫法 Case Is 0 … End Select 第五章 選擇結(jié)構(gòu)程序設(shè)計 26 4) 不要在 Case后直接使用布爾運算符來表示條件。 例如，要表示條件 0X100， 不能寫成： Select Case X Case Is0 And Is100 39。 使用了 And, 是錯誤的 … End Select 對于較復(fù)雜的條件，可以用塊結(jié)構(gòu)條件語句來實現(xiàn)，而有些條件完全可以轉(zhuǎn)換成 Case語句允許的幾種形式之一。 第五章 選擇結(jié)構(gòu)程序設(shè)計 27 【例 56】某運輸公司對用戶計算運費，距離越遠，每公里運費越低，計算標(biāo)準(zhǔn)如下 : 距離＜ 250km 沒有折扣 250km≤距離＜ 500km 2%折扣 500km≤距離＜ 1000km 5%折扣 1000km≤距離＜ 2022km 8%折扣 2022km≤距離＜ 3000km 10%折扣 3000km≤距離 15%折扣 分析： 設(shè)每公里每噸貨物的基本運費為 Price， 貨物重為 Weight， 運輸距離為 Distance， 折扣為Discount， 則總運費 Freight的計算公式為 : Freight= Price * Weight * Distance * (1 Discount) 第五章 選擇結(jié)構(gòu)程序設(shè)計 28 設(shè)計界面如下圖： Text1 Text2 Text3 Text4 Command1 第五章 選擇結(jié)構(gòu)程序設(shè)計 29 Command1的 Click事件過程如下 : Private Sub Command1_Click() Price = Val() Weight = Val() Distance = Val() Select Case Distance Case Is 250 Discount = 0 Case Is 500 Discount = Case Is 1000 Discount = 第五章 選擇結(jié)構(gòu)程序設(shè)計 30 Case Is 2022 Discount = Case Is 3000 Discount = Case Else Discount = End Select Freight = Price * Weight * Distance * (1 Discount) = Freight End Sub 第五章 選擇結(jié)構(gòu)程序設(shè)計 31 1. 格式 On 表達式 GoTo {標(biāo)號表 |行號表 } 2. 功能 根據(jù) 表達式 的值，把控制權(quán)轉(zhuǎn)移到 標(biāo)號表或 行號表 指定的語句中的一個去執(zhí)行。 具體過程是：先計算 表達式 的值，并將其四舍五入為一個整數(shù)，然后根據(jù)該整數(shù)值決定轉(zhuǎn)移到第幾個標(biāo)號或行號所指定的語句去執(zhí)行。如果表達式 的值為 1，則轉(zhuǎn)到第一個標(biāo)號或行號所指定的語句行去執(zhí)行；如果 表達式 的值為 2，則轉(zhuǎn)到第二個標(biāo)號或行號所指定的語句行去執(zhí)行，以此類推。 多分支選擇轉(zhuǎn)移語句 On…GoTo 第五章 選擇結(jié)構(gòu)程序設(shè)計 32 3. 說明 1) 表達式 的值應(yīng)在 0～ 255之間，當(dāng) 表達式 的值小于 0或大于 255時會出錯。 2) 表達式 的值應(yīng)該在 1到標(biāo)號或行號列表項目個數(shù)之間。當(dāng)表達式的值為 0或大于列表項目個數(shù)時，控制權(quán)會轉(zhuǎn)移到 On...GoTo之后的語句。 3) 可以在同一個列表中混合使用標(biāo)號和行號?！皹?biāo)號”是一個以冒號結(jié)尾的標(biāo)識符；“行號”是一個整型數(shù)。 第五章 選擇結(jié)構(gòu)程序設(shè)計 33 【例 57】用輸入框輸入 1～ 5之間的學(xué)生成績，將其轉(zhuǎn)換為 4個成績等級： 2分 不及格 3分 及格 4分 良 5分 優(yōu) 設(shè)運行時單擊 Command1開始輸入并轉(zhuǎn)換。 代碼如下： Private Sub Command1_Click() X = Val(InputBox(請輸入分?jǐn)?shù) 1～ 5)) 第五章 選擇結(jié)構(gòu)程序設(shè)計 34 On X GoTo 10, 10, A1, A2, A3 M