第3章流程控制結構_ok

1、 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構Visual BasicVisual Basic流程控制結構流程控制結構 第第 3 3 章章 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構主主 要要 內(nèi)內(nèi) 容容 3.2 3.2 選擇結構選擇結構 3.3 3.3 循環(huán)結構循環(huán)結構 3.1 3.1 順序結構順序結構 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)

2、劃教材第第3 3章章 VBVB流程控制結構流程控制結構 3.1.1 3.1.1 賦值語句賦值語句 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 3.1.3 3.1.3 數(shù)據(jù)輸入數(shù)據(jù)輸入 3.1 3.1 順序結構順序結構 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 順序結構是一種最簡單的程序結構。這種結構順序結構是一種最簡單的程序結構。這種結構的程序按語句書寫的順序的程序按語句書寫的順序“從上到下從上到下”依次執(zhí)行，依次執(zhí)行，中間既沒

3、有跳轉語句，也沒有循環(huán)語句。順序結構中間既沒有跳轉語句，也沒有循環(huán)語句。順序結構程序由變量的聲明語句、賦值語句、輸入輸出語句、程序由變量的聲明語句、賦值語句、輸入輸出語句、計算語句等部分組成。計算語句等部分組成。 3.1 3.1 順序結構順序結構 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 賦值語句是程序設計語言中最基本的語句，也是使用最多的賦值語句是程序設計語言中最基本的語句，也是使用最多的語句，使用賦值語句可以在程序運行中改變對象的屬性或變量的語句，使用賦值語句可以在程序運行中改變對象的屬

4、性或變量的值。值。 賦值語句的形式為：賦值語句的形式為： 變量名變量名 = = 表達式表達式 或或 對象名對象名. . 屬性名屬性名 = = 表達式表達式 賦值語句的作用是首先計算賦值號右邊的表達式的值，而后賦值語句的作用是首先計算賦值號右邊的表達式的值，而后將計算出的值賦給賦值號左邊的變量或對象的屬性。將計算出的值賦給賦值號左邊的變量或對象的屬性。 在賦值語句中，在賦值語句中，“=”=”是賦值號，與數(shù)學上的等號意義不同。是賦值號，與數(shù)學上的等號意義不同。例如，有如下語句：例如，有如下語句： i = i + 1i = i + 1 該語句表示將變量該語句表示將變量i i的值加上的值加上1 1后的

5、結果再賦給變量后的結果再賦給變量i i，從而，從而使變量使變量i i的值增的值增1 1，而并非表示等號兩邊的值相等。，而并非表示等號兩邊的值相等。 3.1.1 3.1.1 賦值語句賦值語句 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 Visual Basic Visual Basic中主要有以下三種輸出數(shù)據(jù)的方中主要有以下三種輸出數(shù)據(jù)的方法，即：法，即： 使用使用PrintPrint方法輸出方法輸出 使用控件（文本框、標簽）輸出使用控件（文本框、標簽）輸出 使用消息對話框輸出使用消息對話框輸出

6、 1.Print1.Print方法方法 PrintPrint方法的格式為：方法的格式為： 對象名對象名.Print .Print 輸出項輸出項 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構PrintPrint方法的說明：方法的說明：對象名對象名: :可以是窗體名稱、圖片框名稱、打印機名稱或可以是窗體名稱、圖片框名稱、打印機名稱或DebugDebug，若為，若為DebugDebug，則表示將結果輸出到立即窗口中。如果省略對象名，則表示在當前窗體則表示將結果

7、輸出到立即窗口中。如果省略對象名，則表示在當前窗體上輸出。上輸出。輸出項輸出項: :是需要輸出的數(shù)據(jù)，可以是常量、變量或表達式。若為表達式，是需要輸出的數(shù)據(jù)，可以是常量、變量或表達式。若為表達式，則先計算表達式的值，然后輸出結果；如果是變量，則輸出變量的值；則先計算表達式的值，然后輸出結果；如果是變量，則輸出變量的值；如果是常量，則直接輸出該常量，對字符串常量來說，不會輸出雙引號。如果是常量，則直接輸出該常量，對字符串常量來說，不會輸出雙引號。如果省略輸出項，則輸出一個空行。如果省略輸出項，則輸出一個空行。分隔符分隔符: :若要在同一行上輸出多個數(shù)據(jù)項的值，則需要在若要在同一行上輸出多個數(shù)據(jù)項

8、的值，則需要在PrintPrint后面書寫后面書寫多個數(shù)據(jù)項，且應使用逗號或分號進行分隔。此時多個數(shù)據(jù)項，且應使用逗號或分號進行分隔。此時PrintPrint方法的格式為：方法的格式為： 對象名對象名. Print . Print 輸出項輸出項1 , | ; 1 , | ; 輸出項輸出項2 , | ; 2 , | ; 輸出項輸出項3 3 當用逗號進行分隔各個輸出項時，將按標準輸出格式（兩個輸出項當用逗號進行分隔各個輸出項時，將按標準輸出格式（兩個輸出項的內(nèi)容之間間隔的內(nèi)容之間間隔1414個字符）顯示數(shù)據(jù)；用分號分隔時，將按緊湊格式輸個字符）顯示數(shù)據(jù)；用分號分隔時，將按緊湊格式輸出數(shù)據(jù)，即第二個

