VB程序設(shè)計(jì)課件

1、第四章 VB程序設(shè)計(jì)4.1順序結(jié)構(gòu)程序設(shè)計(jì)4.2選擇結(jié)構(gòu)程序設(shè)計(jì)4.3循環(huán)結(jié)構(gòu)zcj1 VB雖然采用事件驅(qū)動(dòng)機(jī)制，但由于VB應(yīng)用程序主要是由過程組成的，所以要用到結(jié)構(gòu)化程序設(shè)計(jì)的方法。本章將依次介紹順序結(jié)構(gòu)、選據(jù)結(jié)構(gòu)和循環(huán)結(jié)構(gòu)這三大類基本的結(jié)構(gòu)化程序設(shè)計(jì)方法。zcj24.1 順序結(jié)構(gòu)程序設(shè)計(jì)zcj3 VB中可以使用多種語句，但使用最頻繁的語句當(dāng)數(shù)賦值語句。格式為： Let 變量名 = 表達(dá)式 Let 對(duì)象名.屬性 = 表達(dá)式 功能：將表達(dá)式的賦值給變量或?qū)ο蟮哪硞€(gè)屬性。 例如：n1100 s1“姓名” 1l=false label1.caption=s1 text1.text=請(qǐng)輸入：+s14

2、.1.1 賦值語句（let語句）4.1zcj44.1.2 注釋、暫停與程序結(jié)束語句1注釋語句 為了提高程序的可讀性，通常在程序的適當(dāng)位置加上必要的注釋。格式為： Rem 注釋內(nèi)容 或 注釋內(nèi)容zcj52暫停語句Stop語句用來暫停語句的執(zhí)行，作用相當(dāng)于“運(yùn)行”菜單中的“中斷”命令。 格式為： Stop當(dāng)執(zhí)行到Stop語句時(shí)，系統(tǒng)自動(dòng)打開立即窗口。Stop語句般用來在解釋程序中設(shè)置斷點(diǎn)，以便對(duì)程序進(jìn)行檢查和調(diào)試。如果在可執(zhí)行文件(exe)中含有Stop語句，將關(guān)閉所有文件退出運(yùn)行。因此，當(dāng)程序調(diào)試完畢，在生成可執(zhí)行文件之前，應(yīng)刪去程序中的所有Stop語句。zcj63結(jié)束語句End End語句通常

3、用來結(jié)束一個(gè)程序的執(zhí)行。 其格式為： End End話句提供了一種強(qiáng)迫終止程序的方法。End語句可放在程序中的任何位置，當(dāng)在程序中End語句中時(shí)，將中止當(dāng)前程序，重置所有變量，并關(guān)閉所有的數(shù)據(jù)文件。程序中也可以沒有End語句，這并不影響程序的運(yùn)行。 但如果程序中沒有End語句，或者雖有但沒有執(zhí)行含有End語句的事件過程，程序就不能正常結(jié)束，必須執(zhí)行“運(yùn)行”菜單中的“結(jié)束”命令或單擊工具欄的“結(jié)束”按鈕。zcj74.1.3 數(shù)據(jù)的輸出1使用Print方法輸出數(shù)據(jù) 使用Print方法，可以在窗體(Form)、調(diào)試窗口(Debug)、圖片框(PictureBox)、打印機(jī)(Printer)等對(duì)象中輸

4、出文本或表達(dá)式的值。 其格式為：對(duì)象名.Print 表達(dá)式列表,|; 功能：在窗體、圖形對(duì)象或打印機(jī)等對(duì)象中輸出信息。 zcj8例: 使用Print方法直接在窗體上輸出數(shù)據(jù)實(shí)例。運(yùn)行結(jié)果見圖4.1所示。 Private Sub Form_Click() a1 = 2: a2 = 4: a3 = 6 Print a1, a2, a3 Print Print a1+a2+a3=; a1 + a2 + a3End Subzcj9運(yùn)行程序zcj10例: Print方法實(shí)例。運(yùn)行結(jié)果見圖4.2所示。 Private Sub Form_Click() Print 10+20=, Print 10 + 20

