第六章vb控制結(jié)構(gòu)

1、第六章 visual basic 控制結(jié)構(gòu)劉杉內(nèi)容提要o 選擇控制結(jié)構(gòu)o 多分支控制結(jié)構(gòu)o for循環(huán)控制結(jié)構(gòu)o 當(dāng)循環(huán)控制結(jié)構(gòu)o do循環(huán)控制結(jié)構(gòu)o 多重循環(huán)選擇控制結(jié)構(gòu)o 單行結(jié)構(gòu)條件語句n 格式n if 條件 then 語句 else 語句4.2.1 單分支ifthen語句 if then 語句塊 end if 或 if then tyx例例:已知兩個數(shù)已知兩個數(shù)x和和y，比較它們的大小，比較它們的大小， 使得使得x大于大于y. if xy then t=x : x=y: y=t end if 或或 if xy then t=x: x=y: y=t選擇控制結(jié)構(gòu)雙分支結(jié)構(gòu)ifthenels

2、e語句 if then else end if if then else 雙分支選擇結(jié)構(gòu)執(zhí)行過程雙分支選擇結(jié)構(gòu)執(zhí)行過程 if條件語句例如：輸出例如：輸出x,y兩個中值較大的一個值。兩個中值較大的一個值。if xy then print xelse print yend if也可以寫成如下的單行形式：也可以寫成如下的單行形式： if xy then print x else print yif條件語句 iif函數(shù)可用來執(zhí)行簡單的條件判斷操作，它相當(dāng)于函數(shù)可用來執(zhí)行簡單的條件判斷操作，它相當(dāng)于ifthen.else結(jié)構(gòu)。結(jié)構(gòu)。iif函數(shù)的使用格式：函數(shù)的使用格式： iif（，）說明：說明： （1）

3、與與if語句中的表達式相同，通常是關(guān)系表語句中的表達式相同，通常是關(guān)系表達式、邏輯表達式，也可為算術(shù)表達式。如果是算術(shù)表達式，達式、邏輯表達式，也可為算術(shù)表達式。如果是算術(shù)表達式，其值按非其值按非0為為true，0為為false進行判斷。進行判斷。 （2）當(dāng)）當(dāng)為真時，函數(shù)返回為真時，函數(shù)返回的值，當(dāng)?shù)闹?，?dāng)為假時，函數(shù)返回為假時，函數(shù)返回的值。的值。 （3）、可以是任何表達式。可以是任何表達式。 iif函數(shù)函數(shù) 多分支結(jié)構(gòu)ifthenelseif語句 形式: if then elseif then else 語句塊 n+1 end if執(zhí)行過程使用使用if語句實現(xiàn)的程序段如下：語句實現(xiàn)的程序

4、段如下：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 例例4-2：輸入一學(xué)生成績，評定其等級。方法是：輸入一學(xué)生成績，評定其等級。方法是：90100分為分為“優(yōu)秀優(yōu)秀”，8089分為分為“良好良好”，7079分為分為“中等中等”，6069分為分為“及格及格”，60分以為分以為“不合格不合格”select case語句（情況語句）形式：select case 變量或表達式case 表

5、達式列表1語句塊1case 表達式列表2語句塊2case else語句塊n+1end select數(shù)值型或字符串表達式多分支選擇語句select語句 說明： ：與同類型的下面四種形式之一： 表達式 a +5 一組枚舉表達式(用逗號分隔) 2, 4, 6, 8 表達式1 to 表達式2 60 to 100 is 關(guān)系運算符表達式 is 60例如：將例例如：將例4-2 使用使用select case.語句來實現(xiàn)的程序段如下：語句來實現(xiàn)的程序段如下：select case x case 90 to 100 print 優(yōu)秀優(yōu)秀 case 80 to 89 print 良好良好 case 70 to

