VB程序設(shè)計(jì)(第2版)教學(xué)課件4-7-塊If語(yǔ)句實(shí)現(xiàn)嵌套

1、VB程序設(shè)計(jì)塊If語(yǔ)句嵌套問題引入 在進(jìn)行輸入密碼時(shí)，有時(shí)用戶名錯(cuò)，有時(shí)密碼錯(cuò)，也有時(shí)兩個(gè)都錯(cuò)，如何進(jìn)行這樣的判斷？我們一起學(xué)習(xí)如何進(jìn)行這樣的判斷。列表框 塊If語(yǔ)句嵌套概述1 塊If語(yǔ)句嵌套格式2 塊If語(yǔ)句嵌套應(yīng)用3塊If語(yǔ)句嵌套塊If語(yǔ)句嵌套概述1 在塊If語(yǔ)句中又包含一個(gè)或多個(gè)塊If語(yǔ)句，稱為塊If語(yǔ)句嵌套。嵌套的塊If語(yǔ)句可以是單分支If語(yǔ)句、雙分支IfElseEnd If語(yǔ)句、多分支IfElseIfElseEnd If語(yǔ)句。塊If語(yǔ)句嵌套格式2條件1成立？語(yǔ)句組1成立(True)不成立(False)條件2成立？語(yǔ)句組2成立(True)不成立(False)語(yǔ)句組3【If子句嵌套格式】

2、If Then If Then 語(yǔ)句組1 Else 語(yǔ)句組2 End IfElse 語(yǔ)句組3End If塊If語(yǔ)句嵌套格式2【Else子句嵌套格式】If Then 語(yǔ)句組1Else If Then 語(yǔ)句組2 Else 語(yǔ)句組3 End IfEnd If條件1成立？語(yǔ)句組1條件2成立？語(yǔ)句組2語(yǔ)句組3成立(True)不成立(False)成立(True)不成立(False)塊If語(yǔ)句嵌套格式2【說明】【示例】 每一個(gè)塊結(jié)構(gòu)都要完整，必須以If開始，以End If結(jié)束。 內(nèi)層嵌套的塊結(jié)構(gòu)中除了滿足該層規(guī)定的條件外，還必須滿足外層結(jié)構(gòu)中相應(yīng)位置的條件。If x0 Then Print xElse If

3、 x=0 Then Print x Else Print -x End IfEnd If塊If語(yǔ)句嵌套格式2【說明】【示例】 塊嵌套的層數(shù)沒有限制。 嵌套時(shí)外層的塊結(jié)構(gòu)必須完全“包住”內(nèi)層的塊結(jié)構(gòu)，不能相互“交叉”。語(yǔ)句中的每一個(gè)Else必須和它最近的并沒有配對(duì)的If相對(duì)應(yīng)，避免產(chǎn)生混亂。If x0 Then Print xElse If x=0 Then Print x Else Print -x End IfEnd If塊If語(yǔ)句嵌套應(yīng)用3【應(yīng)用】小明有3個(gè)球，小剛想要一個(gè)最小的，小明靈機(jī)一動(dòng)，對(duì)小剛說：你編一個(gè)程序找到最小球，我就將最小球給你。小剛很高興地編起了程序。小剛想：這就是求3個(gè)

4、數(shù)中的最小值。界面設(shè)計(jì)塊If語(yǔ)句嵌套應(yīng)用3代碼設(shè)計(jì)Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, min As Integer a = Val(Text1.Text)：b = Val(Text2.Text)： c = Val(Text3.Text) If a b Then If a c Then min = a Text4.ForeColor = &H80FF& Label4.Caption = 橙色球最小“ : Label4.ForeColor = &H80FF& Else min = c

5、Text4.ForeColor = &HC000C0 Label4.Caption = 紫色球最小“ : Label4.ForeColor = &HC000C0 End If 塊If語(yǔ)句嵌套應(yīng)用3代碼設(shè)計(jì) Else If b c Then min = b Text4.ForeColor = &HC000& Label4.Caption = 綠色球最小“ : Label4.ForeColor = &HC000& Else min = c Text4.ForeColor = &HC000C0 Label4.Caption = 紫色球最小“ : Label4.ForeColor = &HC000C0

6、 End If End If Text4.Text = Str(min)End Sub塊If語(yǔ)句嵌套應(yīng)用3拓 展 利用計(jì)算機(jī)編程實(shí)現(xiàn)“分?jǐn)?shù)與等級(jí)”之間的轉(zhuǎn)換。思考一下，如何解決這一問題？ 在文本框中輸入一個(gè)0100之間的考試成績(jī)，單擊【顯示】按鈕，則在文本框中顯示相應(yīng)等級(jí)信息。90100分：優(yōu)秀 8089分：良好7079分：中等 6069分：及格59分以下：不及格總 結(jié) 塊If語(yǔ)句中又包含一個(gè)或多個(gè)塊If語(yǔ)句，稱為塊If語(yǔ)句嵌套。 嵌套時(shí)外層的塊結(jié)構(gòu)必須完全“包住”內(nèi)層的塊結(jié)構(gòu)，不能相互“交叉”。 塊嵌套的層數(shù)沒有限制。善于思考善于學(xué)習(xí)塊If語(yǔ)句嵌套格式1【塊If子句嵌套格式】If Then

7、If Then 語(yǔ)句組1 Else 語(yǔ)句組2 End IfElse 語(yǔ)句組3End If條件1成立？語(yǔ)句組1成立(True)不成立(False)條件2成立？語(yǔ)句組2語(yǔ)句組n成立(True)不成立(False)條件n-1成立？語(yǔ)句組n-1成立(True)不成立(False)多條件If語(yǔ)句應(yīng)用1【應(yīng)用】粽情端午，端午節(jié)吃粽子。超市粽子打折銷售（每個(gè)粽子100g），紅棗粽2.4元一個(gè)、豆沙粽2.6元一個(gè)、八寶粽2.8元一個(gè)、蛋黃粽3.3元一個(gè)。要求根據(jù)輸入購(gòu)買各種粽子的數(shù)量，計(jì)算并輸出應(yīng)付總金額。界面設(shè)計(jì)Locked屬性設(shè)為True。多條件If語(yǔ)句應(yīng)用1代碼設(shè)計(jì)Private Sub Command

8、1_Click() Dim x As Integer Randomize x = Int(Rnd * 4 + 1) Label2.ForeColor = vbBlack Label3.ForeColor = vbBlack Label4.ForeColor = vbBlack Label5.ForeColor = vbBlack If x = 1 Then Text1.Text = Str(x) Label2.ForeColor = vbRed ElseIf x = 2 Then Text1.Text = Str(x) Label3.ForeColor = vbRed ElseIf x = 3 Then Text1.Text = Str(x) Label4.ForeColor = vbRed Else Text1.Text = Str(x) Label5.ForeColor = vbRed End IfEnd Sub依據(jù)道路交通安全違法行為的嚴(yán)重程度，一次記分的分值為:12分、6分、3分、2分、1分五種機(jī)動(dòng)車駕駛?cè)嗽谝粋€(gè)記分周期內(nèi)未達(dá)到12分的，且沒有違法未處理的記錄(一般指C1)，在下一個(gè)記分周期開始時(shí)將會(huì)將原先的記分清0。如果有違法未處理的記錄的情況，那么此次記錄所扣的分值將積累到下一年，直到違法記錄消除。條件1成立？語(yǔ)句組1條件2