9、輸出項的內(nèi)容會緊隨第一個輸出項的內(nèi)容之后輸出。出數(shù)據(jù)，即第二個輸出項的內(nèi)容會緊隨第一個輸出項的內(nèi)容之后輸出。 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 2. 2.與與PrintPrint方法有關的函數(shù)方法有關的函數(shù) 為使輸出項按指定的格式輸出，為使輸出項按指定的格式輸出，Visual BasicVisual Basic中提供了中提供了幾個與幾個與PrintPrint方法一起使用的函數(shù)，其中包括方法一起使用的函數(shù)，其中包括TabTab函數(shù)、函數(shù)、Spc

10、Spc函數(shù)和函數(shù)和FormatFormat等。等。TabTab函數(shù)函數(shù) TabTab函數(shù)用來將插入點定位在某一列上，即在指定的位函數(shù)用來將插入點定位在某一列上，即在指定的位置輸出數(shù)據(jù)，與置輸出數(shù)據(jù)，與PrintPrint方法一起使用的格式為：方法一起使用的格式為： Print Tab(nPrint Tab(n); ); 輸出項輸出項SpcSpc函數(shù)函數(shù) SpcSpc函數(shù)用于在輸出的數(shù)據(jù)項之前插入若干個空格。與函數(shù)用于在輸出的數(shù)據(jù)項之前插入若干個空格。與PrintPrint方法一起使用的格式為：方法一起使用的格式為： Print Spc(nPrint Spc(n); ); 輸出項輸出項 3.1.

11、2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構FormatFormat函數(shù)函數(shù) FormatFormat為格式輸出函數(shù)，用來將要輸出的數(shù)據(jù)按照指定的格為格式輸出函數(shù)，用來將要輸出的數(shù)據(jù)按照指定的格式輸出。式輸出。FormatFormat函數(shù)的使用格式為：函數(shù)的使用格式為： Format(Format(表達式表達式, ,格式字符串格式字符串) ) 其中，表達式為要輸出的數(shù)據(jù)，可以是數(shù)值型、日期型或字其中，表達式為要輸出的數(shù)據(jù)，可以是數(shù)值型、日期型或字符串類型數(shù)據(jù)；格

12、式字符串是指輸出的格式符串類型數(shù)據(jù)；格式字符串是指輸出的格式, ,具體格式說明見教材具體格式說明見教材P52P52。ClsCls方法方法 ClsCls方法用于清除運行時在窗體或圖片框內(nèi)生成的圖形和文本。方法用于清除運行時在窗體或圖片框內(nèi)生成的圖形和文本。其使用格式為：其使用格式為： 對象名對象名.Cls.Cls 若省略對象名，則表示清除當前窗體上的顯示內(nèi)容。注意，若省略對象名，則表示清除當前窗體上的顯示內(nèi)容。注意，ClsCls方法無法清除在設計階段添加到窗體上的控件或圖片框中使用方法無法清除在設計階段添加到窗體上的控件或圖片框中使用PicturePicture屬性設置的背景圖片。屬性設置的背景

13、圖片。 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構3.3.使用控件輸出使用控件輸出 Visual BasicVisual Basic中可使用標簽和文本框輸出數(shù)據(jù)。標簽中可使用標簽和文本框輸出數(shù)據(jù)。標簽控件只能用來顯示信息，而不能用來輸入信息；而文本框控件只能用來顯示信息，而不能用來輸入信息；而文本框控件既可以顯示信息，也可以完成信息的輸入。控件既可以顯示信息，也可以完成信息的輸入。使用標簽控件進行輸出使用標簽控件進行輸出標簽中顯示的信息是通過其標簽中顯

14、示的信息是通過其CaptionCaption屬性進行設置的，可在屬性進行設置的，可在屬性窗口中設置，也可以通過程序代碼進行設置。例如：屬性窗口中設置，也可以通過程序代碼進行設置。例如： Label1.Caption = Date & vbCrLfLabel1.Caption = Date & vbCrLf & Time & Time使用文本框進行輸出使用文本框進行輸出 通過文本框控件的通過文本框控件的TextText屬性可實現(xiàn)數(shù)據(jù)的輸出。例如：屬性可實現(xiàn)數(shù)據(jù)的輸出。例如： Text1.Text = Date & vbCrLfText1.Text = Da

15、te & vbCrLf & Time & Time 該語句表示在文本框該語句表示在文本框Text1Text1中分兩行顯示日期和時間。中分兩行顯示日期和時間。 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 4. 4.使用消息對話框輸出使用消息對話框輸出 消息對話框可實現(xiàn)系統(tǒng)和用戶之間的交互。消息對話框可通過消息對話框可實現(xiàn)系統(tǒng)和用戶之間的交互。消息對話框可通過MsgBoxMsgBox函數(shù)或函數(shù)或MsgBoxMsgBox過程實現(xiàn)，過程

16、實現(xiàn)，MsgBoxMsgBox函數(shù)有返回值，且返回值為整函數(shù)有返回值，且返回值為整數(shù)；數(shù)；MsgBoxMsgBox過程沒有返回值，常常用來輸出信息。過程沒有返回值，常常用來輸出信息。 MsgBoxMsgBox函數(shù)的使用格式為：函數(shù)的使用格式為： 變量變量MsgBoxMsgBox( (提示信息提示信息 , , 按鈕類型按鈕類型 , , 標題標題) ) MsgBox MsgBox過程使用格式為：過程使用格式為： MsgBoxMsgBox 提示信息提示信息 , , 按鈕類型按鈕類型 , , 標題標題說明：說明： 提示信息提示信息: :是對話框中顯示的信息，它是一個字符串表達式，可是對話框中顯示的信息

