第四章程序設(shè)計基礎(chǔ)

1、第四章 程序設(shè)計基礎(chǔ)教學(xué)目的及要求：使學(xué)生掌握順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)的語法規(guī)則和具體應(yīng)用，程序調(diào)試的步驟和方法。重點與難點：1、熟練掌握表達(dá)式、賦值語句及邏輯表達(dá)式等的書寫約定2、掌握InputBox和MsgBox函數(shù)的用法3、掌握單分支和多分支條件語句4、熟練掌握For語句和While語句的使用5、難點是多重循環(huán)的程序設(shè)計主要外語詞匯：context 、prompt、msgbox、inputbox授課內(nèi)容：1、三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)2、流程圖：（1）傳統(tǒng)的流程圖 （2）N-S流程圖第一節(jié) 順序結(jié)構(gòu)程序設(shè)計特點：按書寫時的順序依次執(zhí)行。一、VB中的語句及書寫約定：1、

2、自動語法檢測2、格式化處理3、續(xù)行符：下劃線，一條語句寫在多行上。 下劃線與其前面的字符之間至少要有一個空格。4、復(fù)合語句行：冒號，多條語句寫在一行上。二、賦值語句：1、可以給一個變量或某一個對象的屬性賦值。格式1：變量名 = 表達(dá)式格式2：對象名.屬性名 = 屬性值若省略對象名，則默認(rèn)是當(dāng)前窗體。方向性：從右向左賦值。2、最終的結(jié)果是最后一次的賦值。3、數(shù)據(jù)類型要匹配，注意相容現(xiàn)象：（1）邏輯型 -> 數(shù)值型：True -> -1，F(xiàn)alse -> 0數(shù)值型 -> 邏輯型：非0 -> True，0 -> False（2）實型 -> 整型：四舍五入原則

3、，不是去尾原則整型 -> 實型：擴展小數(shù)位數(shù)4、不管表達(dá)式是什么數(shù)據(jù)類型，都可以賦給一個Variant變量。5、系統(tǒng)提供的默認(rèn)初始值：（1）數(shù)值型：0 （2）貨幣型：0 （3）字符型：空字符串（4）邏輯型：False （5）日期型：0:00:00（6）可變型：Empty （7）對象型：Nothing6、不能連續(xù)賦值：例：Dim a As Integer,b As Integer,c As Integera=b=c=1 錯誤a=1: b=1:c=1 正確7、交換兩個變量中的數(shù)據(jù)：例：a=b:b=a 錯誤 t=a:a=b:b=t 正確，t是中間變量注意：VB中的數(shù)字和只包含數(shù)字的字符串可以方

4、便地互換類型，例：（1）隱式轉(zhuǎn)換：Private Sub Command1_Click( ) Dim x As Integer,y As String y = “100.23” ：x = y 隱式轉(zhuǎn)換 Print xEnd Sub（2）顯式轉(zhuǎn)換字符型 -> 數(shù)值型：利用Val函數(shù)：Private Sub Command1_Click( ) Dim x As Integer Text1.Text = “100.23”x = Val(Text1.Text) 顯式轉(zhuǎn)換 Print xEnd Sub（3）顯式轉(zhuǎn)換數(shù)值型 -> 字符型：利用Str函數(shù)：Private Sub Command1

5、_Click( ) Dim x As Integer x = 100.23Text1.Text = Str(x) 顯式轉(zhuǎn)換 Print Text1.TextEnd Sub三、注釋、暫停、結(jié)束語句：1、注釋語句：非執(zhí)行語句（1）格式1：Rem 注釋語句（2）格式2：注釋語句（常用）（3）塊注釋：視圖-> 工具欄 -> 編輯 -> 設(shè)置注釋塊、解除注釋塊2、暫停語句：格式：Stop暫停程序的運行，但不關(guān)閉所有已打開的文件，相當(dāng)于在程序代碼中設(shè)置斷點，主要用于調(diào)試程序。3、結(jié)束語句：格式：End停止程序的運行，關(guān)閉所有已打開的文件。還可以用來結(jié)束一些模塊的操作。例：Private

6、Sub Command2_Click( )EndEnd Sub四、輸入函數(shù)InputBox：在一對話框中顯示提示，等待用戶輸入內(nèi)容，并返回包含文本框內(nèi)容的字符串。1、格式：InputBox (prompt , title , default , xpos, ypos , helpfile, context )（1）prompt：對話框的消息提示文字。（2）title：對話框的標(biāo)題，標(biāo)題省略取默認(rèn)值“工程1”。（3）default：文本框的默認(rèn)輸入信息。2、InputBox函數(shù)的返回值是字符型的。3、每運行一次InputBox函數(shù)只能給一個變量賦值?？偨Y(jié)：輸入數(shù)據(jù)的方法：1、在程序代碼中直接指定

