選擇結構程序設計單行結構條件語句單分支結構If表PPT課件

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

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

3、用?？梢杂幸粋€Else子句，而不管有沒有ElseIf子句。 例3.83.9第4頁/共23頁 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 “它不能構成一個三角形” End If End Sub第5頁/共23頁 編寫一個統(tǒng)計學生考試成績的程序： 如果滿足條件CJ60時，打印出“成績不及格”，采用的條件語句是： If CJ60 Then Print 成績不及格 多行代碼： If CJ60 Then Print 成績不及格“ Print 請準備補考 End If第6頁/共23頁 Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) t

5、emp = 成績等級為： If score 0 Then Label2.Caption = 成績出錯 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 = 成績出錯 End IfEnd Sub第7頁/共23頁4. Select Case選擇結構（多分支結構） 格式：Select Case 測試變量或表達式 C

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

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

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

9、) / (2*a)X2 = (bsqr(D) / (2*a)結束第19頁/共23頁 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 當a=0 Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else a0 D = b * b - 4 * a * c R = -b / (2 * a)第20頁/共23頁 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