17、，它是一個字符串表達式，可以為字符或漢字以為字符或漢字. . 按鈕類型按鈕類型: :用于確定對話框中顯示的按鈕數(shù)目、形式及圖標的類用于確定對話框中顯示的按鈕數(shù)目、形式及圖標的類型、默認按鈕等。型、默認按鈕等。 標題標題: :是一個字符串表達式，決定對話框標題欄顯示的信息內(nèi)容是一個字符串表達式，決定對話框標題欄顯示的信息內(nèi)容 3.1.2 3.1.2 數(shù)據(jù)輸出數(shù)據(jù)輸出 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 Visual Basic Visual Basic中可使用輸入對話框函數(shù)或文本框控件實

18、現(xiàn)數(shù)據(jù)的輸中可使用輸入對話框函數(shù)或文本框控件實現(xiàn)數(shù)據(jù)的輸入。入。 1.1.使用輸入對話框函數(shù)使用輸入對話框函數(shù)InputBoxInputBox輸入數(shù)據(jù)輸入數(shù)據(jù) 輸入對話框使用輸入對話框使用InputboxInputbox函數(shù)實現(xiàn)，函數(shù)實現(xiàn)， InputBoxInputBox函數(shù)的格式為：函數(shù)的格式為： InputBoxInputBox ( (提示信息提示信息 , , 標題標題 , , 默認值默認值 , x, x坐標坐標 , y, y坐標坐標) )該函數(shù)的作用是打開一個對話框，等待用戶在對話框中輸入數(shù)據(jù)，當用該函數(shù)的作用是打開一個對話框，等待用戶在對話框中輸入數(shù)據(jù)，當用戶按下回車鍵或者單擊戶按下

19、回車鍵或者單擊“確定確定”按鈕時，函數(shù)將輸入的內(nèi)容作為字符串按鈕時，函數(shù)將輸入的內(nèi)容作為字符串返回給變量。返回給變量。 提示信息是一個字符串表達式，不能省略，在對話框中作為提示信提示信息是一個字符串表達式，不能省略，在對話框中作為提示信息，可以為字符或漢字。息，可以為字符或漢字。 標題是一個字符串表達式，決定對話框標題欄顯示的信息內(nèi)容。標題是一個字符串表達式，決定對話框標題欄顯示的信息內(nèi)容。 默認值也是一個字符串表達式，決定對話框初始的輸入內(nèi)容。默認值也是一個字符串表達式，決定對話框初始的輸入內(nèi)容。 x x、y y坐標是整型表達式，用來決定輸入對話框在屏幕上顯示的位置坐標是整型表達式，用來決定

20、輸入對話框在屏幕上顯示的位置 3.1.3 3.1.3 數(shù)據(jù)輸入數(shù)據(jù)輸入 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 在使用在使用InputboxInputbox函數(shù)時應注意：函數(shù)時應注意： 各項參數(shù)的次序必須一一對應，除各項參數(shù)的次序必須一一對應，除“提示信息提示信息”不可省略不可省略外，其他項均為可選項，都可省略；但省略參數(shù)時，參數(shù)間的逗外，其他項均為可選項，都可省略；但省略參數(shù)時，參數(shù)間的逗號不能省略。號不能省略。 InputboxInputbox函數(shù)的返回值類型為字符型，程序設計時，通常

21、函數(shù)的返回值類型為字符型，程序設計時，通常將將InputBoxInputBox函數(shù)的返回值賦給某個變量，再通過這個變量使用函函數(shù)的返回值賦給某個變量，再通過這個變量使用函數(shù)的返回值。若要通過數(shù)的返回值。若要通過InputBoxInputBox函數(shù)得到數(shù)值型數(shù)據(jù)，可使用函數(shù)得到數(shù)值型數(shù)據(jù)，可使用ValVal函數(shù)進行類型轉換或直接賦給數(shù)值型變量。函數(shù)進行類型轉換或直接賦給數(shù)值型變量。 輸入對話框中有兩個按鈕，即輸入對話框中有兩個按鈕，即“確定確定”與與“取消取消”。若用。若用戶單擊戶單擊“確定確定”按鈕或按下回車鍵時，按鈕或按下回車鍵時，InputBoxInputBox函數(shù)返回輸入的函數(shù)返回輸入的

22、數(shù)據(jù)；如果單擊數(shù)據(jù)；如果單擊“取消取消”按鈕或按按鈕或按EscEsc鍵，則返回空字符串。鍵，則返回空字符串。 執(zhí)行一次執(zhí)行一次InputBoxInputBox函數(shù)只能輸入一個值，若要輸入多個數(shù)函數(shù)只能輸入一個值，若要輸入多個數(shù)據(jù)，則需要多次執(zhí)行據(jù)，則需要多次執(zhí)行InputBoxInputBox函數(shù)，實際應用中可與循環(huán)語句一函數(shù)，實際應用中可與循環(huán)語句一起使用。起使用。 3.1.3 3.1.3 數(shù)據(jù)輸入數(shù)據(jù)輸入 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 2. 2.使用文本框使用文本框TextB