5、 Print 30+20=; Print 30 + 20 End Subzcj11圖4.2zcj122格式函數(shù)Format$（配合print方法一起使用） 用Print方法輸出數(shù)據(jù)時(shí)，為了以某種特定的格式顯示或打印數(shù)據(jù)，可使用Format$函數(shù)來實(shí)現(xiàn)。 其格式為： Format$(表達(dá)式格式字符串) 功能：按格式字符串指定的格式將表達(dá)式以字符串形式返回。與print有關(guān)的函數(shù)：tab函數(shù)/spc函數(shù)/format$函數(shù)zcj13(1) Tab函數(shù)： 在參數(shù)n指定的位置輸出其后的表達(dá)式的值。 格式：Tab(n) 例 Print Tab(25); “ABC“ 在第25列顯示“ABC”串(2) Sp

6、c函數(shù)：使光標(biāo)從當(dāng)前位置跳過n個(gè)空格，對(duì)輸出進(jìn)行定位。 格式：Spc(n) 說明：Tab中的參數(shù)n是絕對(duì)列號(hào)，而Spc函數(shù)中的n參數(shù)是相對(duì)于前一輸出項(xiàng)的最后一個(gè)字符而言跳過的空格數(shù)。例如： Print Hello;Tab(10); World 第二個(gè)字符串從第10列起輸出 Print Hello;Spc(10); World 兩個(gè)字符串之間相隔10個(gè)空格與Print方法有關(guān)的函數(shù)zcj14(3)Format函數(shù)：使數(shù)值或日期按指定的格式輸出。 格式：Format(數(shù)值表達(dá)式，格式字符串) 數(shù)值格式化輸出 格式字符串是一個(gè)串常量或串變量，由專門的格式說明字符組成，這些字符決定了數(shù)據(jù)項(xiàng)的顯示格式和

