【正文】 魚，不如退而結(jié)網(wǎng)。 例子：九九乘法表（演示） For i=1 to 9 For j=1 to i print I。 Mid(s, i, 1) End If Next i For i = Len(t) To 1 Step 1 d = d amp。 sum End Sub Sum=14 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 End if Next I Print sum Dim i As Integer, sum As Long Do While (i = 10) sum = sum + i i = i + 1 Loop Print sum 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 求 1～ 10這十個(gè)數(shù)的和與乘積（教材 P70） Dim I as Integer,sum as Integer Sum=0 For I=1 to 10 sum = sum + I if I10 then print I。 Next i Print i=。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) ?特別注意： ?但循環(huán)變量 v若在循環(huán)體內(nèi)被改變，則循環(huán)次數(shù)有可能發(fā)生變化。 計(jì)算公式 26=13（ 1+） n 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 循環(huán)程序分析 Private Sub Command1_Click() Dim s As Integer, d As String Dim k As Integer, p As String s = 29 Do Until s = 5 p = s Mod 5 d = d amp。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 輸入兩個(gè)自然數(shù) M， N 求 M除以 N的余數(shù) R 用 N代換 M 用 R代換 N 若 R0,則重復(fù)執(zhí)行 2， 3， 4，否則轉(zhuǎn)向 6。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 一、 DoLoop循環(huán) 形式 1： Do 語(yǔ)句塊 [ Exit Do ] 語(yǔ)句塊 Loop Until e 語(yǔ)句塊 Until循環(huán) 1 Do untile e 實(shí)質(zhì)：當(dāng)條件 e為假 時(shí)執(zhí)行循環(huán)體 區(qū)別 ： 就是三先執(zhí)行再判斷，四是先判斷再執(zhí)行。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 實(shí)現(xiàn) 從 1到 10的累加和 Dim i As Integer, sum As Integer i = 1: sum = 0 Do While (i = 10) ‘ 循環(huán)條件是 :i=10是執(zhí)行循環(huán)體 sum = sum + i ‘ 對(duì)要求的結(jié)果累加運(yùn)算 i = i + 1 ‘ 改變循環(huán)條件，目的為了跳出循環(huán)！ Loop Print sum 演示 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) ?循環(huán)者： 重復(fù)執(zhí)行某些操作也！ True False 循環(huán)語(yǔ)句 當(dāng)型循環(huán)：形式 1 當(dāng)型循環(huán)：形式 2 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 說明： 1）變量或表達(dá)式可以是數(shù)值型或字符串表達(dá)式 2）表達(dá)式列表 i可以是 表達(dá)式 、 一組用逗號(hào)分隔的枚舉值 、 表達(dá)式 1 to 表達(dá)式 Is關(guān)系運(yùn)算符表達(dá)式；如： case 1 to 10 ‘ 表示測(cè)試的表達(dá)式在 1到 10范圍內(nèi) case ?a?,?w?,?e?,?t? ‘ 表示測(cè)試的表達(dá)式為枚舉值 case 2,4,6,8,is10 ‘ 表示測(cè)試的值為 2,4,6,8或大于 10 3）并不是所有的多分支結(jié)構(gòu)都可以用情況語(yǔ)句代替的。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 一、 Ifelse語(yǔ)句 ?語(yǔ)句形式： ? If 表達(dá)式 1 Then If 表達(dá)式 11 Then …… End If …… End If If語(yǔ)句的嵌套 1） 對(duì)于嵌套結(jié)構(gòu)，為了增強(qiáng)程序的可讀性，應(yīng)該采用縮進(jìn)形式書寫； 2） If語(yǔ)句形式若不在一行上書寫，必須與 End If配對(duì)，多個(gè)if嵌套， End If與它最接近的 If配對(duì)。 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 一、 Ifelse語(yǔ)句 語(yǔ)句形式 1： If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If 雙分支結(jié)構(gòu) If x0 then Print ?x 是正數(shù)? Else Print ?x 是負(fù)數(shù)? End if Print? 測(cè)試完畢? 演示 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 當(dāng)型循環(huán) 直到型循環(huán) 基本算法結(jié)構(gòu) 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 復(fù)習(xí)：三種基本結(jié)構(gòu) 基本算法結(jié)構(gòu) 順序結(jié)構(gòu) 分支結(jié)構(gòu) 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 主要內(nèi)容 選擇結(jié)構(gòu) 一、 Ifelse語(yǔ)句 雙分支 單分支 多分支 二、 Select Case語(yǔ)句 多分支 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 一、 Ifelse語(yǔ)句 語(yǔ)句形式 2： If 表達(dá)式 Then 語(yǔ)句塊 1 單分支結(jié)構(gòu) If x0 Then Print ?x 是正數(shù)? 演示 說明： 表達(dá)式一般為關(guān)系表達(dá)式、邏輯表達(dá)式，也可以為算術(shù)表達(dá)式，非 0為 True， 0為 False； 語(yǔ)句塊可以是一句或多句，若用 2）表示，則只能是一句語(yǔ)句，若多句，語(yǔ)句間需用 冒號(hào) 分隔，而且必須在一行上書寫。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 一、 Ifelse語(yǔ)句 語(yǔ)句形式 2： If 表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2 Then 語(yǔ)句塊 2 …… [ Else 語(yǔ)句塊 n+1 ] End If 多分支結(jié)構(gòu) 1） 不管有幾個(gè)分支，程序執(zhí)行了一個(gè)分支后，其余分支不再執(zhí)行； 2） ElseIf 不能寫成 Else If 3） 當(dāng)多分支中有多個(gè)表達(dá)式同時(shí)滿足，則只執(zhí)行第一個(gè)與之匹配的語(yǔ)句塊 elseif elseif elseif 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 2. Select Case語(yǔ)句（情況語(yǔ)句） ? 是多分支語(yǔ)句的又一種形式，語(yǔ)句形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語(yǔ)句塊 1 Case 表達(dá)式列表 2 語(yǔ)句塊 2 …… [Case Else 語(yǔ)句塊 n+1] End Select 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 主要內(nèi)容 循環(huán)結(jié)構(gòu) 一、 DoLoop循環(huán)語(yǔ)句 當(dāng)型 先判斷后執(zhí)行 先執(zhí)行后判斷 直到型 先判斷后執(zhí)行 先執(zhí)行后判斷 二、 For循環(huán)語(yǔ)句 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 與其臨淵羨魚，不如退而結(jié)網(wǎng)。 趙芳 VB第 5章 VB基礎(chǔ)結(jié)構(gòu) 執(zhí)行次數(shù)的比較：