選擇結(jié)構(gòu)程序設(shè)計(jì)單行結(jié)構(gòu)條件語(yǔ)句單分支結(jié)構(gòu)If表PPT課件

1、 If anyDateNow Then anyDate=Now If anyDateNow Then anyDate=Now End If IfThen的單行格式不用End If語(yǔ)句。 例3.5第1頁(yè)/共23頁(yè)2.雙分支結(jié)構(gòu)條件語(yǔ)句： If Then Else End If If ThenElse 當(dāng)表達(dá)式值為非零時(shí)，執(zhí)行Then后的語(yǔ)句1（或語(yǔ)句1）否則執(zhí)行Else后面的語(yǔ)句塊2（或語(yǔ)句2）。 說(shuō)明：塊結(jié)構(gòu)的條件語(yǔ)句可以嵌套，即把一個(gè)IfThen.Elsef塊放在另一個(gè)IfThen.Elsef塊內(nèi)，嵌套必須完全嵌套，也就是內(nèi)層條件語(yǔ)句必須完全包含在外層條件語(yǔ)句之中。 例3.6 -3.7 第2

2、頁(yè)/共23頁(yè)3.IfThenElseIf（多分支結(jié)構(gòu)） IfThen ElseIfThen Else End If 執(zhí)行過(guò)程為：如果表達(dá)式1為真，執(zhí)行語(yǔ)句塊1，否則，如果表達(dá)式2為真，則執(zhí)行語(yǔ)句塊2，如果條件都不是真，則執(zhí)行Else后的語(yǔ)句塊。第3頁(yè)/共23頁(yè)說(shuō)明： 不管有幾個(gè)分支，程序執(zhí)行了一個(gè)分支后，其余分支不再進(jìn)行。 ElseIf子句的數(shù)量沒(méi)有限制，可以根據(jù)需要使用任意多個(gè)ElseIf子句。 語(yǔ)句中的ElseIf子句和Else子句者是可選項(xiàng)，如果省略這些子句，則成為單分支結(jié)構(gòu)。 IfThenElseIf只是 IfThenElse的一個(gè)特例?？梢允褂萌我鈹?shù)量的ElseIf子句，或者一個(gè)也不

3、用。可以有一個(gè)Else子句，而不管有沒(méi)有ElseIf子句。 例3.83.9第4頁(yè)/共23頁(yè) Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim p As Single, s As Single Text1.Text = : Text2.Text = : Text3.Text = a = val(Text1) : b = val(Text2) t :c = val(Text3) t If a+bc and b+ca and a+cb then p = (a + b + c) / 2 s = Sqr(p *

4、(p - a) * (p - b) * (p - c) Else print “它不能構(gòu)成一個(gè)三角形” End If End Sub第5頁(yè)/共23頁(yè) 編寫(xiě)一個(gè)統(tǒng)計(jì)學(xué)生考試成績(jī)的程序： 如果滿足條件CJ60時(shí)，打印出“成績(jī)不及格”，采用的條件語(yǔ)句是： If CJ60 Then Print 成績(jī)不及格 多行代碼： If CJ60 Then Print 成績(jī)不及格“ Print 請(qǐng)準(zhǔn)備補(bǔ)考 End If第6頁(yè)/共23頁(yè) Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) t

5、emp = 成績(jī)等級(jí)為： If score 0 Then Label2.Caption = 成績(jī)出錯(cuò) ElseIf score 60 Then Label2.Caption = temp + 不及格 ElseIf score = 79 Then Label2.Caption = temp + 及格 ElseIf score = 100 Then Label2.Caption = temp + 優(yōu)良 Else Label2.Caption = 成績(jī)出錯(cuò) End IfEnd Sub第7頁(yè)/共23頁(yè)4. Select Case選擇結(jié)構(gòu)（多分支結(jié)構(gòu)） 格式：Select Case 測(cè)試變量或表達(dá)式 C