7、長(zhǎng)度，詳見教材表4-2。 例 Print Format(12345.6, “#,#.#”) 輸出：12,345.6 日期和時(shí)間格式化輸出 日期和時(shí)間格式化是將日期類型表達(dá)式的值或數(shù)值表達(dá)式的值以日期、時(shí)間的序數(shù)值按“格式字符串”指定的格式輸出。有關(guān)格式見教材表4-3。 例 Print Format(Now, “yyyy年m月dd日hh:mm”) 輸出：2007年4月12日zcj153使用標(biāo)簽和文本框輸入輸出 標(biāo)簽是VB中最簡(jiǎn)單的控件，用于顯示文本信息，但不能編輯，通常用于顯示提示信息。 文本框(TextBox)控件可用來顯示或輸入文本，與標(biāo)簽配合使用可以很好的控制數(shù)據(jù)的輸入輸出。 例 設(shè)計(jì)一個(gè)

8、窗體，如圖所示。其中有3個(gè)標(biāo)簽、3個(gè)文本框和1個(gè)命令按鈕。zcj16圖4.5zcj17編寫單擊命令按鈕響應(yīng)事件程序如下： Private Sub Command_Click() a1=text1.text a2=text2.text a3=a1*a2 text3=a3End Sub 選擇運(yùn)行啟動(dòng)命令，分別輸入矩形的長(zhǎng)和寬，單擊開始計(jì)算按鈕，在第三個(gè)文本框中就會(huì)顯示矩形的面積。zcj181輸入函數(shù)InputBox為了輸入數(shù)據(jù)，增加人機(jī)交互界面，VB提供了InputBox函數(shù)。當(dāng)調(diào)用InputBox函數(shù)時(shí)系統(tǒng)會(huì)彈出一個(gè)對(duì)話框，等待用戶輸入數(shù)據(jù)。其格式為： InputBox ( prompt，tit

9、le， Defaultl， Xpos， Ypos， HelpFileContext)功能：產(chǎn)生一個(gè)對(duì)話框，等待用戶輸入數(shù)據(jù)，并返回所輸入的文本內(nèi)容 4.1.4 用戶交互函數(shù)和過程缺省值標(biāo)題提示運(yùn)行程序zcj19參數(shù)說明：prompt：提示信息字符串表達(dá)式，最大1024個(gè)字符。該信息自動(dòng)換行，如果要按自己的要求換行，則需插入回車、換行符來分隔，即Chr(13)+Chr(10)或VB常量vbCrLf。title：對(duì)話框標(biāo)題。default：對(duì)話框中的默認(rèn)字符串，缺省時(shí)為空白。xpos,ypos：對(duì)話框左上角的點(diǎn)坐標(biāo)，缺省時(shí)，對(duì)話框顯示在屏幕中心。zcj202.MsgBox輸出函數(shù)與MsgBox語句

10、（1）MsgBox函數(shù) 與Windows風(fēng)格相似，VB提供了一個(gè)可以顯示提示信息對(duì)話框的Msg函數(shù)。此函數(shù)可以用對(duì)話框的形式向用戶輸出信息，并根據(jù)用戶的選擇做出響應(yīng)。其格式為： MsgBox(Prompt，Buttons，Title，HelpFile，Context) 功能：根據(jù)參數(shù)建立一個(gè)對(duì)話框，顯示提示情息，同時(shí)將用戶在對(duì)話框中的選擇結(jié)果傳輸給程序。 函數(shù)中共包括5個(gè)參數(shù)，其中Title、HelpFile和Context參數(shù)與InputBox函數(shù)中同名參數(shù)含義類似。 InputBox ( prompt，title， Defaultl， Xpos， Ypos， HelpFileContext

11、)zcj21（2）MsgBox語句 MsgBox語句與MsgBox函數(shù)的作用相似，各參數(shù)的含義也與MsgBox函數(shù)相同，其格式為： MsgBox ，Buttons，Title，HelpFile，Context 功能：建立一個(gè)對(duì)話框，顯示提示信息，同時(shí)接收用戶在對(duì)話框中的選擇。 zcj22MsgBox函數(shù)和MsgBox過程 函數(shù)形式:變量% = MsgBox(提示,按鈕圖標(biāo)+ 缺省按鈕+模式，標(biāo)題) 過程形式: MsgBox 提示,按鈕圖標(biāo) +缺省按鈕+ 模式,標(biāo)題圖標(biāo)標(biāo)題提示信息命令按鈕zcj23按鈕及圖標(biāo)值如下:根據(jù)用戶所選按鈕，函數(shù)返回17的整數(shù)值，其含義如下表:（表4.2)zcj24例:

12、 編寫程序，使用MsgBox函數(shù)顯示對(duì)話框，運(yùn)行結(jié)果如圖4.9所示Private Sub Form_Click() m1 = 繼續(xù)錄入數(shù)據(jù)嗎? m2 = MsgBox函數(shù)示例 h = MsgBox(m1, 36, m2) Print hEnd Sub運(yùn)行程序zcj25圖4.9zcj264.2 選擇結(jié)構(gòu)程序設(shè)計(jì)zcj27 選擇結(jié)構(gòu)是一種分支結(jié)構(gòu)，它能根據(jù)所指定條件的當(dāng)前值在兩條或多條程序路徑中判斷并選擇一條執(zhí)行，因此該結(jié)構(gòu)也被稱為判斷結(jié)構(gòu)。它為處理多種復(fù)雜情況提供了便利條件。 VB中選擇結(jié)構(gòu)語句有If語句和Select Case語句兩種。zcj28 1. IfThen語句(單分支結(jié)構(gòu)) If T

13、hen 語句塊 End If 或 If Then 例:已知兩個(gè)數(shù)x和y，比較它們的大小， 使得x大于y. If xy Then t=x : x=y: y=t End If 或 If xy Then t=x: x=y: y=tIf語句多行分支結(jié)構(gòu)單行分支結(jié)構(gòu)運(yùn)行程序zcj292. IfThenElse語句(雙分支結(jié)構(gòu)) If Then Else End If If Then Else 例如：輸出x,y兩個(gè)中值較大的一個(gè)值。IF XY Then Print XElse Print YEnd If也可以寫成如下的單行形式： IF XY Then Print X Else Print Y 雙分支選擇結(jié)

