visual-basic程序設(shè)計基礎(chǔ)全套教程、教案第五章VB程序控制結(jié)構(gòu)ppt課件-圖文

1、visual-basic程序設(shè)計基礎(chǔ)全套教程、教案第五章VB程序控制結(jié)構(gòu)ppt課件_圖文visual-basic程序設(shè)計基礎(chǔ)全套教程、教案第五章VB第五章 VB程序控制結(jié)構(gòu)【學(xué)習(xí)目標】1.知道結(jié)構(gòu)化程序設(shè)計的三種結(jié)構(gòu)2.重點掌握實現(xiàn)選擇結(jié)構(gòu)的語句及語法，能利用IF ELSE語句解決實際問題第五章 VB程序控制結(jié)構(gòu)第一次課一.結(jié)構(gòu)化程序設(shè)計的三種結(jié)構(gòu)順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu)第一次課二. 雙分支條件 語句1.塊結(jié)構(gòu)格式：If 條件 Then 語句塊1 else 語句塊2 Endif說明 ：如果條件為真，則執(zhí)行語句塊1，否則則執(zhí)行語句塊2T（真）F（假）條件滿足？語句塊1語句塊2執(zhí)行下一條語句二

2、. 雙分支條件 語句T（真）F（假）條件滿足？語句塊1語句2.單行結(jié)構(gòu)格式：if 條件 then 語句塊1 else 語句塊2注意：then 或 else后面若有多條語句，那么各語句之間用“：”分隔練習(xí)：讀程序，寫結(jié)果1. j1=10:j2=20 if j1j2 then print j2; print j12. x=5 :y=36 if not x0 then print “輸入的數(shù)大于0”Else if x60 then I=1 if a70 then I=2 if a80 then I=3 if a90 then I=4 print “I=”;I 2.a=val(inputbox(“請輸

3、入一個數(shù))i=0 if a60 then I=1 Elseif a70 then I=2 Elseif a80 then I=3 Else i=100 Endif print “I=”;I當從鍵盤上輸入的數(shù)為45時,結(jié)果為_當從鍵盤上輸入的數(shù)為85時,結(jié)果為_1. a=752.a=val(input例1：(思考)輸入二級考試成績，要求顯示對應(yīng)三級制的 評定。評定條件為： Mark=Text1.Text If Mark = 90 Then Print “優(yōu)” ElseIf Mark = 60 Then Print “通過” Else Print “未通過” End If例1：(思考)輸入二級考試

4、成績，要求顯示對應(yīng)三級制的 【例2】輸入一個學(xué)生的成績score，根據(jù)其所在分數(shù)段給出他的考試等級。score60時，打印“不及格”；60=score=70時，打印“一般”； 70score=80時，打印“中等”； 80score=90時，打印“良好”；90score100時，打印“成績有問題”?！纠?】輸入一個學(xué)生的成績score，根據(jù)其所在分數(shù)段給出他1.塊結(jié)構(gòu)條件語句中，正確的是A）各個條件對應(yīng)的語句塊中，一定有一個語句塊被執(zhí)行B）找到條件為true第一個入口，便從此開始執(zhí)行其后的所有語句塊C）若有多個條件為true,則它們對應(yīng)的語句塊都被執(zhí)行D）多行選擇結(jié)構(gòu)中的語句塊，有可能任何一個語

5、句塊都不被執(zhí)行2.執(zhí)行下列語句后顯示的結(jié)果是（）If x then print x else print x-13.a=“1” b=“2” a=val(a)+val(b) b=val(12) if ab then print a-b else print b-a1.塊結(jié)構(gòu)條件語句中，正確的是作業(yè):P81 一(1) (2)(3)三P83 二(1)(2) 作業(yè):第二次課 Select Case語句【學(xué)習(xí)目標】掌握多分支結(jié)構(gòu)的特點、原理掌握多分支select case語句的格式、功能及應(yīng)用第二次課 Select Case語句【學(xué)習(xí)目標】Select Case的結(jié)構(gòu)形式為：Select Case Ca

6、se Case Case Case ElseEnd SelectSelect Case的結(jié)構(gòu)形式為：格式說明：（1）“測試表達式”可以是數(shù)值表達式或字符串表達式。（2）“表達式列表”與“測試表達式”的類型必需相同。（3）當使用多個表達式組成列表時，表達式與表達式之間要用英文逗號“,”隔開。（4）“表達式列表”由下表形式的表達式組成。形式示例說明（1）表達式Case 100+a數(shù)值或字符串表達式（2）一組用逗號分隔的枚舉值Case 2,4,6,8測試表達式的值等于2，4，6，8之一（3）表達式1 To表達式2Case 1 To 101 測試表達式 10（4）Is 關(guān)系運算符表達式Case Is

7、20 測試表達式 20格式說明：形式示例說明（1）表達式Case 100+a數(shù)值或Select Case語句功能：根據(jù)“測試表達式”的值，選擇第一個符合條件的語句塊執(zhí)行。Select Case語句的執(zhí)行過程是：先求“測試表達式”的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行End Select后面的語句；如果沒找到，則執(zhí)行Case Else后面的語句塊，然后執(zhí)行End Select后面的語句。Select Case語句功能：根據(jù)“測試表達式”的值，選擇 讀程序1.a=val(inputbox(“a=”) select case a c

8、ase is =60 a=a+1 case is =50 a=a+10Case is = 90 Text2.Text = 優(yōu)秀 Case Is = 80在x90不成立時，再判斷x80是否成立 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End SelectEnd Sub【例1】用Select Case語句代替ElseIf語句來實【例2】某交易中介公司按交易雙方成交額收取中介費用，收費標準如下：交易額=10000 5%5000=交易額1000

9、0 3%1000=交易額5000 2%500=交易額1000 1%交易額500 免費假設(shè)交易額通過文本框Text1輸入，則“計算費用”按鈕Command1的事件代碼如下：Private Sub Command1_Click() Trade=Val(Text1.Text) Select Case Trade Case Is500 Discount=0【例2】某交易中介公司按交易雙方成交額收取中介費用，收費標準 Case Is1000 Discount=0.01 Case Is5000 Discount=0.02 Case Is10000 Discount=0.03 Case Else Disco

10、unt=0.05 End Select Fee = Trade * Discount Print FeeEnd Sub在解決多分支選擇情況的程序時，采用Select Case語句比較方便，并且程序結(jié)構(gòu)清楚，便于閱讀和修改。 Case Is=2000 Then sj = gz * 0.05Else sj = 0End IfPrint 工資;gz;的所得稅為;sjEnd Sub但要計算10000個人的所得稅，如何實現(xiàn)呢？實際上就是中間的程序塊重復(fù)10000次。即：對于 第次到第10000次 輸入工資，計算所得稅，輸出結(jié)果 重復(fù)下一次如何實現(xiàn)一塊程序重復(fù)n次呢？用程序的循環(huán)控制結(jié)構(gòu)實現(xiàn)。問題：計算1

11、0000個人的所得稅：輸入工資。如果工資少于20 在程序中，凡是需要重復(fù)相同或相似的操作步驟，都可以使用循環(huán)結(jié)構(gòu)來實現(xiàn)。循環(huán)結(jié)構(gòu)由兩部分組成：循環(huán)體，即要重復(fù)執(zhí)行的語句序列；循環(huán)控制部分，即用于規(guī)定循環(huán)的重復(fù)條件或重復(fù)次數(shù)，同時確定循環(huán)范圍的語句。要使計算機能夠正常執(zhí)行某循環(huán)，由循環(huán)控制部分所規(guī)定的循環(huán)次數(shù)必須是有限的。VB提供了三種不同風格的循環(huán)結(jié)構(gòu)，分別是：計數(shù)循環(huán)（ForNext循環(huán)）當循環(huán)（WhileWend循環(huán)）Do循環(huán)（DoLoop循環(huán)）其中計數(shù)循環(huán)常用于已知循環(huán)次數(shù)的循環(huán)，而當循環(huán)和Do循環(huán)適合于循環(huán)次數(shù)未知，只知道循環(huán)結(jié)束條件的循環(huán)。 在程序中，凡是需要重復(fù)相同或相似的操作步驟

12、，都可一.格式：For 循環(huán)變量=初值 To 終值 Step 步長 循環(huán)體Next 循環(huán)變量 二.循環(huán)的說明：循環(huán)（控制）變量：也叫“循環(huán)計數(shù)器”，用于控制循環(huán)次數(shù)。初值、終值：一般是整數(shù)，也可以是實數(shù)，實數(shù)會自動取整?？梢允钦龜?shù)，也可以是負數(shù)。步長：循環(huán)變量每次循環(huán)的增量。實數(shù)會取整。 正數(shù)：遞增循環(huán) 負數(shù)：遞減循環(huán) ：死循環(huán)，故不能為 ：加1循環(huán)，“Step 1”可以省略。一.格式：Next：循環(huán)結(jié)束語句，后面的循環(huán)變量必須與For語句中的循環(huán)變量一樣。For與Next必須成對出現(xiàn)，且先有For、后有Next，缺一不可。循環(huán)體：每次重復(fù)執(zhí)行的語句。循環(huán)體可以是一個語句，也可以是多個語句。甚

13、至可以一個語句也沒有（空循環(huán)）。Next：循環(huán)結(jié)束語句，后面的循環(huán)變量必須與For語句中的循三.For循環(huán)執(zhí)行過程（1）系統(tǒng)將初值賦給循環(huán)變量，并自動記下終值和步長。（2）判斷循環(huán)變量是否超過終值：未超過終值，執(zhí)行一次循環(huán)體；否則，結(jié)束循環(huán)（3）執(zhí)行Next語句，將循環(huán)變量加上一個步長。（4）轉(zhuǎn)到（2），繼續(xù)執(zhí)行。（5）結(jié)束循環(huán)，執(zhí)行Next后面的語句。 循環(huán)變量被賦初值T循環(huán)變量超過終值？ F next之后的語句循環(huán)變量加步長循環(huán)體 步長為正數(shù)時，循環(huán)變量大于終值為“超過”。 步長為負數(shù)時，循環(huán)變量小于終值為“超過”。（2）終值和初值的取值有以下情況： 步長為正數(shù)時，終值應(yīng)該大于初值，否則循

14、環(huán)體不會被執(zhí)行。 步長為負數(shù)時，終值應(yīng)該大于初值，否則循環(huán)體不會被執(zhí)行。 當終值等于初值時，不管步長是正數(shù)是負數(shù)，均執(zhí)行一次循環(huán)體。三.For循環(huán)執(zhí)行過程 循環(huán)變量被賦例如：分析如下程序的執(zhí)行過程，并寫出結(jié)果：s=0For a=1 To 10 Step 2s=s+2*a Next a分析：執(zhí) 行 過 程a=110, 執(zhí)行s=s+2*a=0+2*1=2, a=a+2=1+2=3a=310, 執(zhí)行s=s+2*a=2+2*3=8, a=a+2=3+2=5a=510, 執(zhí)行s=s+2*a=8+2*5=18, a=a+2=5+2=7a=710, 執(zhí)行s=s+2*a=18+2*7=32, a=a+2=7+

15、2=9a=910, 執(zhí)行s=s+2*a=32+2*9=50, a=a+2=9+2=11A=1110, 退出循環(huán)程序的最后結(jié)果是：s=? a=?循環(huán)次數(shù)是： ? 次例如：分析如下程序的執(zhí)行過程，并寫出結(jié)果：s=0分析： 四.程序分析見上一張ppt 五.循環(huán)次數(shù)的計算循環(huán)次數(shù)Int(終值初值)步長)注：循環(huán)變量用來控制循環(huán)過程，在循環(huán)體內(nèi)可以被引用，但不應(yīng)被重新賦值，否則將無法確定循環(huán)次數(shù)，同時也降低了程序的結(jié)構(gòu)化程度。六.For循環(huán)程序的一般結(jié)構(gòu) 變量初始化 準備工作 for 循環(huán)體 計算處理 Next輸出結(jié)果 善后工作 四.程序分析【學(xué)習(xí)目標】熟練掌握實現(xiàn)循環(huán)結(jié)構(gòu)的 Doloop循環(huán)結(jié)構(gòu)的格式

16、、功能及執(zhí)行過程復(fù)習(xí):1.For循環(huán)的循環(huán)條件是什么2.Exit for語句的功能是什么引入：現(xiàn)在世界人口約為60億，若每年以1.4%的速度增長，多少年后人口將超過70億 第四次課 DoLoop循環(huán)【學(xué)習(xí)目標】 第四次課 DoLoop循環(huán)1. Do While 循環(huán)體 Loop2. D0 循環(huán)體 Loop While 3. Do Until 循環(huán)體 Loop4. Do 循環(huán)體 Loop Until 1. Do While 2. D0 3. Do U Do While 循環(huán)體 Loop執(zhí)行過程:（先判斷，后執(zhí)行） 先判斷循環(huán)條件, 若為真則執(zhí)行循環(huán)體,然后再判斷循環(huán)條件 否則，跳過循環(huán)體,執(zhí)行L

17、oop之后語句1.x=0Do while x50 x=(x+2)*(x+3)N=n+1LoopPrin x,n Do While 執(zhí)行過程:（先判斷， Dim I as integer, s As Integer For I = 1 To 10 s = s + I Next I Print s例1:求1+2+3+4+10的和.Do while loop Dim I as integer, s As Intege D0 循環(huán)體 Loop While 執(zhí)行過程:（先執(zhí)行，后判斷） 先執(zhí)行循環(huán)體,再判斷循環(huán)條件, 若為真， 繼續(xù)執(zhí)行循環(huán)體; 否則，結(jié)束循環(huán),執(zhí)行Loop之后語句 D0 執(zhí)行過程:（先

18、執(zhí)行，后判斷） Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s (1)循環(huán)體執(zhí)行幾次？ (2)將I先賦值為11， 執(zhí)行結(jié)果如何? Dim I,s As Integer Dim I,s Do While 循環(huán)體 Loop D0 循環(huán)體 Loop While 區(qū)別:(1)執(zhí)行順序不同 形式一:先判斷,后執(zhí)行循環(huán)體; 形式二:先執(zhí)行循環(huán)體,后判斷 (2)執(zhí)行次數(shù)不同（特殊情況下） 形式一:條件不

19、滿足,循環(huán)體可能一次也不執(zhí)行 形式二:不論條件如何,至少執(zhí)行一次 Do While D0 區(qū)別:(1)執(zhí)執(zhí)行過程:（先判斷，后執(zhí)行） 先判斷循環(huán)條件： 條件為假: 執(zhí)行循環(huán)體, 然后再判斷條件. 條件為真: 跳過循環(huán)體, 執(zhí)行Loop之后語句 Do Until 循環(huán)體 Loopx=1:y=4Do until y3x=x*yy=y+1LoopPrint x執(zhí)行過程:（先判斷，后執(zhí)行） Do Until Do Until 循環(huán)體 LoopDim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Intege

20、r I=1 Do Until I10 s=s+I I=I+1 Loop Print I,s Do 循環(huán)體 Loop Until Do Until Dim I,s As In幾種形式比較: Do While 循環(huán)體 Loop（ While ） Do Until 循環(huán)體 Loop（ Until ）區(qū)別: While 條件為真時執(zhí)行循環(huán)體,否則退出循環(huán) Until 條件為假時執(zhí)行循環(huán)體,否則退出循環(huán) 關(guān)系： while和Until可以相互轉(zhuǎn)換，但循環(huán)條件取反幾種形式比較: Do While Do下列循環(huán)能正常結(jié)束的是：3.i=6Do i=i-2Loop until i=12.i=1Do i=i+2L

21、oop until i=104.i=10Do i=i+1Loop until i01.i=5Do i=i+1Loop until i0下列循環(huán)能正常結(jié)束的是：3.2.4.1.第五次課 Select Case語句【學(xué)習(xí)目標】掌握多分支結(jié)構(gòu)的特點、原理掌握多分支select case語句的格式、功能及應(yīng)用第五次課 Select Case語句【學(xué)習(xí)目標】Select Case的結(jié)構(gòu)形式為：Select Case Case Case Case Case ElseEnd SelectSelect Case的結(jié)構(gòu)形式為：Select Case語句功能：根據(jù)“測試表達式”的值，選擇第一個符合條件的語句塊執(zhí)行。Select Case語句的執(zhí)行過程是：先求“測試表達式”的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行End Select后面的語句；如果沒找到，則執(zhí)行Case Else后面的語句塊，然后執(zhí)行End Select后面的語句。Select Case語句功能：根據(jù)“測試表達式”的值，選擇格式說明：（1）“測試表達式”可以是數(shù)值表達式或字符串表達式。（2）“表達式列表”與“測試表達式”的類型必需相同。（3）當使用多個表達式組成列表時，表達式