6、79 print 中等中等 case 60 to 69 print 及格及格 case else print 不及格不及格end select選擇結(jié)構(gòu)的嵌套選擇結(jié)構(gòu)的嵌套下面是兩種正確的嵌套形式：（1） if then . if then else . end if . else . if then . else . end if . end if（2）if then . select case case if then else . end if case. . end select .end if 注意：只要在一個分支內(nèi)嵌套，不出現(xiàn)交叉，滿足結(jié)構(gòu)規(guī)注意：只要在一個分支內(nèi)嵌套，不出現(xiàn)交叉，滿

7、足結(jié)構(gòu)規(guī)則，其嵌套的形式將有很多種，嵌套層次也可以任意多。對則，其嵌套的形式將有很多種，嵌套層次也可以任意多。對于多層于多層if嵌套結(jié)構(gòu)中，要特別注意嵌套結(jié)構(gòu)中，要特別注意if與與else的配對關(guān)系，一個的配對關(guān)系，一個else必須與必須與if配結(jié)，配對的原則是：在寫含有多層嵌套的程序配結(jié)，配對的原則是：在寫含有多層嵌套的程序時，建議使用縮進對齊方式，這樣容易閱讀和維護。時，建議使用縮進對齊方式，這樣容易閱讀和維護。例如：下面程序段例如：下面程序段2個個else語句的配對關(guān)系。語句的配對關(guān)系。if x=0 then if x=10 then y=10*x+5 y=10/y+2 else y=5

