程序控制結構第4章本章要點選擇結構程序設計循環結構程序設計順序結構程序設計4.1.1數據的輸入4.1順序結構程序設計順序結構選擇結構循環結構循環條件語句1語句2……..語句1語句2語句3分支1分支2分支n選擇條件三種程序結構

順序結構是指依順序逐條執行的語句，只有在上一條語句執行完成后，才能執行下一條語句。4.1.1數據的輸入4.1順序結構程序設計InputBox函數的定義格式：變量=InputBox[$]（<提示>[，<標題>][，<缺省>]

[，<x坐標位置>][，<y坐標位置>]）功能：產生一個對話框，等待用戶鍵入文本或選擇一個按鈕后，將會返回對話框中文本框的內容。

使用說明：(1)<提示項>為字符串表達式，不能省略，在對話框中作為顯示信息。(2)<標題>為字符串表達式，是對話框的標題。若缺省，則默認顯示應用程序名在標題欄中。4.1.1數據的輸入4.1順序結構程序設計(3)[，<x坐標位置>][，<y坐標位置>]為整型表達式，確定對話框左邊與屏幕左邊界的位置（屏幕左上角為坐標原點），若<x坐標位置>省略則對話框位于屏幕水平正中。(4)各項參數次序必須一一對應，除<提示>項不能省略，其余各項均為可選項，但若缺省參數間的逗號不能省略。(5)若返回數據參加算術運算，可用Val函數將其轉換成數值型數據。(6)每執行一次InputBox函數只能輸入一個值。要輸入多個數據，需多次執行InputBox函數，實際應用中可和循環語句聯合使用。另外要注意與文本框的使用區別。4.1.1數據的輸入4.1順序結構程序設計

代碼為：srtName=InputBox("請輸入您要查找的姓名：","姓名查找")說明：（1）設置在對話框彈出時默認文本為“張豫清”（2）設置對話框彈出的位置為（5000，5000）試分析你的顯示屏幕右下角的坐標位置。例如顯示一個需要輸入查找姓名的對話框，如圖：4.1.2數據的輸出4.1順序結構程序設計VB中用于數據輸出的方法主要有以下幾種：標簽、文本框等控件；Print方法；輸出消息框。（本小節重點介紹）

在編寫代碼時，常常需要告訴用戶一些信息，這是需要用到信息對話框（MsgBox）。

與MsgBox函數功能相同的，還有MsgBox過程，它沒有返回值，僅僅是用來輸出信息。4.1.2數據的輸出4.1順序結構程序設計

函數使用格式：變量[$]=MsgBox（<提示>[,<按鈕類型>][,<標題>]）過程使用格式：MsgBox<提示>[,<按鈕類型>][,<標題>]功能：執行MsgBox函數或過程時，屏幕彈出一個對話框，通過窗口中的命令按鈕控制程序的執行。其中MsgBox函數的返回值是整數。4.1.2數據的輸出4.1順序結構程序設計使用說明：（1）<提示>是字符串，該項不能省略，是顯示在對話框中的信息，其長度不能超過1024個字符，否則多余的字符將被截掉。（2）<按鈕類型>為可選項，用來確定對話框中顯示的按鈕數目、形式、圖表類型、默認按鈕以及對話框模式等。該部分通常由3組參數共同構成：參數1決定對話框的按鈕情況；參數2決定對話框中顯示圖標的樣式；參數3指定對話框的默認（缺省）按鈕，直接回車即等于單擊了默認按鈕。4.1.2數據的輸出4.1順序結構程序設計例4-3

利用MsgBox函數創建“退出”消息框。演示程序4.1.3順序結構程序應用示例4.1順序結構程序設計

例4-5

某地區電話號碼由7位升為8位，其規律為：原有電話號碼最高位數字加1（設原有最高位小于9），并在最高位之前加一個“8”。例如，原電話號碼將變為。編寫程序輸入一個原電話號碼（包括區號），輸出新號碼。演示程序4.1.3順序結構程序應用示例4.1順序結構程序設計小結:

本小節介紹了順序結構的相關內容，順序結構是按照語句的書寫順序執行的結構。它是程序的主體結構，組成順序結構的主要語句有輸入語句和輸出語句。其中輸入方法包括賦值語句、利用“文本框”控件輸入數據和利用“對話框”輸入數據；輸出方法包括Print方法、利用“標簽”控件輸出數據和利用“消息對話框”輸出數據。4.2.1簡單的分支結構4.2選擇結構程序設計簡單分支結構分為單分支選擇結構和雙分支選擇結構語句形式。1．單分支選擇結構格式一：If<表達式>Then<語句塊>EndIf格式二：