6、ase 表達(dá)式表1 語(yǔ)句塊1 Case 表達(dá)式表2 語(yǔ)句塊2 Case 表達(dá)式表n 語(yǔ)句塊n Case 表達(dá)式表n+1 語(yǔ)句塊n+1 End Select第8頁(yè)/共23頁(yè) Select Case在結(jié)構(gòu)的上方處理一個(gè)測(cè)試變量或表達(dá)式，并且只計(jì)算一次，然后根據(jù)測(cè)試變量或表達(dá)式的值，從多個(gè)語(yǔ)句塊中選擇符合條件（值相等）的一個(gè)語(yǔ)句塊執(zhí)行,之后自動(dòng)轉(zhuǎn)到End Select 后的語(yǔ)句執(zhí)行；如果沒(méi)有找到與Case 子句中的表達(dá)式相匹配的值，則執(zhí)行Case Else子句后面的語(yǔ)句塊，然后轉(zhuǎn)到End Select 后的語(yǔ)句執(zhí)行。 測(cè)試變量或表達(dá)式只能是數(shù)值表達(dá)式或字符串表達(dá)式，不能是邏輯表達(dá)式。 語(yǔ)句塊由一行或

7、多行語(yǔ)句組成。 表達(dá)式表與測(cè)試變量或表達(dá)式的類(lèi)型必須相同，每一個(gè)表達(dá)式是一個(gè)或幾個(gè)值的列表。如果在一個(gè)列表中有多個(gè)值，用逗號(hào)分隔。第9頁(yè)/共23頁(yè)一個(gè)表達(dá)式： Case 6一組枚舉表達(dá)式： Case 1，3，5，7 Case “I”，“YOU”，“Then”表達(dá)式1To表達(dá)式2。該形式指定某個(gè)數(shù)值范圍，較小的數(shù)值在前面，較大的數(shù)值在后面：字符串常量則按字母的ASCII碼順序從低到高排列。 Case 1 To 10 Case “a” To “e”第10頁(yè)/共23頁(yè)Is。 Case Is=80 Case Is”Y” 當(dāng)有多個(gè)Case 子句的取值范圍和測(cè)試表達(dá)式的值相符時(shí)，只執(zhí)行符合要求的第一個(gè)Ca

8、se子句后面的語(yǔ)句塊。 Select Case語(yǔ)句只對(duì)單個(gè)表達(dá)式求值，并根據(jù)求值結(jié)果執(zhí)行不同的語(yǔ)句塊；而IfThenElse語(yǔ)句可以對(duì)不同的表達(dá)式求值，然而招待不同的操作。 第11頁(yè)/共23頁(yè) 表達(dá)式表通常是一個(gè)具體值(如Case 1)，每一個(gè)值確定一個(gè)分支。還有三種方法可以確定設(shè)定值： (1)一組值(用逗號(hào)隔開(kāi))。示例： Case 1,3,5 表示條件在1，3，5范圍內(nèi)取值 (2)表達(dá)式1 TO 表達(dá)式2。示例： Case 60 To 80 表示條件取值范圍為6080 (3)Is關(guān)系式。示例： Case Is 0計(jì)算復(fù)根的虛部P = sqr(D) / (2*a)X1 = (b + sqr(D

9、) / (2*a)X2 = (bsqr(D) / (2*a)結(jié)束第19頁(yè)/共23頁(yè) Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val(Text1.Text) 取數(shù)據(jù)a b = Val(Text2.Text) 取數(shù)據(jù)b c = Val(Text3.Text) 取數(shù)據(jù)c If a = 0 Then 當(dāng)a=0 Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else a0 D = b * b - 4 * a * c R = -b / (2 * a)第20頁(yè)/共23頁(yè) If D = 0 Then D=0 Text4.Text = R Text5.Text = R ElseIf D 0 Then D0 X1 = (-b + Sqr(D) / (2 * a) X2 = (-b - Sqr(D) / (2 * a) Text4.Text = X1 Text5.Text = X2 Else D0 P