23、oxTextBox控件輸入數(shù)據(jù)控件輸入數(shù)據(jù) 利用文本框控件的利用文本框控件的TextText屬性，文本框控件不僅可實現(xiàn)數(shù)屬性，文本框控件不僅可實現(xiàn)數(shù)據(jù)的輸出，也可以實現(xiàn)數(shù)據(jù)的輸入，即接收用戶在文本框內(nèi)據(jù)的輸出，也可以實現(xiàn)數(shù)據(jù)的輸入，即接收用戶在文本框內(nèi)輸入的信息。輸入的信息。 需要注意的是，需要注意的是，TextBoxTextBox 控件接收的數(shù)據(jù)為字符型，如控件接收的數(shù)據(jù)為字符型，如果需要對數(shù)值型數(shù)據(jù)進行處理，可通過果需要對數(shù)值型數(shù)據(jù)進行處理，可通過ValVal函數(shù)進行轉換，函數(shù)進行轉換，或直接將其賦值給數(shù)值型變量。如：或直接將其賦值給數(shù)值型變量。如： Text3.Text = Val(Te

24、xt1.Text) + Val(Text2.Text)Text3.Text = Val(Text1.Text) + Val(Text2.Text) 在該語句中，文本框在該語句中，文本框Text1Text1與與Text2Text2接收用戶輸入的數(shù)據(jù)，接收用戶輸入的數(shù)據(jù)，轉換為數(shù)值型數(shù)據(jù)后進行求和運算，文本框轉換為數(shù)值型數(shù)據(jù)后進行求和運算，文本框Text3Text3實現(xiàn)數(shù)據(jù)實現(xiàn)數(shù)據(jù)的輸出。的輸出。 3.1.3 3.1.3 數(shù)據(jù)輸入數(shù)據(jù)輸入 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 在編制程序時，

25、首先要根據(jù)需要處理的問題，在編制程序時，首先要根據(jù)需要處理的問題，規(guī)劃和確定變量并進行定義和聲明；之后通過變量規(guī)劃和確定變量并進行定義和聲明；之后通過變量的輸入或賦值方法進行數(shù)據(jù)輸入；接下來要進行計的輸入或賦值方法進行數(shù)據(jù)輸入；接下來要進行計算（或程序的處理），這是編制程序的核心，它用算（或程序的處理），這是編制程序的核心，它用于完成程序的功能；最后要將計算或處理的結果進于完成程序的功能；最后要將計算或處理的結果進行輸出。一個程序一般都是由這行輸出。一個程序一般都是由這4 4部分構成的，即：部分構成的，即：變量的聲明、變量的輸入或賦值、計算（程序處變量的聲明、變量的輸入或賦值、計算（程序處理）

26、、結果的輸出。請讀者在編制程序時，也按照理）、結果的輸出。請讀者在編制程序時，也按照這樣的結構來組織程序。這樣的結構來組織程序。 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構例例3.5 編寫程序，輸入圓柱體的半徑與高，輸出其表面積和編寫程序，輸入圓柱體的半徑與高，輸出其表面積和體積。體積。程序代碼為：程序代碼為：Private Sub Command1_Click() Dim r As Single, h As Single聲明變

27、量聲明變量r表示半徑，表示半徑，h表示高表示高 Dim area As Single, v As Single 聲明變量聲明變量area表示表面積，表示表面積，v表示體積表示體積 r = InputBox(請輸入半徑請輸入半徑 )輸入半徑輸入半徑 h = InputBox(請輸入高度請輸入高度)輸入高輸入高 area = 2 * 3.14 * r * r + 2 * 3.14 * r * h 計算表面積計算表面積 v = 3.14 * r * r * h 計算體積計算體積 Print 圓柱體的半徑為圓柱體的半徑為: & r; 高為高為: & h 輸出半徑與高輸出半徑與高 Pri

28、nt 表面積為表面積為: & area 輸出表面積輸出表面積 Print 體積為體積為: & v 輸出體積輸出體積End Sub 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構例例3.6 輸入三角形的三個邊（假定可構成三角形），求三角形的面輸入三角形的三個邊（假定可構成三角形），求三角形的面積。三角形面積公式為：積。三角形面積公式為： ，其中，其中 ，A、B、C為三邊之長為三邊之長程序代碼為：程序代碼為：Privat

29、e Sub Command1_Click() Dim a As Single, b As Single, c As Single聲明變量聲明變量 Dim s As Single, area As Single a = Text1輸入輸入 b = Text2 c = Text3 s = (a + b + c) / 2計算計算 area = Sqr(s * (s - a) * (s - b) * (s - c) Label2 = 三角形的面積為三角形的面積為: & area輸出輸出End Sub 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 )()(CSBSASSARE

30、A2CBAS Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構例例3.7 輸入兩個整數(shù)，將其值交換后輸出。例如若變量輸入兩個整數(shù)，將其值交換后輸出。例如若變量a、b的的值分別值分別1、2，則交換后，則交換后a的值為的值為2，b的值為的值為1。程序代碼為：程序代碼為：Private Sub Command1_Click() Dim a As Integer, b As Integer, t As Integer聲明變量聲明變量 a = Text1輸入輸入 b = Text2 t = a將將a的值賦給的

31、值賦給t，即即t保存保存a的值的值 a = b將將b的值的值賦給賦給a，則，則a的值變?yōu)榈闹底優(yōu)閎 b = t將將t的值賦給的值賦給b Label2 = 交換后的值為交換后的值為: & a & , & b輸出輸出End Sub 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構例例3.8 輸入一個輸入一個4位正整數(shù)，輸出各位數(shù)字之和。例如若輸入位正整數(shù)，輸出各位數(shù)字之和。例如若輸入2134，則輸出結果為則輸出結果