14、構(gòu)執(zhí)行過程 多行分支結(jié)構(gòu)單行分支結(jié)構(gòu)運(yùn)行程序zcj30注意：?jiǎn)涡行问絀f語句與多行形式的If語句的區(qū)別前者適用于簡(jiǎn)單的二叉分支的情況，后者適用于多分支的情況。前者可以改寫為后者的形式。前者必須寫在一行中；后者必須寫成多行，并且在關(guān)鍵字“Then”后面必須回車。后者必須是If開頭，End If結(jié)束，兩者必須成對(duì)出現(xiàn)。但是，前者沒有End If。另外，在多行形式的If語句中，代碼的排版推薦使用縮進(jìn)方式，這樣不僅有利于閱讀程序，也有利于發(fā)現(xiàn)錯(cuò)、排除錯(cuò)誤。zcj31對(duì)于簡(jiǎn)單的條件結(jié)構(gòu)，有時(shí)可以使用VB提供的IIF函數(shù)來實(shí)現(xiàn)，它和“if.thenelse”語句有類似功能。其格式如下：IIf（,）如前：例

15、題zcj323. IfThenElseIf語句(多分支結(jié)構(gòu)) 形式: If Then ElseIf Then Else 語句塊 n+1 End If執(zhí)行過程單行分支結(jié)構(gòu)If then elseif then else語句塊 n+1 Select case“ElseIf”是一個(gè)關(guān)鍵字，不能寫成“Else If”。zcj33Select Case語句 在某些情況下，對(duì)某個(gè)條件表達(dá)式可能出現(xiàn)多種取值不同的情況或者需要根據(jù)某些離散的值進(jìn)行不同的處理時(shí)，If結(jié)構(gòu)語句不太適合，需要使用另一種多分支選擇結(jié)構(gòu)語句Select Case語句來完成。在這種語句結(jié)構(gòu)中，只有一個(gè)用來判斷的表達(dá)式，根據(jù)表達(dá)式不同的計(jì)算

16、結(jié)果，來執(zhí)行不同的語句序列。zcj34Select caseCase Case Case Case Else End SelectSelect Case語句的格式為：功能：在語句開始時(shí)將“測(cè)試表達(dá)式”計(jì)算一次，根據(jù)“測(cè)試表達(dá)式”的值，在一組相互獨(dú)立的可選語句序列中判斷出當(dāng)前應(yīng)該選擇執(zhí)行的語句序列。zcj35注意事項(xiàng)：(1) 執(zhí)行過程：先對(duì)“測(cè)試表達(dá)式”求值，然后從上到下順序地測(cè)試該值與哪一個(gè)Case子句中的“表達(dá)式表列”相匹配；一旦找到，則執(zhí)行該Case分支的語句塊，然后把控制轉(zhuǎn)移到End Select后面的語句塊；如果沒找到，則執(zhí)行Case Else分支的語句塊，然后把控制轉(zhuǎn)移到End Se

17、lect后面的語句塊。(2) “測(cè)試表達(dá)式”可以是數(shù)值表達(dá)式或字符串表達(dá)式，通常為變量或常量。zcj36(3) 每個(gè)Case子句中的語句塊可以是一行或多行VB語句。(4) “表達(dá)式表列”中的表達(dá)式必須與測(cè)試表達(dá)式的類型相同。zcj37(5) “表達(dá)式表列”稱為域值，可以是下列形式之一：表達(dá)式1，表達(dá)式2 當(dāng)“測(cè)試表達(dá)式”的值與其中之一相同時(shí)，就執(zhí)行該Case子句中的語句塊。 例 Case 2,4,6,8,10表達(dá)式1 To 表達(dá)式2 當(dāng)“測(cè)試表達(dá)式”的值落在表達(dá)式1和表達(dá)式2之間時(shí)(含表達(dá)式1和表達(dá)式2的值)，則執(zhí)行該Case子句中的語句塊。書寫時(shí)，必須把較小值寫在前面。 例 Case 2 T

