vb程序設(shè)計第2版第5章-在線瀏覽
2025-03-01 20:29本頁面
【正文】 計 11 設(shè)運行時單擊命令按鈕 Command1進(jìn)行判斷，并將結(jié)果直接打印在窗體上， Command1的 Click事件過程如下： Private Sub Command1_Click() X = Val(): Y = Val() If X = 0 Or Y = 0 Then _ Print 不在任何象限內(nèi) : Exit Sub If X 0 Then If Y 0 Then Print IN A Else _ Print IN D Else If Y 0 Then Print IN B _ Else Print IN C End Sub 第五章 選擇結(jié)構(gòu)程序設(shè)計 12 塊結(jié)構(gòu)條件語句 If 條件 1 Then [語句組 1] [ElseIf 條件 2 Then [語句組 2]] …… [ElseIf 條件 N Then [語句組 N]] [Else [其他 語句組 ]] End If 第五章 選擇結(jié)構(gòu)程序設(shè)計 13 2. 功能 T …… T T F 條件 1 語句組 1 語句組 2 條件 2 F 條件 n 語句組 n F 語句組 n+1 第五章 選擇結(jié)構(gòu)程序設(shè)計 14 3. 說明 1) 整個塊結(jié)構(gòu)必須以 If語句開頭， End If語句結(jié)束 2) 除了第一行的 If語句和最后一行的 End If語句是必須的以外， ElseIf子句和 Else子句都是可選的。 Private Sub Command1_Click() X = Val() : Y = Val() If X = 0 Or Y = 0 Then Print 該點不在任何象限內(nèi) ElseIf X 0 And Y 0 Then Print 在第一象限 ElseIf X 0 And Y 0 Then Print 在第二象限 ElseIf X 0 And Y 0 Then Print 在第三象限 Else Print 在第四象限 End If End Sub 第五章 選擇結(jié)構(gòu)程序設(shè)計 16 【例 54】輸入華氏溫度 F，利用公式 C=5/9*(F32)轉(zhuǎn)換成攝氏溫度 C， 根據(jù)轉(zhuǎn)換結(jié)果 C的不同值，按以下要求給出相應(yīng)的提示。 2) 在書寫時，可以將 If語句、 ElseIf子句、 Else子句、和 End If語句左對齊，而各語句組向右縮進(jìn)若干空格，以使程序結(jié)構(gòu)更清楚。例如，對于條件結(jié)構(gòu)： If x = 0 Then y = 1 Else y = 2 End If 以下兩種寫法都是錯誤的： 寫法一： If x=0 Then y=1 Else y = 2 End If 寫法二： If x=1 Then y=10 Else y = 20 End If 第五章 選擇結(jié)構(gòu)程序設(shè)計 19 多分支選擇語句 1. 格式 Select Case 測試表達(dá)式 Case 表達(dá)式表 1 [語句組 1] [Case 表達(dá)式表 2 [語句組 2]] … [Case Else [語句組 n]] End Select 2. 功能 : 根據(jù)測試表達(dá)式的值 ,按順序匹配 Case后的表達(dá)式 ,如果匹配成功 ,則執(zhí)行該 Case下的語句塊 ,然后轉(zhuǎn)到 End Select語句之后繼續(xù)執(zhí)行。 Text1 Text2 Command1 設(shè)運行時從文本框 Text1輸入 x的值，單擊命令按鈕 Command1計算 Y的值，結(jié)果顯示于文本框Text2中，界面如下： 第五章 選擇結(jié)構(gòu)程序設(shè)計 23 命令按鈕 Command1的 Click事件過程如下： Private Sub Command1_Click() X = Val() 39。 測試表達(dá)式 為 X Case Is 0 Y = Exp(X) + Exp(X) Case 0 39。 2) 不能在 Case后的表達(dá)式中使用 測試表達(dá)式 中的變量。 在這里使用了變量 X， 是錯誤的 Y = Exp(X) + Exp(X) Case X=0 39。 在這里使用了變量 X， 是錯誤的 Y = Log(X) / Log(10) End Select 第五章 選擇結(jié)構(gòu)程序設(shè)計 25 3) 測試表達(dá)式 只能是一個變量或一個表達(dá)式，而不能是變量表或表達(dá)式表。 錯誤寫法 Case X1+X2+X3 0 … End Select 而應(yīng)該寫成： Select Case X1+X2+X3 39。 例如，要表示條件 0X100， 不能寫成： Select Case X Case Is0 And Is100 39。 第五章 選擇結(jié)構(gòu)程序設(shè)計 27 【例 56】某運輸公司對用戶計算運費，距離越遠(yuǎn)，每公里運費越低，計算標(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) 第五章 選擇
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1