8、*x-8 end ifelse y=x*xend if for循環(huán)語句循環(huán)語句 (一般用于循環(huán)次數(shù)已知一般用于循環(huán)次數(shù)已知)形式：形式： for 循環(huán)變量初值循環(huán)變量初值 to 終值終值 step 步長步長 語句塊語句塊exit for 語句塊語句塊 next 循環(huán)變量循環(huán)變量 循環(huán)變量在終值內(nèi) 語句塊 exit for 語句塊 循環(huán)變量加步長 t f 循 環(huán) 變 量 得 初值 循環(huán)體 0 初值初值終值終值 =1 時時,可省略可省略終值終值=0 死循環(huán)死循環(huán) 步長步長for.next循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)循環(huán)次數(shù)循環(huán)次數(shù)) 1(步長初值終值int例例: for i=2 to 13 step 3 pr

9、int i , next i print “i=“, i 循環(huán)執(zhí)行次數(shù)循環(huán)執(zhí)行次數(shù) 輸出輸出i的值分別為的值分別為: 2 5 8 11 出了循環(huán)輸出為出了循環(huán)輸出為: i=14例例5-1 編程計算：編程計算：s=1+2+3+100dim s%, i%s=0 累加前變量累加前變量s為為0for i=1 to 100 s=s+inext iprint s=,s 當(dāng)n=100n=n+1打印ss=0,n=1s=s+n例例5-2的算法流程圖的算法流程圖whilewend語句語句 使用格式如下：使用格式如下： while wend 說明：說明：該語句的功能與該語句的功能與do while .loop實現(xiàn)的

10、實現(xiàn)的循環(huán)完全相同。循環(huán)完全相同。當(dāng)循環(huán)控制結(jié)構(gòu)當(dāng)循環(huán)控制結(jié)構(gòu)形式形式1：（當(dāng)型循環(huán)）：（當(dāng)型循環(huán)） do while|until 語句塊語句塊 exit do 語句塊語句塊 loop 條 件 f t exit d o 語 句 塊 語 句 塊 d o w hile loop 執(zhí) 行 過 程 doloop循環(huán)語句使用形式循環(huán)語句使用形式 dodo循環(huán)控制結(jié)構(gòu)循環(huán)控制結(jié)構(gòu)形式形式2：(直到循環(huán)）直到循環(huán)）do 語句塊語句塊 exit do 語句塊語句塊loop while|until t f exit d o 語 句 塊 語 句 塊 條 件 d o loop w hile 的 執(zhí) 行 過 程 條

11、件語句塊語句塊tfexit do條 件語句塊語句塊tfexit do do untilloop執(zhí)行過程執(zhí)行過程 doloop until執(zhí)行過程執(zhí)行過程 說明：說明： （1 1）當(dāng)使用）當(dāng)使用whilewhile 構(gòu)成循環(huán)時，當(dāng)條件為構(gòu)成循環(huán)時，當(dāng)條件為“真真”，則反復(fù)執(zhí)行循，則反復(fù)執(zhí)行循環(huán)體，當(dāng)條件為環(huán)體，當(dāng)條件為“假假”，則退出循環(huán)。，則退出循環(huán)。 （2）當(dāng)使用）當(dāng)使用until 構(gòu)成循環(huán)時，當(dāng)條件為構(gòu)成循環(huán)時，當(dāng)條件為“假假”，則反復(fù)執(zhí)行循，則反復(fù)執(zhí)行循環(huán)體，直到條件成立，即為環(huán)體，直到條件成立，即為“真真”時，則退出循環(huán)。時，則退出循環(huán)。 （3 3）在循環(huán)體內(nèi)一般應(yīng)有一個專門用來改變條

12、件表達式中變量的語句，）在循環(huán)體內(nèi)一般應(yīng)有一個專門用來改變條件表達式中變量的語句，以使隨著循環(huán)的執(zhí)行，條件趨于不成立（或成立），最后達到退出循環(huán)。以使隨著循環(huán)的執(zhí)行，條件趨于不成立（或成立），最后達到退出循環(huán)。 （4）語句）語句exit do的作用是退出它所在的循環(huán)結(jié)構(gòu)，它只能用在的作用是退出它所在的循環(huán)結(jié)構(gòu)，它只能用在do/loop結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來實結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來實現(xiàn)當(dāng)滿足某一條件時提前退出循環(huán)。現(xiàn)當(dāng)滿足某一條件時提前退出循環(huán)。 例例5-3 將一個十進制數(shù)轉(zhuǎn)換成二進制。將一個十進制數(shù)轉(zhuǎn)換成二進制。 算法流程圖算法流

13、程圖分析分析: : 將一個十進制數(shù)轉(zhuǎn)換成二進制采用連除將一個十進制數(shù)轉(zhuǎn)換成二進制采用連除2 2取余數(shù)的方法，即將十進制數(shù)取余數(shù)的方法，即將十進制數(shù)除以除以2取余數(shù)，直取余數(shù)，直到商為到商為0，然后所得的余數(shù)即為二進制數(shù)各位的，然后所得的余數(shù)即為二進制數(shù)各位的數(shù)碼，從右到左排列，第一次除數(shù)碼，從右到左排列，第一次除2的余數(shù)在最左的余數(shù)在最左邊。算法設(shè)計如下：用變量邊。算法設(shè)計如下：用變量dec表示表示十進制數(shù)，十進制數(shù)，binbin表示轉(zhuǎn)換所得的二表示轉(zhuǎn)換所得的二進制數(shù)字符串。進制數(shù)字符串。（1） 輸入十進制輸入十進制dec（2） dec除以除以2 2得余數(shù)得余數(shù)r res,商又賦值給商又賦值給

14、dec；讓；讓bin = res & binbin = res & bin（3） 若若decdec=0，則算法結(jié)束；否則執(zhí)行（，則算法結(jié)束；否則執(zhí)行（2）算法的算法的n-sn-s流程圖如圖流程圖如圖5-7所示。所示。將一個十進制數(shù)轉(zhuǎn)換成二進制的程序如下將一個十進制數(shù)轉(zhuǎn)換成二進制的程序如下: : private sub form_click() dim dec as integer 表示十進制數(shù)表示十進制數(shù) dim bin as string 轉(zhuǎn)換為二進制表示轉(zhuǎn)換為二進制表示 dim res as integer dec = val(inputbox(輸入一個十進制數(shù)輸入一個十進制數(shù)dec=？)

15、 print 十進制數(shù)：十進制數(shù)：; dec do res = dec mod 2 求出除以求出除以2的余數(shù)的余數(shù) bin = res & bin dec = dec 2 loop until dec=0 print 轉(zhuǎn)換為二進制數(shù)為：轉(zhuǎn)換為二進制數(shù)為：; binend subend sub for each next語句語句 for each next語句語法格式如下：語句語法格式如下： for each in 語句塊語句塊 exit for 語句塊語句塊 next for each.next 循環(huán)與循環(huán)與 for.next 循環(huán)類似，但它對數(shù)組或循環(huán)類似，但它對數(shù)組或?qū)ο蠹现械拿恳粋€元素

16、重復(fù)執(zhí)行一組語句，而不是重復(fù)語句對象集合中的每一個元素重復(fù)執(zhí)行一組語句，而不是重復(fù)語句一定的次數(shù)。如果不知道一個集合有多少元素，一定的次數(shù)。如果不知道一個集合有多少元素， for each.next 循環(huán)非常有用。循環(huán)非常有用。 例例5-4 系統(tǒng)對象系統(tǒng)對象controls是包含了窗體中所有控件的集是包含了窗體中所有控件的集合對象。使用合對象。使用for each.next來輸出窗體上所有控件的名稱來輸出窗體上所有控件的名稱和在窗體中的位置（和在窗體中的位置（top及及l(fā)eft屬性）。屬性）。dim x as control 定義定義x為為controls對象集合對象集合private sub

17、 form_click() for each x in form1.controls print x.name,x.left,x.top next xend sub 例例5-5 使用使用for each.next對數(shù)組元素進入操作。下面是一個給數(shù)組對數(shù)組元素進入操作。下面是一個給數(shù)組輸入和輸出數(shù)組元素的程序。輸入和輸出數(shù)組元素的程序。private sub command1_click()dim a(10) as integerdim fnfor each fn in a fn = val(inputbox(請輸入請輸入a( & fn & )=) print fnnext fnend sub循

18、環(huán)的嵌套循環(huán)的嵌套多重循環(huán)結(jié)構(gòu)多重循環(huán)結(jié)構(gòu) 如果在一個循環(huán)內(nèi)完整地包含另一個循環(huán)結(jié)構(gòu)，則稱如果在一個循環(huán)內(nèi)完整地包含另一個循環(huán)結(jié)構(gòu)，則稱為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，嵌套一層稱為二重循環(huán)，嵌套二層稱為三重循環(huán)。嵌套一層稱為二重循環(huán)，嵌套二層稱為三重循環(huán)。 上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是幾種常見的二重嵌套形式：幾種常見的二重嵌套形式：多重循環(huán)多重循環(huán)（1）for i=. . for j=. . next j . next i（2）for i=. . do whi

19、le/until . . loop . next i（3）do while. . for j=. . next j . loop（4）do while/until. . do while/until . . loop . loop例如例如：打印九九乘法表打印九九乘法表. for i = 1 to 9 for j = 1 to 9 se = i & & j & = & i * j picture1.print tab(j - 1) * 9 + 1); se; next j picture1.print next i for i =1 to 10 for j=1 to 20 next j next

20、 i for i =1 to 10 next i for i =1 to 10 next i 對于循環(huán)的嵌套，要注意以下事項：對于循環(huán)的嵌套，要注意以下事項： (1) 內(nèi)循環(huán)變量與外循環(huán)變量不能同名；內(nèi)循環(huán)變量與外循環(huán)變量不能同名； (2) 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； (3) 不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán)循環(huán). 下面是正確的嵌套下面是正確的嵌套 for i =1 to 10 for j=1 to 20 next i next j for i =1 to 10 for i=1 t

21、o 20 next i next i下面是不正確的嵌套下面是不正確的嵌套對于循環(huán)的嵌套，要注意以下事項：對于循環(huán)的嵌套，要注意以下事項：(1) 內(nèi)循環(huán)變量與外循環(huán)變量不能同名；內(nèi)循環(huán)變量與外循環(huán)變量不能同名；(2) 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； (3) 不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán)不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán). 例例5-6 編一程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，編一程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，是指一個三位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例是指一個三位數(shù)，其各位數(shù)字立方和等于該數(shù)