18、o 10 Is關(guān)系表達(dá)式 當(dāng)“測(cè)試表達(dá)式”的值滿足“關(guān)系表達(dá)式”指定條件時(shí)，執(zhí)行該Case子句中的語句塊。zcj38(6)有時(shí)可以用choose函數(shù)代替Choose(整數(shù)表達(dá)式，選項(xiàng)列表）返回列表選項(xiàng)或者是null例：根據(jù)當(dāng)前日期函數(shù)now，weekday，利用choose函數(shù)顯示“今日是星期*”。運(yùn)行程序思考：顯示“*年*月*日是星期*”zcj39 例：輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：90100分為“優(yōu)秀”，8089分為“良好”，7079分為“中等”，6069分為“及格”，60分以為“不合格”。分別用IfThenElseIf語句和Select Case語句實(shí)現(xiàn)，并比較他們的不同。運(yùn)行程序

19、運(yùn)行程序運(yùn)行程序Select caseIfThenElseIfzcj40 多分支選擇結(jié)構(gòu)語句用來處理較復(fù)雜的多條件選擇判斷。Select Case結(jié)構(gòu)語句也稱之為“情況語句”或簡(jiǎn)稱為“Case語句”。它實(shí)際上是多行If（塊結(jié)構(gòu)）條件語句的一種變形。兩者之間的主要區(qū)別在于：塊結(jié)構(gòu)條件語句可以對(duì)多個(gè)表達(dá)式的結(jié)果進(jìn)行判斷，從而執(zhí)行不同的操作；而Case語句只能對(duì)一個(gè)表達(dá)式的結(jié)果進(jìn)行判斷，然后再選擇不同的操作流程。zcj41選擇結(jié)構(gòu)的嵌套 在選擇結(jié)構(gòu)的每個(gè)分支中，可以是任何語句，也可以再是一個(gè)分支結(jié)構(gòu)。這種分支結(jié)構(gòu)中包含另一個(gè)分支結(jié)構(gòu)的情況稱為分支嵌套。在分支嵌套中應(yīng)注意的問題： 每個(gè)結(jié)構(gòu)必須完整。

20、外層結(jié)構(gòu)必須完全包住內(nèi)層結(jié)構(gòu)，不能交叉。 內(nèi)層結(jié)構(gòu)應(yīng)采用縮進(jìn)格式，以使層次清楚。zcj42If then If then End ifEnd if和IfThenElseIf語句(多分支結(jié)構(gòu))的區(qū)別？運(yùn)行程序比較：4.6.1 4.6.2zcj43 例如：編一個(gè)賬號(hào)和密碼輸入的檢驗(yàn)程序，運(yùn)行界面如下圖。對(duì)輸入的賬號(hào)和密碼規(guī)定如下：賬號(hào)不超過6位數(shù)字，以按tab鍵表示輸入結(jié)束；密碼4位字符，輸入文本框以“*”顯示，單擊“確定”按鈕表示輸入結(jié)束，密碼假定位“zzz”;當(dāng)輸入不正確，如賬號(hào)為非數(shù)字字符，密碼不正確等，顯示有關(guān)信息，再輸入。運(yùn)行程序zcj44注意：對(duì)于嵌套結(jié)構(gòu)，為了增強(qiáng)程序的可讀性，書寫時(shí)

21、采用鋸齒型；If 與end if必須配對(duì)使用，且end if 與最接近的if配對(duì)。zcj4543 循環(huán)結(jié)構(gòu)? 計(jì)算1+2+3+100 的值。 ? 計(jì)算1+2+3+10 的值。zcj464.3.1 ForNext循環(huán) ForNext循環(huán)是一種已知循環(huán)次數(shù)的循環(huán)，按照指定的次數(shù)重復(fù)執(zhí)行循環(huán)體。在循環(huán)體中使用一個(gè)循環(huán)變量（計(jì)數(shù)器），每重復(fù)執(zhí)行一次循環(huán)體，循環(huán)變量就會(huì)按照步長(zhǎng)值自動(dòng)增加或減少。其格式如下： For = To Step 語句序列 Exit For Next zcj47 其中： 循環(huán)變量：是用做循環(huán)計(jì)數(shù)器的數(shù)值變量，也稱為循環(huán)控制變量。 初值：循環(huán)控制變量的初值，是個(gè)常數(shù)或數(shù)值表達(dá)式。 終

22、值：循環(huán)控制變量的終值，是個(gè)常數(shù)或數(shù)值表達(dá)式。 步長(zhǎng)：循環(huán)控制變量的增量，是一個(gè)常數(shù)或數(shù)值表達(dá)式。 功能：按指定的次數(shù)執(zhí)行循環(huán)體。? 計(jì)算1+3+5+99 的值(1到100之間的奇數(shù)和)。比較goto語句zcj48ForNext循環(huán)流程圖zcj49？s= 1*2*3*n,計(jì)算出s不大于5000時(shí)n的最大值。? 計(jì)算1*2*3*100的值。運(yùn)行程序zcj504.3.2 WhileWend循環(huán) 有些問題的解決過程可能不能事先知道需要重復(fù)執(zhí)行某些操作的次數(shù)，那么用ForNext循環(huán)語句就不適合了，但可以考慮用WhileWend或Do循環(huán)語句。 WhileWend循環(huán)也是種形式的循環(huán)結(jié)構(gòu)，也稱當(dāng)型循環(huán)

23、。比較： 與ForNext循環(huán)不同的是：它不是確定循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)，而是根據(jù)給定“條件”的成立與否決定程序的流程。zcj51 其格式為： While條件表達(dá)式 語句序列 Wend 功能：如果“條件表達(dá)式”的值為True，則執(zhí)行循環(huán)中的“語句序列”即循環(huán)體，否則退出循環(huán)。zcj52WhileWend循環(huán)結(jié)構(gòu)流程圖zcj534.3.3 Do循環(huán) 這種形式的循環(huán)語句比WhileWend語句功能更強(qiáng)。比較： WhileWend循環(huán)只能在初始位置檢查循環(huán)條件是否成立； 而Do循環(huán)可以有兩種格式，既可以在初始位置檢查循環(huán)條件是否成立，又可以在執(zhí)行一遍循環(huán)體后的結(jié)束位置判斷循環(huán)條件是否成立，然后再根據(jù)循環(huán)