32、為10（即（即2+1+3+4）。）。程序代碼為：程序代碼為：Private Sub Command1_Click() Dim x As Integer, s As Integer聲明變量聲明變量 Dim a As Integer, b As Integer Dim c As Integer, d As Integer x = InputBox(請輸入一個四位正整數(shù)請輸入一個四位正整數(shù))輸入輸入 a = x Mod 10得到個位數(shù)得到個位數(shù) b = x 10 Mod 10得到十位數(shù)得到十位數(shù) c = x 100 Mod 10得到百位數(shù)得到百位數(shù) d = x 1000得到千位數(shù)得到千位數(shù) s =

33、a + b + c + d求和求和 Print x; 的各位數(shù)字之和為：的各位數(shù)字之和為：; s 輸出輸出End Sub 3.1.4 3.1.4 順序結構應用程序舉例順序結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 3.2 3.2 選擇結構選擇結構 3.2.1 If 3.2.1 If語句語句 3.2.2 Select Case 3.2.2 Select Case語句語句 3.2.3 3.2.3 條件函數(shù)條件函數(shù) 3.2.4 3.2.4 選擇結構程序設計舉例選擇結構程序設計舉例

34、Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 在實際應用中，有許多問題是根據(jù)不同的條件在實際應用中，有許多問題是根據(jù)不同的條件來選擇執(zhí)行不同的操作。例如，根據(jù)成績進行輸來選擇執(zhí)行不同的操作。例如，根據(jù)成績進行輸出，當成績?yōu)槌?，當成績?yōu)?060分以上時，輸出分以上時，輸出“合格合格”，小于，小于6060分時，則輸出分時，則輸出“不合格不合格”。根據(jù)成績值的不同，。根據(jù)成績值的不同，進行選擇來執(zhí)行不同的輸出操作，這樣的程序結進行選擇來執(zhí)行不同的輸出操作，這樣的程序結構稱為選擇結構或分支結構。構稱為選

35、擇結構或分支結構。 Visual BasicVisual Basic中通過中通過IfIf語句和語句和Select CaseSelect Case語句語句實現(xiàn)選擇結構，它們都是對某個條件進行判斷，實現(xiàn)選擇結構，它們都是對某個條件進行判斷，而后選擇執(zhí)行不同的分支。而后選擇執(zhí)行不同的分支。 3.2 3.2 選擇結構選擇結構 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 在選擇結構中，可以根據(jù)程序分支在選擇結構中，可以根據(jù)程序分支的數(shù)目，分為單分支結構、雙分支結的數(shù)目，分為單分支結構、雙分支結構和多分支

36、結構。構和多分支結構。If語句可實現(xiàn)單分支、語句可實現(xiàn)單分支、雙分支和多分支結構。雙分支和多分支結構。 1.單分支結構單分支結構 單分支結構是指只有一個程序分支，單分支結構是指只有一個程序分支，只有滿足指定的條件才能執(zhí)行該程序只有滿足指定的條件才能執(zhí)行該程序分支的語句。分支的語句。If語句實現(xiàn)單分支結構，語句實現(xiàn)單分支結構，可有兩種形式：可有兩種形式： 形式形式1： If 表達式表達式 Then 語句組語句組 End If 形式形式2： If 表達式表達式 Then 語句語句 3.2.1 If 3.2.1 If語句語句 真真假假語句（組）語句（組）表達式表達式 單分支結構流程圖單分支結構流程圖

37、該語句在執(zhí)行時，首先計算表達該語句在執(zhí)行時，首先計算表達式，若表達式的值為真，則執(zhí)行式，若表達式的值為真，則執(zhí)行Then后面的語句組，若表達式的后面的語句組，若表達式的值為假，則跳過值為假，則跳過Then后面的語句，后面的語句，執(zhí)行執(zhí)行End If后面的語句。后面的語句。 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構單分支結構的說明：單分支結構的說明： 1.1.表達式可為關系表達式、邏輯表達式或數(shù)值表達表達式可為關系表達式、邏輯表達式或數(shù)值表達式。當表達式是數(shù)值表達式時，非零值表示式。當表達式是

38、數(shù)值表達式時，非零值表示True True ，0 0表表示示FalseFalse。 2.2.在形式在形式1 1中，語句組可以為一條或多條語句。在中，語句組可以為一條或多條語句。在形式形式2 2中，語句表示一條語句，若為多條語句，則必須中，語句表示一條語句，若為多條語句，則必須使用冒號使用冒號: : 進行分隔，即語句必須與進行分隔，即語句必須與ThenThen寫在同一行上。寫在同一行上。 3.3.在形式在形式1 1中，必須以中，必須以End IfEnd If語句結束；形式語句結束；形式2 2為單為單行結構，要求語句都寫在一行上，且不能以行結構，要求語句都寫在一行上，且不能以End IfEnd I