22、字本身。例如，如，153153是水仙花數(shù)，因為：是水仙花數(shù)，因為： 333351153+=循環(huán)結(jié)構(gòu)與選擇結(jié)構(gòu)的嵌套循環(huán)結(jié)構(gòu)與選擇結(jié)構(gòu)的嵌套 在循環(huán)結(jié)構(gòu)中可以完整嵌套選擇結(jié)構(gòu)即整個選擇結(jié)構(gòu)在循環(huán)結(jié)構(gòu)中可以完整嵌套選擇結(jié)構(gòu)即整個選擇結(jié)構(gòu)都屬于循環(huán)體。在選擇結(jié)構(gòu)中嵌套循環(huán)結(jié)構(gòu)時，則要求整都屬于循環(huán)體。在選擇結(jié)構(gòu)中嵌套循環(huán)結(jié)構(gòu)時，則要求整個循環(huán)結(jié)構(gòu)必須完整地嵌套在一個分支內(nèi)，一個循環(huán)結(jié)構(gòu)個循環(huán)結(jié)構(gòu)必須完整地嵌套在一個分支內(nèi)，一個循環(huán)結(jié)構(gòu)不允許出現(xiàn)在兩個或兩個以上的分支內(nèi)。不允許出現(xiàn)在兩個或兩個以上的分支內(nèi)。 （1）for i= if then end if next i（6） if then for