7、： 優(yōu)點：代碼簡單缺點：缺少靈活性2、利用TextBox文本框輸入數(shù)據(jù)： 優(yōu)點：可以輸入任意值缺點：要添加多個文本框，界面復(fù)雜3、利用InputBox函數(shù)輸入數(shù)據(jù)： 優(yōu)點：界面簡單，可以輸入任意值缺點：代碼復(fù)雜，參數(shù)較多五、消息函數(shù)和語句MsgBox：在一對話框中顯示消息，等待用戶單擊按鈕，并返回包含文本框內(nèi)容的字符串。1、MsgBox函數(shù)：（1）格式：MsgBox (prompt , buttons , title , helpfile, context )prompt：對話框的消息提示文字。buttons：a) 組合值，每組只能取一個數(shù)字，數(shù)字間用“+”連接。b) 進(jìn)行相加（只有唯一的分解

8、方式）。c) 使用VB常數(shù)。（表4-1）d) 方式a）和方式c）可以結(jié)合起來使用。e）把“+”換成“Or”例：3 + 32 + 035vbYesNoCancel + vbQuestion + vbDefaultButton1vbYesNoCancel + 32 + vbDefaultButton1title：對話框的標(biāo)題，標(biāo)題省略取默認(rèn)值“工程1”。（2）MsgBox函數(shù)的返回值是整型的：1-7（表4-2）例：Private Sub Form_Load( ) Dim a As Integer Show a=MsgBox("請你選擇:",3+32+0,"Button

9、s參數(shù)組合舉例") If a=6 Then Unload Form1 Form2.Show End If If a=7 Then Unload Form1 Form3.Show End If If a=2 Then End End IfEnd Sub2、MsgBox語句：僅僅用于顯示一些簡單的信息而不需要返回值。格式：MsgBox prompt , buttons , title , helpfile, context參數(shù)含義：同上不用寫小括號，沒有返回值，可以單獨作為一個語句來使用。六、數(shù)據(jù)輸出：Print方法的缺省輸出：從窗體的第1行第1列開始輸出。1、Tab函數(shù)：格式：Tab(

10、n)，參數(shù)n是絕對列數(shù)值。（1）Tab函數(shù)與表達(dá)式之間用分號分隔。（2）如果當(dāng)前行的打印位置大于n，則Tab將打印位置移動到下一行的第n列上。（3）如果n小于1，則Tab將打印位置移動到該行的第1列。（4）如果n大于輸出行的寬度，則Tab函數(shù)用以下公式計算下一個打印位置：n Mod 行寬。2、Spc函數(shù)：格式：Spc(n)，參數(shù)n是相對列數(shù)值。（1）Spc函數(shù)與表達(dá)式之間用分號分隔。（2）如果n小于輸出行的寬度，則下一個打印位置將緊接在數(shù)個已打印的空白之后。（3）如果n大于輸出行的寬度，則Spc函數(shù)用以下公式計算下一個打印位置：當(dāng)前打印位置+（n Mod 行寬）。3、Space函數(shù)：格式：Sp

11、ace(n)，輸出n個空格注：Spc函數(shù)與Space函數(shù)作用相同，但Space函數(shù)可以使用字符串運算符&和+。總結(jié)：輸出行的控制：Print后面不跟表達(dá)式，只輸出一行空行。 輸出列的控制：用Tab、Spc或Space函數(shù)調(diào)整。七、輸出到打印機：1、直接輸出：格式：Printer.Print 表達(dá)式只能打印文本信息，不能打印圖形圖像信息。（1）Page屬性：用來設(shè)置頁碼，默認(rèn)缺省值為1。（2）NewPage方法：強制打印機跳到下一頁打印。（3）EndDoc方法：用來結(jié)束文件的打印。2、窗體輸出：格式：窗體.PrintForm既將信息輸出到窗體，又將信息輸出到打印機。預(yù)覽作用（1）窗體.A

