1、1程序的三種基本結(jié)構(gòu)第一節(jié)2一、用一、用傳統(tǒng)傳統(tǒng)流程圖表示算法流程圖表示算法處理框起止框I/O框判斷框流程線連接點1、傳統(tǒng)流程圖中的基本符號、傳統(tǒng)流程圖中的基本符號復習回顧復習回顧 32、三種基本結(jié)構(gòu)的表示、三種基本結(jié)構(gòu)的表示（1）順序結(jié)構(gòu)）順序結(jié)構(gòu)條件語句1語句2YN語句1語句2（2）選擇結(jié)構(gòu)）選擇結(jié)構(gòu)程序代碼按照從上到下的順序一行行的執(zhí)行，執(zhí)行過程中沒有分支，沒有重復。根據(jù)不同的條件判斷來決定程序執(zhí)行走向的結(jié)構(gòu)。4（3）循環(huán)結(jié)構(gòu)）循環(huán)結(jié)構(gòu)a) 當型循環(huán)當型循環(huán)b) 直到型循環(huán)直到型循環(huán)條件語句組YN( b )條件( a )YN語句組根據(jù)條件判斷某些語句可能需要執(zhí)行0次1次或多次的結(jié)構(gòu)。5

2、從從10個數(shù)中選出最大的數(shù)個數(shù)中選出最大的數(shù)的算法流程圖的算法流程圖NMaxMax =A輸入A開始再輸入給AN=N+1打印Max結(jié)束YNNY一個算法中可能同時含有這一個算法中可能同時含有這三種基本的結(jié)構(gòu)三種基本的結(jié)構(gòu)6一、順序結(jié)構(gòu)例：交換兩個變量a，b的值Private Sub Command1_Click()Dim a as integer,b as integera=Val(InputBox(“輸入a”)b=Val(InputBox(“輸入b”)MsgBox(“交換后a= ”& a & “ b=”& b)End Sub設(shè)輸入a=2，b=3 如何實現(xiàn)交換過程?交換過程

3、c=aa=bb=c7 對應(yīng)的流程圖：例：交換兩個變量a，b的值Private Sub Command1_Click() Dim a as integer,b as integer,c as integer a=Val(InputBox(“輸入a”) b=Val(InputBox(“輸入b”) c=a a=b b=cMsgBox(“交換后a= ”& a & “ b=”& b)End Sub215開始結(jié)束34c=a輸入a,b輸出交換后a,b值a=bb=c81. IfThen語句(單分支結(jié)構(gòu)) If Then 語句塊 End If例例:已知兩個數(shù)已知兩個數(shù)x和和y，比較它們的

4、大小，比較它們的大小， 使得使得x大于大于y. If xy Then t=x : x=y: y=t End If選擇結(jié)構(gòu)92. IfThenElse語句(雙分支結(jié)構(gòu)) If Then Else End If選擇結(jié)構(gòu)例：輸出例：輸出x,y兩個中值較大的一個。兩個中值較大的一個。IF XY Then Print XElse Print YEnd If練習：輸入練習：輸入x，輸出其絕對值（不能用，輸出其絕對值（不能用abs函數(shù)）函數(shù)）。103. IfThenElseIf語句(多分支結(jié)構(gòu)) 形式: If Then ElseIf Then Else 語句塊 n+1 End If選擇結(jié)構(gòu)11使用使用IF語

5、句實現(xiàn)的程序段如下：語句實現(xiàn)的程序段如下：If x=90 then Print 優(yōu)秀優(yōu)秀ElseIf x=80 Then Print 良好良好 ElseIf x=70 Then Print 中等中等 ElseIf x=60 Then Print 及格及格 Else Print 不及格不及格End If例：輸入一學生成績，評定其等級。規(guī)則是：例：輸入一學生成績，評定其等級。規(guī)則是：90100分為分為“優(yōu)秀優(yōu)秀”，8089分為分為“良好良好”，7079分為分為“中等中等”，6069分為分為“及格及格”，60分以下為分以下為“不合格不合格”選擇結(jié)構(gòu)選擇結(jié)構(gòu)12Select Case語句（情況語句）形

6、式：Select Case 變量或表達式Case 表達式列表1語句塊1Case 表達式列表2語句塊2Case Else語句塊n+1End Select數(shù)值型或字符串表達式選擇結(jié)構(gòu)與為下面四種形式之一： 表達式 A +5 一組枚舉的值(用逗號分隔) 2, 4, 6, 8 表達式1 To 表達式2 60 to 100 Is 關(guān)系運算符表達式 Is 6013Select Case x Case 90 to 100 Print 優(yōu)秀優(yōu)秀 Case 80 to 89 Print 良好良好 Case 70 to 79 Print 中等中等 Case 60 to 69 Print 及格及格 Case Els

7、e Print 不及格不及格End Select例：輸入一學生成績，評定其等級。用例：輸入一學生成績，評定其等級。用select case 實現(xiàn)。實現(xiàn)。14綜合練習：輸入綜合練習：輸入a，b，c求一元二次方程組的根。求一元二次方程組的根。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then MsgBox error! EndEnd Ifd = b 2 - 4 * a * cIf d 0 Then Label4.Caption = 無解 Label5.Caption = ElseIf d = 0 Then x = -b / (2 * a) Label4.Caption = X1=X2= & x Label5.Caption = Else X1 = (-b + S