23、i= end if next i（5）select case for i= case case next i end select（3）for i= if then next i end if（2）if then for i= next i end if（4）for i= select case case case end select next i應(yīng)用舉例應(yīng)用舉例累計累計求和、求乘求和、求乘積、計數(shù)等問題積、計數(shù)等問題例例5-7 編程序計算：編程序計算： )!12(1)1(.!71!51!3111nn 此類問題都要使用循環(huán)，根據(jù)問題的要求，確定循環(huán)此類問題都要使用循環(huán)，根據(jù)問題的要求，確定循

24、環(huán)變量的初值、終值或結(jié)束條件及用來表示計數(shù)、和、階乘變量的初值、終值或結(jié)束條件及用來表示計數(shù)、和、階乘的變量的初值。的變量的初值。 )!12(1) 1(.! 71! 51! 3111nn+應(yīng)用舉例應(yīng)用舉例素數(shù)與哥德巴赫猜想素數(shù)與哥德巴赫猜想 判斷一個給定的整數(shù)是否為素數(shù)。判斷一個給定的整數(shù)是否為素數(shù)。 算法思路：素數(shù)指除了能被算法思路：素數(shù)指除了能被1和自身外，不能被其他整和自身外，不能被其他整數(shù)整除的自然數(shù)。判斷整數(shù)數(shù)整除的自然數(shù)。判斷整數(shù)n是不是素數(shù)的基本方法是：將是不是素數(shù)的基本方法是：將n分別除以分別除以2，3，n-1，若都不能整除，則，若都不能整除，則n為素數(shù)。為素數(shù)。因為因為n=s

25、qr(n)*sqr(n)，所以，當(dāng)，所以，當(dāng)n能被大于等于能被大于等于sqr(n)的的整數(shù)整除時，一定存在一個小于等于整數(shù)整除時，一定存在一個小于等于sqr(n)的整數(shù)，使的整數(shù)，使n能能被它整除，因此只要判斷被它整除，因此只要判斷n能否被能否被2，3，sqr(n)整除即整除即可?？?。 算法流程圖如下算法流程圖如下：dim n %, i%, k%n = val(inputbox(n=？)k= int(sqr(n)for i = 2 to k if n mod i = 0 then exit fornext iif ik then print n; 是素數(shù)是素數(shù)else print n; 不是素

26、數(shù)不是素數(shù)end if 算法流程圖算法流程圖程序代碼：程序代碼：應(yīng)用舉例應(yīng)用舉例 例例5-10 編一程序驗證哥德巴赫猜想：一個大于等于編一程序驗證哥德巴赫猜想：一個大于等于6的偶數(shù)的偶數(shù)可以表示為兩個素數(shù)之和。例如：可以表示為兩個素數(shù)之和。例如： 6=3+3 8=3+5 10= 3+7 算法設(shè)計：算法設(shè)計：設(shè)設(shè)n為大于等于為大于等于6的的任一偶數(shù)，將其分解為任一偶數(shù)，將其分解為n1和和n2兩兩個數(shù)，使用個數(shù)，使用n1+n2=n，分別判斷，分別判斷n1和和n2是否為素數(shù)，若都是，則是否為素數(shù)，若都是，則為一組解。若為一組解。若n1不是素數(shù)，就不必不是素數(shù)，就不必再檢查再檢查n2是否素數(shù)。先從是否

27、素數(shù)。先從n1=3開開始，直到始，直到n1=n/2為止。算法流程圖為止。算法流程圖如圖如圖4-29所示。將程序代碼寫到窗所示。將程序代碼寫到窗體的單擊事件中。體的單擊事件中。實現(xiàn)上面算法的程序代碼如下：實現(xiàn)上面算法的程序代碼如下：應(yīng)用舉例應(yīng)用舉例private sub form_click() dim n%, n1%, n2%, i%, k1%, k2% n=val(inputbox(輸入大于輸入大于6的偶數(shù)的偶數(shù)) for n1 = 3 to n 2 step 2 k1 = int(sqr(n1) for i = 2 to k1 判斷判斷n1是否是素數(shù)是否是素數(shù) if n1 mod i =

28、0 then exit for next i if i k1 then 如果如果n1為素數(shù)，將為素數(shù)，將n分解為分解為n1+n2 n2 = n - n1 k2 = int(sqr(n2) for i = 2 to k2 判斷判斷n2是否是素數(shù)是否是素數(shù) if n2 mod i = 0 then exit for next i if i k2 then 如果如果n2也為素數(shù)，則打印輸出也為素數(shù)，則打印輸出 print n & = & n1 & + & n2 end if end if next n1end sub應(yīng)用舉例應(yīng)用舉例打印有規(guī)律圖案打印有規(guī)律圖案 例例5-11 打印由數(shù)字組成的如下所示

29、金字塔圖案。打印由數(shù)字組成的如下所示金字塔圖案。應(yīng)用舉例應(yīng)用舉例 9 9 888 888 77777 77777 6666666 6666666 555555555 555555555 44444444444 44444444444 3333333333333 3333333333333 222222222222222 222222222222222 11111111111111111 11111111111111111窮舉法窮舉法 窮舉法窮舉法（又稱（又稱“枚舉法枚舉法”）的基本思想是：一一列舉各種）的基本思想是：一一列舉各種可能的情況，并判斷哪一種可能是符合要求的解，這是一種可能的情況，并判斷哪一種可能是符合要求的解，這是一種“在沒有其它辦法的情況的方法在沒有其它辦法的情況的方法”，是一種最，是一種最“笨笨”的方法，的方法，然而對一些無法用解析法求解的問題往往能奏效，常常采用然而對一些無法用解析法求解的問題往往能奏效，常常采用循環(huán)來處理窮舉問題。循環(huán)來處理窮舉問題。 例例5-125-12 將一張面值為將一張面值為100元的人民幣等值換成元的人民幣等值換成100張張5元、元、1元和元和0.5元的零鈔，要求每種零鈔不少于元的零鈔，要求每種零鈔不少于1張，問有哪幾種組張，問有哪幾種組合？合？ 應(yīng)用舉例應(yīng)用舉例字符串處理字符串處理 例