12、utoRedraw=True（2）可以打印窗體上的文本、任何可見的控件及圖形信息。附：方法與函數(shù)的區(qū)別：（1）方法可以單獨作為語句使用，函數(shù)不可以。（2）方法沒有返回值，函數(shù)有返回值。（3）方法的格式：對象.方法 參數(shù)列表 函數(shù)的調(diào)用格式：函數(shù)名（參數(shù)列表）（4）方法是隸屬于某一個對象的，函數(shù)存在于VB自帶的函數(shù)庫。第二節(jié) 選擇結(jié)構(gòu)程序設(shè)計特點：根據(jù)指定的條件進(jìn)行判斷，根據(jù)判斷的結(jié)果在兩條分支或多條分支路徑中選取其中的一條執(zhí)行。一、行If語句：單行形式，雙分支結(jié)構(gòu)格式1：If 條件 Then 語句組1格式2：If 條件 Then 語句組1 Else 語句組2語句組中的多個語句之間用冒號分隔。二

13、、塊If語句：多行形式，雙分支結(jié)構(gòu)格式3：If 條件 Then 格式4：If 條件 Then語句組1 語句組1 End If Else 語句組2 End If1、Else必須單獨一行。2、IfEnd If必須成對出現(xiàn)。行If語句中不需要End If。3、最好采用縮進(jìn)形式。4、如果語句組1、語句組2中含有多條語句時，最好使用塊If語句。三、If語句的嵌套：多分支結(jié)構(gòu)四、ElseIf語句：多分支結(jié)構(gòu)格式：If 條件1 Then 語句組1ElseIf 條件2 Then 語句組2ElseIf 條件n Then 語句組nElse 語句組n+1End If1、VB首先測試條件1，如果它為False，VB就

14、測試條件2，依次類推，直到找到一個為True的條件。此時，VB就會執(zhí)行相應(yīng)的語句組，然后執(zhí)行End If后面的語句。2、不能交叉嵌套，只能完全嵌套。3、可以使用任意數(shù)量的ElseIf語句。4、只有一個End If與If相對應(yīng)。例題4-5：方法一：If cj >= 0 And cj < 60 Then Print "不及格"Else If cj >= 60 And cj < 75 Then Print "及格" Else If cj >= 75 And cj < 90 Then Print "良好"

15、Else If cj >= 90 And cj <= 100 Then Print "優(yōu)秀" End If End If End IfEnd If方法二：If cj >= 90 And cj <= 100 Then Print "優(yōu)秀"Else If cj >= 75 Then Print "良好" Else If cj >= 60 Then Print "及格" Else Print "不及格" End If End IfEnd If方法三：If cj &g

16、t;= 90 And cj <= 100 Then Print "優(yōu)秀"ElseIf cj >= 75 Then Print "良好"ElseIf cj >= 60 Then Print "及格"Else Print "不及格"End If方法四：Select Case cjCase 90 To 100 Print “優(yōu)秀”Case 75 To 89 Print “良好”Case 60 To 74 Print “及格” Case Else Print “不及格”End Select五、多條件選擇語

17、句Select Case：多分支結(jié)構(gòu)格式：Select Case 測試表達(dá)式 Case 表達(dá)式1 語句組1 Case 表達(dá)式2 語句組2 Case 表達(dá)式n 語句組n Case Else語句組n+1 End Select改進(jìn)：Select Case 測試表達(dá)式 復(fù)合語句 Case 表達(dá)式1：語句組1 Case 表達(dá)式2：語句組2 Case 表達(dá)式n：語句組n Case Else ：語句組n+1 End Select1、測試表達(dá)式只能是數(shù)值型或字符型。2、測試表達(dá)式只計算一次，然后VB將表達(dá)式的值與結(jié)構(gòu)中的每個Case的值進(jìn)行比較，如果相等，就執(zhí)行與該Case相關(guān)聯(lián)的語句組。3、如果不止一個Ca

18、se與測試表達(dá)式相匹配，則只對第一個匹配的Case執(zhí)行與之相關(guān)聯(lián)的語句組。4、表達(dá)式n的可能形式：（1）表達(dá)式1,表達(dá)式2,表達(dá)式3 無大小順序。（2）表達(dá)式1 To 表達(dá)式2 包括表達(dá)式1和表達(dá)式2在內(nèi)。（3）Is<關(guān)系運算符><表達(dá)式>只能是簡單的條件，不能用邏輯運算符將兩個或多個條件組合在一起。以上三種形式可以混合使用。六、條件判斷函數(shù)IIf：雙分支結(jié)構(gòu)格式：IIf(條件，表達(dá)式1，表達(dá)式2)1、當(dāng)條件為真時，函數(shù)返回值是表達(dá)式1的值；當(dāng)條件為假時，函數(shù)返回值是表達(dá)式2的值。例：Print IIf(cj>=60,“通過”,“不通過”)2、IIf函數(shù)可以嵌套使