39、f語句語句結束。結束。 3.2.1 If 3.2.1 If語句語句 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 2.2.雙分支結構雙分支結構 雙分支結構表示程序有兩個分支，雙分支結構表示程序有兩個分支，當滿足給定條件時，執(zhí)行分支當滿足給定條件時，執(zhí)行分支1 1，否，否則執(zhí)行分支則執(zhí)行分支2 2。IfIf語句實現(xiàn)雙分支結語句實現(xiàn)雙分支結構也有兩種語句形式：構也有兩種語句形式： 形式形式1 1： If If 表達式表達式 ThenThen 語句組語句組1 1 Else Else 語句組語句組2 2

40、 End If End If 形式形式2 2為：為： If If 表達式表達式 Then Then 語句語句1 Else 1 Else 語句語句2 2 3.2.1 If 3.2.1 If語句語句 該語句在執(zhí)行時，首先計算表達式，該語句在執(zhí)行時，首先計算表達式，若表達式的值為真，執(zhí)行若表達式的值為真，執(zhí)行ThenThen后面后面的語句組的語句組1 1（或語句（或語句1 1）；否則跳過）；否則跳過語句組語句組1 1（或語句（或語句1 1），執(zhí)行），執(zhí)行ElseElse后后面的語句組面的語句組2 2（或語句（或語句2 2）。）。使用時應注意在形式使用時應注意在形式1 1中的中的ElseElse后不后

41、不能增加表達式。能增加表達式。假假真真語句語句(組組)1語句語句(組組)2表達式表達式雙分支結構流程圖雙分支結構流程圖 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 3.3.多分支結構多分支結構 在實際問題中常常會遇到多個條在實際問題中常常會遇到多個條件，此時就要用到多分支。件，此時就要用到多分支。IfIf語句語句實現(xiàn)多分支結構的形式為：實現(xiàn)多分支結構的形式為： If If 表達式表達式1 Then 1 Then 語句組語句組1 1 ElseIf ElseIf 表達式表達式2 Then2 The

42、n 語句組語句組2 2 ElseIf ElseIf 表達式表達式n Thenn Then 語句組語句組 n n Else Else 語句組語句組n+1n+1 End If End If 3.2.1 If 3.2.1 If語句語句 假假 真真 真真 真真表達式表達式1表達式表達式n語句組語句組1語句組語句組2語句組語句組n語句組語句組n+1多分支結構流程圖多分支結構流程圖表達式表達式2假假 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 執(zhí)行多分支結構該語句時，首先計算表達式執(zhí)行多分支結構該語句時，

43、首先計算表達式1 1，若表達式，若表達式1 1的值為真，的值為真，則執(zhí)行語句組則執(zhí)行語句組1 1，而后退出，而后退出IfIf語句，執(zhí)行語句，執(zhí)行End If End If 后面的語句；若表達式后面的語句；若表達式1 1的值為假，則計算表達式的值為假，則計算表達式2 2；若表達式；若表達式2 2的值為真，則執(zhí)行語句組的值為真，則執(zhí)行語句組2 2，而后，而后退出退出IfIf語句，執(zhí)行語句，執(zhí)行End If End If 后面的語句；若表達式后面的語句；若表達式2 2的值為假，則計算表的值為假，則計算表達式達式3 3；以此類推，若表達式；以此類推，若表達式n n的值為真，則執(zhí)行語句組的值為真，則執(zhí)行

44、語句組n n，而后退，而后退出出IfIf語句，執(zhí)行語句，執(zhí)行End If End If 后面的語句；若表達式后面的語句；若表達式n n的值為假，則執(zhí)行的值為假，則執(zhí)行ElseElse后面的語句組后面的語句組n+1n+1，而后執(zhí)行，而后執(zhí)行End IfEnd If后面的語句。需要注意：后面的語句。需要注意： 無論有幾個分支，程序一旦執(zhí)行了某一個分支則退出無論有幾個分支，程序一旦執(zhí)行了某一個分支則退出IfIf語句，其語句，其余分支不再執(zhí)行。余分支不再執(zhí)行。 ElseIfElseIf子句的數(shù)量沒有限制，可以根據(jù)需要使用任意多個子句的數(shù)量沒有限制，可以根據(jù)需要使用任意多個ElseIfElseIf子句。

45、子句。 ElseElse后不能有表達式，后不能有表達式，ElseElse表示以上表達式均為假時則執(zhí)行其下表示以上表達式均為假時則執(zhí)行其下面的語句組。面的語句組。 ElseElse及其后的語句組可以省略。及其后的語句組可以省略。 ElseIfElseIf 不能寫作不能寫作Else IfElse If。 3.2.1 If 3.2.1 If語句語句 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 4.If 4.If語句的嵌套語句的嵌套 在實現(xiàn)選擇結構時，在實現(xiàn)選擇結構時，若各個分支的語句組中若各個分支的