24、條件是True或False決定是否執(zhí)行循環(huán)體。運(yùn)行程序運(yùn)行程序zcj54 格式： Do While|Until 條件 循環(huán)體 Loop Do While.Loop語句的功能：當(dāng)條件成立(為真)時(shí)，執(zhí)行循環(huán)體；當(dāng)條件不成立(為假時(shí))，終止循環(huán) Do Until.Loop(直到型循環(huán))語句的功能： 當(dāng)條件不成立(為假)時(shí)，執(zhí)行循環(huán)體，直到條件成立(為真)時(shí)，終止循環(huán)前測(cè)型Do.Loop循環(huán)zcj55?求 S12 + 22 + + 1002?用/41 - 1/3 + 1/5 - 1/7 + 級(jí)數(shù),求的近似值。當(dāng)最后一項(xiàng)的絕對(duì)值小于10-5時(shí)，停止計(jì)算。運(yùn)行運(yùn)行zcj56 語句格式如下： Do 循環(huán)體 Loop While|Until條件 功能：先執(zhí)行循環(huán)體，然后判斷條件，根據(jù)條件決定是否繼續(xù)執(zhí)行循環(huán) 注意，本語句執(zhí)行循環(huán)的最少次數(shù)為1，而前測(cè)型Do.Loop語句的最少次數(shù)為0(即一次都不執(zhí)行循環(huán))后測(cè)型Do.Loop循環(huán)zcj57 ForNext 前測(cè)型 S=0 s=0:k=1 For k=1 to 8 Do While k=8 s=s+k s=s+k Next k k=k+1 Print s Loop Print s s=0 : k=1 do s=s+k k=k+1 Loop While k=8 Print s三種循環(huán)語句比較 示例：求和s = 1 + 2 + 3 +