19、用。 例：Print IIf(a<0,-1,IIf(a=0,0,1)總結(jié)：1、行If語句：雙分支結(jié)構(gòu)2、塊If語句：雙分支結(jié)構(gòu)3、If語句的嵌套：多分支結(jié)構(gòu)4、ElseIf語句：多分支結(jié)構(gòu)5、多條件選擇語句Select Case：多分支結(jié)構(gòu)6、條件判斷函數(shù)IIf：雙分支結(jié)構(gòu)第三節(jié) 循環(huán)結(jié)構(gòu)程序設(shè)計1、特點：根據(jù)給定條件是否滿足決定是否繼續(xù)執(zhí)行循環(huán)體中的操作。注：避免出現(xiàn)“死循環(huán)”。 當(dāng)程序運行了“死循環(huán)”的結(jié)構(gòu)，必須按Ctrl+Break中斷。2、三種循環(huán)結(jié)構(gòu)：（1）ForNext （2）WhileWend （3）DoLoop3、循環(huán)方式：（1）計數(shù)法 （2）標(biāo)志法一、For循環(huán)結(jié)構(gòu)：格

20、式：For 循環(huán)變量=初值 To 終值 Step 步長 循環(huán)體 Next 循環(huán)變量1、缺省步長時，默認(rèn)是1。步長可以為正值或為負(fù)值。2、先判斷條件，后執(zhí)行循環(huán)體。 注：若循環(huán)體執(zhí)行n次，則條件將被判斷n+1次。3、Exit For語句的作用：提前退出循環(huán)體，結(jié)束循環(huán)結(jié)構(gòu)。4、空循環(huán)的作用：延時。5、For循環(huán)一般用在已知循環(huán)次數(shù)的情況。6、多重循環(huán)：不能交叉嵌套，只能完全嵌套。各層次的循環(huán)變量名不能相同。7、多重循環(huán)可以共用一個Next語句，但此時循環(huán)變量名不能省略，并且先內(nèi)循環(huán)變量，后外循環(huán)變量。例：For i=1 To 10 For j=1 To 15 For k=1 To 20 循環(huán)體

21、Next k Next j Next i二、當(dāng)型循環(huán)WhileWend結(jié)構(gòu)：格式：While 條件 循環(huán)體 Wend1、先判斷條件，后執(zhí)行循環(huán)體。注：若循環(huán)體執(zhí)行n次，則條件將被判斷n+1次。2、循環(huán)體內(nèi)一定要有改變條件的語句，否則就會導(dǎo)致“死循環(huán)”。3、多重循環(huán)：不能交叉嵌套，只能完全嵌套。例題4-11：求兩個數(shù)的最大公約數(shù)。（1）該程序算法：（2）Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then Text2.SetFocusEnd Sub注：CommandButton的Default屬性默認(rèn)是False

22、，該屬性設(shè)置為True時，說明該按鈕是缺省按鈕，按回車鍵就相當(dāng)于單擊了該按鈕。兩者不能相互沖突。三、DoLoop循環(huán)結(jié)構(gòu)：先判斷后執(zhí)行先執(zhí)行后判斷當(dāng)型循環(huán)Do While 條件循環(huán)體Loop與WhileWend結(jié)構(gòu)相同Do循環(huán)體Loop While 條件直到型循環(huán)Do Untill 條件循環(huán)體LoopDo循環(huán)體Loop Untill 條件1、既可以是當(dāng)型循環(huán)，也可以是直到型循環(huán)。2、While與Untill后面的“條件”總是相反的。3、既可以先判斷后執(zhí)行：若循環(huán)體執(zhí)行n次，則條件將被判斷n+1次。也可以先執(zhí)行后判斷： 若循環(huán)體執(zhí)行n次，則條件將被判斷n次。4、Exit Do語句的作用：提前退出

23、循環(huán)體，結(jié)束循環(huán)結(jié)構(gòu)。總結(jié)：提前退出循環(huán)體的方法：（1）ForNext ：用Exit For語句（2）WhileWend（3）DoLoop ：用Exit Do語句Page 79：i=1 Do While i<=99 s=s+i If s>2000 Then Exit DoEnd If i=i+2 Loop例題4-10：方法一：用For循環(huán)結(jié)構(gòu)For i=1 To 9 For j=1 To i Print Tab(j*8);j & "×" & i & "=" & j*i; Next j PrintNext i方法二：用WhileWend循環(huán)結(jié)構(gòu)i=1While i<=9 j=1 While j<=i Print Tab(j*8);j & "×" & i & "=" & j*i; j=j+1 Wend Print i=i+1Wend方法三：用DoLoop循環(huán)結(jié)構(gòu)i=1Do While i<=9 j=1 Do While j<=i Print Tab(j*8);j & "×" & i & &qu