46、語句組中又包含另一個分支結構，又包含另一個分支結構，則成為選擇結構的嵌套。則成為選擇結構的嵌套。由于在由于在IfIf語句中又嵌套語句中又嵌套了另外的了另外的IfIf語句，因此語句，因此會形成更多的程序分支，會形成更多的程序分支，所以，所以，IfIf語句的嵌套也語句的嵌套也可實現(xiàn)多分支結構?？蓪崿F(xiàn)多分支結構。 3.2.1 If 3.2.1 If語句語句 If 表達式表達式1 Then If 表達式表達式2 Then語句組語句組1 Else語句組語句組2 End IfElse If 表達式表達式3 Then 語句組語句組3 Else 語句組語句組4 End IfEnd If內(nèi)內(nèi)層層內(nèi)內(nèi)層層外外層層

47、兩層嵌套的兩層嵌套的If語句語句 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 Select Case Select Case語句也稱為情語句也稱為情況語句，是多分支結構的另況語句，是多分支結構的另一種表示形式。一種表示形式。Select Case Select Case 語句的格式如下：語句的格式如下：Select Case Select Case 測試表達式測試表達式 Case Case 表達式列表表達式列表1 1 語句組語句組1 1 Case Case 表達式列表表達式列表2 2 語句組語

48、句組2 2 Case Case 表達式列表表達式列表n n 語句組語句組n n Case Else Case Else 語句組語句組n+1n+1End SelectEnd Select 3.2.2 Select Case 3.2.2 Select Case語句語句 Select Case語句的流程圖語句的流程圖FTFF表達式列表表達式列表n語句組語句組n+1語句組語句組nT表達式列表表達式列表2語句語句組組2T表達式列表表達式列表1語句組語句組1計算測試表達式的值計算測試表達式的值 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章

49、VBVB流程控制結構流程控制結構 Select Case Select Case語句的功能是根據(jù)測試表達式的值，語句的功能是根據(jù)測試表達式的值，從多個語句組中選擇符合條件的一個語句組執(zhí)行。從多個語句組中選擇符合條件的一個語句組執(zhí)行。 Select CaseSelect Case語句的執(zhí)行過程首先計算測試表達式語句的執(zhí)行過程首先計算測試表達式的值，然后將計算的結果與每個的值，然后將計算的結果與每個CaseCase后的表達式列后的表達式列表的值進行比較，如果有相匹配的，就執(zhí)行該表的值進行比較，如果有相匹配的，就執(zhí)行該CaseCase下面的語句組，執(zhí)行完該語句組后則退出下面的語句組，執(zhí)行完該語句組后

50、則退出Select Select CaseCase語句，不再與后面的表達式列表比較；若測試語句，不再與后面的表達式列表比較；若測試表達式的值沒有找到匹配項，則執(zhí)行表達式的值沒有找到匹配項，則執(zhí)行Case ElseCase Else語句語句后面的語句組，而后退出后面的語句組，而后退出Select CaseSelect Case語句；若無語句；若無Case ElseCase Else，則直接退出，則直接退出Select CaseSelect Case語句。語句。 3.2.2 Select Case 3.2.2 Select Case語句語句 Visual BasicVisual Basic程序設計

51、程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構說明：說明： 測試表達式可以是各類表達式，還可以是常量、變量或對象屬性測試表達式可以是各類表達式，還可以是常量、變量或對象屬性值，通常為變量。值，通常為變量。 CaseCase后的表達式列表的類型必須與測試表達式值的類型相同。表后的表達式列表的類型必須與測試表達式值的類型相同。表達式列表通常有四種形式：達式列表通常有四種形式：單個表達式、一組用逗號隔開的枚舉值、單個表達式、一組用逗號隔開的枚舉值、某個范圍某個范圍及及IsIs關系運算表達式關系運算表達式。 當有多個當有多個CaseCase子句的值與測試表達式

52、的值匹配時，只執(zhí)行第一個子句的值與測試表達式的值匹配時，只執(zhí)行第一個與之匹配的語句組。與之匹配的語句組。 Case ElseCase Else及其對應的語句組放在所有及其對應的語句組放在所有CaseCase的表達式列表的下面，的表達式列表的下面，它們用于指定當測試表達式的值與所有表達式列表都不匹配時所執(zhí)它們用于指定當測試表達式的值與所有表達式列表都不匹配時所執(zhí)行的操作。行的操作。 SelectSelect表示表示Select CaseSelect Case語句的開始，語句的開始， End SelectEnd Select表示表示Select Select CaseCase語句的結束，它們必須成

53、對出現(xiàn)。語句的結束，它們必須成對出現(xiàn)。 語句組可由一行或多行語句組成，還可以是語句組可由一行或多行語句組成，還可以是IfIf語句或其他語句或其他Select Select CaseCase語句等。語句等。 3.2.2 Select Case 3.2.2 Select Case語句語句 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 Visual Basic Visual Basic中提供了中提供了IIfIIf條件函數(shù)用于實現(xiàn)簡單條件函數(shù)用于實現(xiàn)簡單的條件選擇，它是雙分支選擇結構的另一種表達形式。的

54、條件選擇，它是雙分支選擇結構的另一種表達形式。IIfIIf函數(shù)的格式為：函數(shù)的格式為： IIfIIf ( (表達式表達式1, 1, 表達式表達式2, 2, 表達式表達式3)3) IIf IIf函數(shù)在執(zhí)行時，首先計算表達式函數(shù)在執(zhí)行時，首先計算表達式1 1的值，當表達的值，當表達式式1 1的值為真時，計算表達式的值為真時，計算表達式2 2的值，并將其作為的值，并將其作為IIfIIf函函數(shù)的返回值；當表達式數(shù)的返回值；當表達式1 1的值為假時，計算表達式的值為假時，計算表達式3 3的值，的值，并將其作為并將其作為IIfIIf函數(shù)的返回值。函數(shù)的返回值。 說明：三個表達式均不能省略，且可為任意表達式