If

<表達式>

Then

<語句>功能：先計算<表達式>的值，若值為True，則執行<語句塊>或<語句>操作，否則跳過<語句塊>或<語句>操作，直接執行EndIf后面的語句。條件=？選擇1繼續向前TrueFalse4.2.1簡單的分支結構4.2選擇結構程序設計條件=？選擇1選擇2繼續TrueFalse2．雙分支選擇結構格式一：

If

<表達式>

Then

<語句塊1>Else

<語句塊2>EndIf格式二：If

<表達式>Then<語句1>Else<語句2>

功能：先計算

<表達式>的值，當

<表達式>的值為True（條件滿足）時，執行<語句塊1>或<語句1>；否則，執行<語句塊2>或<語句2>。無論執行哪個語句塊的操作，都將順序執行EndIf的下一條語句。4.2.1簡單的分支結構4.2選擇結構程序設計例如：討論并求解一元二次方程

解法1：僅就有實數根時求解（使用單行If語句，省略Else選項）：a=32:b=28:c=-45d=b^2-4*a*cifd>=0thenx1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a)Print“x1=”;x1,”x2=”;x24.2.1簡單的分支結構4.2選擇結構程序設計解法2：有實數根時求解,否則輸出無實根：a=Val(InputBox(“請輸入A”)b=Val(InputBox(“請輸入B”)c=Val(InputBox(“請輸入C”)d=b^2-4*a*cifd>=0thenx1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a)Print“x1=”;x1,”x2=”;x2ElsePrint“沒有實數根！”EndIf輸入系數a,b,c開始計算根的判別式d=b*b-4*a*c結束d>=0?輸出無實根計算x1=計算x2=輸出實根x1,x2TrueFalse而第三種解法就三種情況討論：有兩不等實數根、兩相等實數根和無實根。這如何解決呢？4.2.2多分支選擇結構4.2選擇結構程序設計1.If…Then…ElseIf語句格式：

If

<表達式1>

Then

<語句塊1>

ElseIf

<表達式2>

Then

<語句塊2>

……

[Else

<語句塊n+1>]

EndIf4.2.2多分支選擇結構4.2選擇結構程序設計

功能：根據<表達式i>,確定執行<語句塊i>，VB測試條件的順序為表達式1、表達式2…，一旦遇到表達式值為True（非零），則執行該條件下的語句塊。

說明：

（1）不管有幾個分支，程序執行了一個分支后，其余分支不再執行；（2）ElseIf不能寫成ElseIf；（3）當多分支中有多個表達式同時滿足，則只執行第一個與之匹配的語句塊4.2選擇結構程序設計4.2.2多分支選擇結構流程圖：

功能：根據<變量或表達式>的值從上至下依次檢查n個<表達式列表>，果有一個與<變量或表達式>的值相匹配，選擇n+1個<語句塊1>中對應的一個執行，其余分支不再執行，當所有case中的<表達式列表>中沒有與<變量或表達式>的值相匹配時，如果有CaseElse項，則執行<語句塊n+1>，然后執行EndSelect后面的下一條語句；否則，直接執行EndSelect后面的下一條語句。4.2選擇結構程序設計4.2.2多分支選擇結構4.2選擇結構程序設計解法3：就三種情況討論：有兩不等實數根、兩相等實數根和無實根：a=Val(InputBox(“請輸入A”)b=Val(InputBox(“請輸入B”)c=Val(InputBox(“請輸入C”)d=b^2-4*a*cIfd>0thenx1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a):?x1=”;x1,”x2=”;x2ElseIfd=0then?”x1=x2=”;-b/(2*a)ElsePrint“無實根”

EndIfEndIf輸入系數a,b,c開始計算根的判別式d=b*b-4*a*c輸出無實根結束d>0?計算x1=計算x2=輸出實根x1,x2d=0?輸出等實根TrueTrueFalseFalse4.2.2多分支選擇結構4.2選擇結構程序設計多分支選擇結構是在選擇結構中進行多個條件的測試，根據測試的條件，執行相應的語句塊。例如，上述三分支問題采用兩個單分支嵌套的方式，為了簡化嵌套格式VB采用下列固定格式：a=Val(InputBox(“請輸入A”)b=Val(InputBox(“請輸入B”)c=Val(InputBox(“請輸入C”)d=b^2-4*a*cIfd>0thenx1=(-b+sqr(d))/(2*a)x2=(-b-sqr(d))/(2*a):?x1=”;x1,”x2=”;x2ElseIfd=0then?”x1=x2=”;-b/(2*a)ElsePrint“無實根”4.2.2多分支選擇結構

4.2.3條件函數4.2選擇結構程序設計它是雙分支選擇結構的另一種形式。函數格式：IIf（<表達式1>，<表達式2>，<表達式3>）功能：先計算<表達式1>的值，當<表達式1>的值為

True時，函數的返回值為<表達式2>的計算結果；當<表達式1>的值為False時，函數返回值為<表達式3>的計算結果。使用說明：（1）<表達式1>必須是關系表達式或邏輯表達式。（2）<表達式2>和<表達式3>可以是任意表達式。

4.2.3條件函數4.2選擇結構程序設計

例4-13

進行兩個數的大小比較，并在標簽中顯示出比較結果。演示程序4.2.4選擇結構程序應用示例4.2選擇結構程序設計

例4-14

設計一個窗體，計算某國個人收入所得稅，所得稅率如表所示。個人收入（元）＜2000020000～2999930000～599999≥60000稅率5％10％20％40％演示程序4.2選擇結構程序設計

小結：

選擇結構也叫分支結構，它可以使程序在運行過程中根據設定的條件來選擇執行相應的程序語句，從而完成較復雜的任務。本章重點講述了單分支、雙分支和多分支結構的選擇語句。在VB中，實現選擇結構的語句有：

If...Then...Else、If...Then...ElseIf、SelectCase等語句。

4.2.4選擇結構程序應用示例4.3.1For循環結構4.3循環結構程序設計

循環結構是用來描述有規律地重復執行的某一程序段，簡化程序，提高效率。它只有一個入口，一個出口。常用的循環結構有以下2種：

先判斷后執行循環條件語句1語句2……..先執行后判斷循環條件語句1語句2……..循環體:循環中反復執行的部分

循環體:循環中反復執行的部分

在VB中,循環結構主要通過以下3個語句實現：For循環（For…Next循環）--先判斷后執行當循環（While…Wend循環）

--先判斷后執行Do循環（Do…Loop循環）---可以實現兩種結構重點重點+難點：循環程序設計方法+循環的嵌套4.3.1For循環結構4.3循環結構程序設計

一個循環結構應由4個主要部分構成：

(1)循環變量，它保證循環體在循環過程中，相關的量能按一定的規律變化。

(2)循環的初始部分，它是循環結構開始執行的語句，往往編寫在循環體的開頭部分，邏輯上先從這一部分開始執行。

(3)循環體，完成循環程序的主要工作。

(4)循環條件，它控制循環程序按規定的條件正確進行，并結束循環。3種不同風格的循環結構：(1)For…Next語句

(2)While…Wend語句

(3)Do…Loop語句4.3.1For循環結構4.3循環結構程序設計For循環又稱計數循環,用來處理循環次數預先知道的。循環格式為:For循環變量=循環變量初值To終值[Step

步長]語句塊

[ExitFor]語句塊

Next

循環變量功能：用循環計數器循環變量來控制語句塊即循環體內的執行次數。循環體4.3循環結構程序設計4.3.1For循環結構

例4-16

設計一窗體，在窗體上顯示如圖4-19所示圖形。演示程序4.3循環結構程序設計4.3.1For循環結構賦初值：x=1判斷：x“超過”終值?執行：執行一次循環體跨步：x=x+步長，返回退出循環是4.3循環結構程序設計4.3.1For循環結構4.3.2While循環與Do循環結構

1.While語句

While語句又稱“當”型循環控制語句，它是通過“循環條件”控制重復執行一組語句。

格式：While<循環條件><循環體>Wend

功能：當<循環條件>為True時，執行<循環體>內的語句，遇到Wend語句后，再次返回。繼續測試<循環條件>是否為True，直到<循環條件>為False，跳出整個循環，執行Wend語句的下一條語句。4.3循環結構程序設計判斷：條件是否滿足?執行：執行一次循環體返回否是退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計2.Do語句格式1：Do<While|Until循環條件>

<循環體>

<Exit

Do>

<循環體>

Loop功能：當<循環條件>為True時，或直到<循環條件>變為True之前，重復執行循環體內的語句，否則，執行Loop語句的下一條。

4.3.2While循環與Do循環結構格式2：

Do

<循環體>

<Exit

Do>

<循環體>Loop<While|Until循環條件>4.3循環結構程序設計共派生以下5種形式：（1）DoWhile條件…Loop循環DoWhile條件循環體Loop判斷：條件是否滿足?執行：執行一次循環體返回是否退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計（2）DoUntil條件…Loop循環DoUntil條件循環體Loop判斷：條件是否滿足?執行：執行一次循環體返回是退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計（3）Do…LoopWhile條件循環

Do

循環體LoopWhile條件判斷：條件是否滿足?執行：執行一次循環體否是退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計（4）Do…LoopUntil條件循環

Do

循環體LoopUntil條件判斷：條件是否滿足?執行：執行一次循環體是否退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計（5）Do…Loop循環

Do

循環體Loop執行：執行一次循環體返回

省略了“{While∣Until}條件”子句的循環，則為無條件循環。這種形式沒有要判斷的邏輯表達式，此時必須在循環體內適當位置插入“ExitDo”語句，否則會陷入死循環。4.3.2While循環與Do循環結構4.3循環結構程序設計For-Next循環與Do-Loop循環的比較:賦初值：x=1判斷：x“超過”終值?執行：執行一次循環體跨步：x=x+步長，返回否是退出循環判斷：條件是否滿足?執行：執行一次循環體返回是否退出循環4.3.2While循環與Do循環結構4.3循環結構程序設計

(1)For循環格式固定,只能實現”先判斷,后執行”方式,Do循環則比較靈活,可以實現良種方式;(2)For循環控制方式都是自動的,包括循環控制變量的指定、賦初值、循環跨步等都是自動完成。而Do循環中這些操作都要自己設置；(3)For循環控制方式采用“X=初值To終值”的描述方法，而Do循環則用邏輯表達式的值進行控制。4.3.2While循環與Do循環結構4.3循環結構程序設計例4-18

求1！+2！+…＋n！的和。

1演示程序4.3.2While循環與Do循環結構4.3循環結構程序設計習題P100—4（5）如果一個三位數三個數字的立方和等于這個數，稱為水仙花數。編一段程序，打印所有水仙花數。【思路】（1）三位整數范圍:Forx=100To999（2）求三位數字:A、B、C：百位數字：A=Int(x/100)

十位數字：B=Int((x-100*A)/10)

個位數字：C=x-100*A-10*B（3）判斷：A3+B3+C3=x?1354.3.2While循環與Do循環結構4.3循環結構程序設計4.3.3其它輔助控制語句

1．Goto語句格式:GoTo[標號|行號]

功能：是無條件地轉移到標號或行號指定的那一行語句。因此常被稱作無條件轉向語句。使用說明：（1）標號、行號：標號是一個以冒號結尾的標識符；行號是一個整形數，不以冒號結尾。標號和行號標識一個位置，可以使用GoTo語句轉到這一位置。（2）Goto語句中的標號和行號，在程序中必須存在，且是唯一的。（3）Goto語句只能在一個過程內轉向。4.3循環結構程序設計4.3.3其它輔助控制語句在VB中，有如下幾種中途提前跳出循環的輔助語句：

（1）ExitFor：用于中途跳出For循環，可以直接使用，也可以用條件判斷語句加以限制，在滿足某個條件時才能執行此語句，跳出For循環。例如：在For循環內部添加語句“If條件

ThenExitFor”。

（2）ExitDo：用于中途跳出Do循環，其用法與ExitFor類似。

（3）ExitSub：用于中途跳出Sub過程。

（4）ExitFunction：用于中途跳出Function過程。ExitSub和ExitFunction的用法在第六章詳細介紹。2．Exit語句

4.3循環結構程序設計4.3.4循環的嵌套

一個循環體內包含另一個完整的循環結構，稱為循環的嵌套結構。在循環結構中可以嵌套任何循環結構，也可以嵌套選擇結構。在程序設計時，許多問題用二重或多重循環才能解決。前面介紹的For循環，Do循環，While循環都可以互相嵌套，如在For…Next循環體內使用While循環，而在While…Wend循環體內也可以內使用For循環等。循環開始循環結束4.3循環結構程序設計循環開始循環結束

在循環嵌套中要注意，內層循環應完全在外層循環的里面，不允許出現交叉。

4.3.4循環的嵌套4.3循環結構程序設計例4-22

用數字顯示金字塔圖案。（1）問題分析：“數字金字塔”是由左右兩部分組成，左半部分的數字從開始，順序遞增，到一行中的最大值結束，右半部分的數字從一行中的最大值開始，順序遞減，到1結束。要打印的“數字金字塔”共