55、。說明：三個表達式均不能省略，且可為任意表達式。 3.2.3 3.2.3 條件函數(shù)條件函數(shù) Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構例例3.193.19 輸入三個數(shù)，將其按從小到大的順序輸出。輸入三個數(shù)，將其按從小到大的順序輸出。（P76P76）例例3.203.20 編寫程序，輸入年份，判斷該年是否為閏年。編寫程序，輸入年份，判斷該年是否為閏年。(P77)(P77)例例3.213.21 編寫程序，輸入個人收入編寫程序，輸入個人收入salarysalary，計算個人，計算個人所得稅所得稅tax

56、tax并輸出。并輸出。(P78)(P78)例例3.223.22 編寫程序，輸入數(shù)據(jù)與運算符（編寫程序，輸入數(shù)據(jù)與運算符（+ +、- -、* *、/ /），輸出運算結果，實現(xiàn)加減乘除四則運算。若除），輸出運算結果，實現(xiàn)加減乘除四則運算。若除數(shù)為數(shù)為0 0或運算符輸入錯誤，則給出提示信息。或運算符輸入錯誤，則給出提示信息。(P78)(P78) 3.2.4 3.2.4 選擇結構程序設計舉例選擇結構程序設計舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 3.3 3.3 循環(huán)結構循環(huán)結構 3.3.1

57、For 3.3.1 For循環(huán)語句循環(huán)語句 3.3.2 Do 3.3.2 Do循環(huán)語句循環(huán)語句 3.3.3 While 3.3.3 While循環(huán)語句循環(huán)語句 3.3.4 3.3.4 循環(huán)的強制退出循環(huán)的強制退出 3.3.5 3.3.5 循環(huán)的嵌套循環(huán)的嵌套 3.3.6 3.3.6 幾種循環(huán)結構的比較幾種循環(huán)結構的比較 3.3.7 3.3.7 循環(huán)結構應用程序舉例循環(huán)結構應用程序舉例 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB流程控制結構流程控制結構 在許多問題中，常常需要將某個程序段反復執(zhí)行多次，在許多問題中，常常

58、需要將某個程序段反復執(zhí)行多次，如果在這類程序中安排多個重復的語句序列，就會使程序冗如果在這類程序中安排多個重復的語句序列，就會使程序冗長并浪費計算機存儲空間。為了解決這個問題，長并浪費計算機存儲空間。為了解決這個問題，Visual Visual BasicBasic中提供了循環(huán)語句來實現(xiàn)程序段的多次反復執(zhí)行，從中提供了循環(huán)語句來實現(xiàn)程序段的多次反復執(zhí)行，從而簡化程序結構，節(jié)省計算機存儲空間。在循環(huán)結構中需要而簡化程序結構，節(jié)省計算機存儲空間。在循環(huán)結構中需要反復執(zhí)行的語句稱為循環(huán)體。循環(huán)結構是結構化程序設計的反復執(zhí)行的語句稱為循環(huán)體。循環(huán)結構是結構化程序設計的三種基本結構之一，它和順序結構、選

59、擇結構一起成為各種三種基本結構之一，它和順序結構、選擇結構一起成為各種復雜程序的基本構造單元。復雜程序的基本構造單元。 在在Visual BasicVisual Basic中，有兩種類型的循環(huán)語句，一種是循中，有兩種類型的循環(huán)語句，一種是循環(huán)次數(shù)已知的循環(huán)語句，即環(huán)次數(shù)已知的循環(huán)語句，即ForFor語句，一種是由條件控制的語句，一種是由條件控制的循環(huán)語句，相應的語句為循環(huán)語句，相應的語句為DoDo語句和語句和WhileWhile語句。語句。 3.3 3.3 循環(huán)結構循環(huán)結構 Visual BasicVisual Basic程序設計程序設計 普通高等教育“十二五”規(guī)劃教材第第3 3章章 VBVB

60、流程控制結構流程控制結構 For For循環(huán)語句適用于循環(huán)次數(shù)已知的循環(huán)結構，其一般格式為：循環(huán)語句適用于循環(huán)次數(shù)已知的循環(huán)結構，其一般格式為： For For 循環(huán)變量循環(huán)變量 = = 初值初值 To To 終值終值 Step Step 步長步長 循環(huán)體循環(huán)體 Next Next 循環(huán)變量循環(huán)變量 3.3.1 For 3.3.1 For循環(huán)語句循環(huán)語句 For For語句的執(zhí)行過程為：首語句的執(zhí)行過程為：首先將初值賦給循環(huán)變量，然后檢先將初值賦給循環(huán)變量，然后檢查循環(huán)變量的值是否在初值到終查循環(huán)變量的值是否在初值到終值范圍內(nèi)，若超出了該范圍，則值范圍內(nèi)，若超出了該范圍，則結束循環(huán)，執(zhí)行結束循環(huán)，執(zhí)行NextNext后面的語句；后面的語句；如果沒有超過該范圍，則執(zhí)行一如果沒有超過該范圍，則執(zhí)行一次循環(huán)體，而