第-章-Visual-Basic程序控制結(jié)構(gòu)優(yōu)秀文檔

第3章VisualBasic程序控制結(jié)構(gòu)

3.1順序結(jié)構(gòu)3.2選擇結(jié)構(gòu)3.3循環(huán)結(jié)構(gòu)第三章VB程序控制結(jié)構(gòu)3.1順序結(jié)構(gòu)編寫程序時(shí)，我們一條一條地書寫指令，如果按照指令的書寫順序執(zhí)行程序，這種結(jié)構(gòu)就是順序結(jié)構(gòu)第三章VB程序控制結(jié)構(gòu)指令一指令二指令三3.1.1賦值語句

用賦值語句可以把指定的值賦給某個(gè)變量或某個(gè)帶有屬性的對(duì)象，其一般格式為：[Let]目標(biāo)操作符=源操作符例如：Totla=99 ’把數(shù)值常量99賦給變量Total（’是注釋符）BitCount=ByteCount*8第三章VB程序控制結(jié)構(gòu)說明：這里的“源操作符”包括變量（簡(jiǎn)單變量或下標(biāo)變量）、表達(dá)式（數(shù)值表達(dá)式、字符表達(dá)式或邏輯表達(dá)式）、常量及帶有屬性的對(duì)象；而“目標(biāo)操作符”指的是變量和帶有屬性的對(duì)象；“=”稱為“賦值號(hào)”。賦值語句的功能是把“源操作符”的值賦給“目標(biāo)操作符”?！癓et”可省略3.1.2數(shù)據(jù)輸入和輸出一般格式為：[對(duì)象名稱.]Print[表達(dá)式][,|;]一、數(shù)據(jù)輸出—Print方法說明：例如：Picture1.Print“MicrosoftVisualBasci”1、“對(duì)象名稱”可以是窗體（Form）、圖片框（PictureBox）或打印機(jī)（Printer），也可以是立即窗口（Debug）。如果省略“對(duì)象名稱”，則在當(dāng)前窗體上輸出。2、如果省略“表達(dá)式”，則輸出一個(gè)空行3、如果輸出的各表達(dá)式之間用逗號(hào)分隔，則按標(biāo)準(zhǔn)輸出格式（分區(qū)輸出格式）顯示數(shù)據(jù)項(xiàng)4、如果各輸出項(xiàng)之間用分號(hào)或空格作分隔符，則按緊湊輸出格式輸出數(shù)據(jù)第三章VB程序控制結(jié)構(gòu)二、與Print方法有關(guān)的函數(shù)1．Tab函數(shù)格式：Tab(n)說明：Tab函數(shù)把光標(biāo)移到由參數(shù)n指定的位置，從這個(gè)位置開始輸出信息。要輸出的內(nèi)容放在Tab函數(shù)的后面，并用分號(hào)隔開。例如：PrintTab(25);800將在第25個(gè)位置輸出數(shù)值800。2．Spc函數(shù)格式：Spc(n)說明：在Print的輸出中，用Spc函數(shù)可以跳過n個(gè)空格。例如：Print“ABC”;Spc(8);”DEF”將首先輸出“ABC”，然后跳過8個(gè)空格，輸出“DEF”。輸出結(jié)果為：ABCDEF第三章VB程序控制結(jié)構(gòu)三、輸出格式用格式輸出語句Format$可以使數(shù)值或日期按指定的格式輸出。一般格式為：Format$(數(shù)值表達(dá)式，格式字符串)字符作用#數(shù)字；不在前面或后面補(bǔ)00數(shù)字；在前面或后面補(bǔ)0.小數(shù)點(diǎn),千位分隔符%百分比符號(hào)$美元符號(hào)—、+負(fù)、正號(hào)E+、E—指數(shù)符號(hào)第三章VB程序控制結(jié)構(gòu)例如：PrintFormat$(25634,”00000000”)<CR> 00025634PrintFormat$(25634,”########”<CR>25634PrintFormat$(850.72,”###.##”) <CR>Printformat$(12345.67,”####,##.##”)<CR>Printformat$(.257,”00.0%”) <CR> 25.7%第三章VB程序控制結(jié)構(gòu)四、數(shù)據(jù)輸入—InputBox函數(shù)InputBox函數(shù)可以產(chǎn)生一個(gè)對(duì)話框，這個(gè)對(duì)話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。其格式為：InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context])（1）Prompt：是一個(gè)字符串，其長度不得超過1024個(gè)字符，它是在對(duì)話框內(nèi)顯示的信息，用來提示用戶輸入。在對(duì)話框內(nèi)顯示prompt時(shí)，可以自動(dòng)換行。如果想按自己的要求換行，則須插入回車換行操作，即：Chr$(13)+Chr$(10)說明：（2）title：字符串，它是對(duì)話框的標(biāo)題，顯示在對(duì)話框頂部的標(biāo)題區(qū)。第三章VB程序控制結(jié)構(gòu)（3）default：字符串，用來顯示輸入緩沖區(qū)的默認(rèn)信息。如果用戶不想用這個(gè)默認(rèn)字符串作為輸入值，則可在輸入?yún)^(qū)直接鍵入數(shù)據(jù)，以取代默認(rèn)值；如果省略該參數(shù)，則對(duì)話框的輸入?yún)^(qū)為空白，等待用戶鍵入信息。（4）xpos，ypos：是兩個(gè)整數(shù)值，分別用來確定對(duì)話框與屏幕左邊的距離(xpos)和上邊的距離（ypos。這兩個(gè)參數(shù)必須全部給出，或者全部省略。如果省略這一對(duì)位置參數(shù)，則對(duì)話框顯示在、屏幕中心線向下約三分之一處。標(biāo)題xpos，ypos輸入?yún)^(qū)prompt（5）helpfile，context：helpfile用來表示幫助文件的名字;context用來表示相關(guān)幫助主題的幫助目錄號(hào)。第三章VB程序控制結(jié)構(gòu)五、MsgBox函數(shù)和MsgBox語句1．MsgBox函數(shù)格式如下：MsgBox(msg[,type][,title][,helpfile,context]說明：該函數(shù)有5個(gè)參數(shù)，除第一個(gè)參數(shù)外，其余參數(shù)都是可選的。各參數(shù)的含義如下：（1）msg：是一個(gè)字符串，該字符串的內(nèi)容將在由MsgBox函數(shù)產(chǎn)生的對(duì)話框內(nèi)顯示。（2）type：是一個(gè)整數(shù)值或符號(hào)常量，用來控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)的種類及數(shù)量。該參數(shù)的值由4類數(shù)值相加產(chǎn)生，這4類數(shù)值或符號(hào)常量分別表示按鈕的類型、顯示圖標(biāo)的種類、活動(dòng)按鈕的位置及強(qiáng)制返回，見表所示。第三章VB程序控制結(jié)構(gòu)序號(hào)符號(hào)常量值作用1vbOKOnly0只顯示“確定”按鈕2vbOKCancel1顯示“確定”及“取消”按鈕3vbAbortRetryIgnore2顯示“終止”、“重試”及“忽略”按鈕4vbYesNoCancel3顯示“是”、“否”及“取消”按鈕5vbYesNo4顯示“是”、“否”按鈕6vbRetryCancel5顯示“重試”及“取消”按鈕7vbCritical16顯示CriticalMessage圖標(biāo)8vbQuestion32顯示W(wǎng)arningQuery圖標(biāo)9vbExclamation48顯示W(wǎng)arningMessage圖標(biāo)10vbInformation64顯示InformationMessage圖標(biāo)11vbDefaultButton10第一個(gè)按鈕是默認(rèn)值12vbDefaultButton2256第二個(gè)按鈕是默認(rèn)值13vbDefaultButton3512第三個(gè)按鈕是默認(rèn)值14vbDefaultButton4768第四個(gè)按鈕是默認(rèn)值15vbApplicationModal0應(yīng)用程序強(qiáng)制返回；應(yīng)用程序一直被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作16vbSystemModal4096系統(tǒng)強(qiáng)制返回：全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才能繼續(xù)工作第三章VB程序控制結(jié)構(gòu)（3）title：是一個(gè)字符串，用來顯示對(duì)話框的標(biāo)題。返回值操作符號(hào)常量1選“確定”按鈕vbOk2選“取消”按鈕vbCancel3選“終止”按鈕vbAbort4選“重試”按鈕Vbretry5選“忽略”按鈕vbIgnore6選“是”按鈕vbYes7選“否”按鈕vbNo（4）helpfile，context：同InputBox函數(shù)。（5）MsgBox函數(shù)的返回值是一個(gè)整數(shù)，這個(gè)整數(shù)與所選擇的按鈕有關(guān)。見表第三章VB程序控制結(jié)構(gòu)2、MsgBox語句Msgbox函數(shù)也可以寫成語句形式，即： MsgBoxMsg$[,type%][,title$[],helpfile,context]例如： MsgBox“文件保存成功“執(zhí)行上面的語句，顯示的信息如圖所示。說明：各參數(shù)的含義及作用與MsgBox函數(shù)相同，由于MsgBox語句沒有返回值，因而常用于較簡(jiǎn)單的信息顯示。第三章VB程序控制結(jié)構(gòu)3.1.3注釋、暫停與程序結(jié)束語句為了提高程序的可讀性，通常應(yīng)在程序的適當(dāng)位置加上必要的注釋。VisualBasic中的注釋是“Rem”或一個(gè)撇號(hào)“’”一、注釋語句例:A=5:b=6:c=7 ‘對(duì)變量a、b、c賦值Stop語句用來暫停程序的執(zhí)行二、暫停語句（Stop）第三章VB程序控制結(jié)構(gòu)（3）在格式（1）中，While和Until放在循環(huán)的末尾，分別叫做Do……LoopWhile和Do……LoopUntil循環(huán)，它們的邏輯流程分別如圖所示。第三章VB程序控制結(jié)構(gòu)在VisualBasic中，這樣的問題通過選擇結(jié)構(gòu)程序來解決，而選擇結(jié)構(gòu)通過條件語句來實(shí)現(xiàn)。第三章VB程序控制結(jié)構(gòu)3While…Wend循環(huán)結(jié)構(gòu)否則執(zhí)行一次“循環(huán)體”，然后把“循環(huán)變量+步長”的值賦給“循環(huán)變量”，重復(fù)上述過程。[Case表達(dá)式表列2第三章VB程序控制結(jié)構(gòu)（4）在格式2中，While和Until放在循環(huán)的開頭，即緊跟在關(guān)鍵字Do之后，組成兩種循環(huán)，分別叫做DoWhile……Loop循環(huán)和DoUntil……Loop循環(huán)，它們的執(zhí)行過程分別如圖所示。End語句通常用來結(jié)束一個(gè)程序的執(zhí)行。（2）Do和Loop構(gòu)成了Do循環(huán)。Is關(guān)系運(yùn)算表達(dá)式，使用的運(yùn)算符包括：<<=>>=<>=（3）title：是一個(gè)字符串，用來顯示對(duì)話框的標(biāo)題。For-Next循環(huán)的邏輯流程（5）MsgBox函數(shù)的返回值是一個(gè)整數(shù)，這個(gè)整數(shù)與所選擇的按鈕有關(guān)。顯示“終止”、“重試”及“忽略”按鈕Format$(數(shù)值表達(dá)式，格式字符串)End語句除用來結(jié)束程序外，在不同的環(huán)境下還有其他一些用途，包括：End語句通常用來結(jié)束一個(gè)程序的執(zhí)行?？梢园阉旁谑录^程中。三、結(jié)束語句（End）EndSub 結(jié)束一個(gè)Sub過程EndFunction 結(jié)束一個(gè)Function過程EndIf 結(jié)束一個(gè)If語句塊EndType 結(jié)束記錄類型的定義EndSelect 結(jié)束情況語句第三章VB程序控制結(jié)構(gòu)3.2選擇結(jié)構(gòu)格式如下：If條件Thenthen部分[Elseelse部分]當(dāng)Then部分或Else部分含有多個(gè)語句時(shí)，各語句之間用冒號(hào)隔開3.2.1單行結(jié)構(gòu)條件語句在日常生活中，常常需要對(duì)給定的條件進(jìn)行分析、比較和判斷，并根據(jù)判斷結(jié)果采取不同的操作。在VisualBasic中，這樣的問題通過選擇結(jié)構(gòu)程序來解決，而選擇結(jié)構(gòu)通過條件語句來實(shí)現(xiàn)。條件語句也稱If語句，它有兩種格式，一種是單行結(jié)構(gòu)，一種是塊結(jié)構(gòu)。語句的功能是：如果“條件”為True，則執(zhí)行“then部分”，否則執(zhí)行“else部分”。第三章VB程序控制結(jié)構(gòu)如果用戶不想用這個(gè)默認(rèn)字符串作為輸入值，則可在輸入?yún)^(qū)直接鍵入數(shù)據(jù)，以取代默認(rèn)值；[Case表達(dá)式表列2如果“條件”為False，則不執(zhí)行“語句塊”,而執(zhí)行Wend后面的語句。If條件1Then第三章VB程序控制結(jié)構(gòu)2、多分支控制結(jié)構(gòu)程序設(shè)計(jì)；SelectCase測(cè)試表達(dá)式如果找到了，則執(zhí)行與該Case子句有關(guān)的語句塊，并把控制轉(zhuǎn)移到EndSelect后面的語句；（3）在格式（1）中，While和Until放在循環(huán)的末尾，分別叫做Do……LoopWhile和Do……LoopUntil循環(huán)，它們的邏輯流程分別如圖所示。Format$(數(shù)值表達(dá)式，格式字符串)（2）情況語句的執(zhí)行過程是：先對(duì)“測(cè)試表達(dá)式”求值，然后測(cè)試該值與哪一個(gè)Case子句中的“表達(dá)式序列”相匹配；3、掌握循環(huán)控制結(jié)構(gòu)程序設(shè)計(jì)方法；③表達(dá)式表列1、表達(dá)式表列2……：稱為域值，可以是下列形式之一：3.2.2塊結(jié)構(gòu)條件語句一般格式如下：If條件1Then 語句塊1[ElseIf條件2Then 語句塊2][ElseIf條件3Then 語句塊3]……[Else語句塊n]EndIf第三章VB程序控制結(jié)構(gòu)（1）塊結(jié)構(gòu)條件語句中的ElseIf子句和Else子句都是可選的說明：（2）“語句塊”可以是一個(gè)語句，也可以是多個(gè)語句。有多個(gè)語句時(shí)，可以分別寫在多行里；如果寫在一行中，則各語句之間用冒號(hào)隔開（4）塊形式條件語句的執(zhí)行過程是：先測(cè)試“條件1”，如果該條件為True，則執(zhí)行Then后面的“語句塊”；如果“條件1”為Flase，則順序測(cè)試每個(gè)ElseIf子句中的“條件”，當(dāng)發(fā)現(xiàn)某個(gè)“條件”為True時(shí)，就執(zhí)行與其相關(guān)的Then后面的“語句塊”；如果所有ElseIf子句的“條件”都不為True，則執(zhí)行Else后面的“語句塊n”。在執(zhí)行了Then或Else后面的語句塊之后，程序退出塊結(jié)構(gòu)條件語句，繼續(xù)執(zhí)行EndIf后面的語句。（5）“語句塊”中的語句不能與其前面的Then在同一行上，如果在同一行上，則為單行結(jié)構(gòu)，否則為塊結(jié)構(gòu)。對(duì)于塊結(jié)構(gòu)，必須以EndIf結(jié)束，單行結(jié)構(gòu)沒有EndIf。（3）ElseIf子句的數(shù)量沒有限制，可以根據(jù)需要加入任意多個(gè)ElseIf子句。第三章VB程序控制結(jié)構(gòu)3.2.3多分支選擇語句多分支選擇語句即情況語句也稱SelectCase語句或Case語句，它根據(jù)一個(gè)表達(dá)式的值，在一組相互獨(dú)立的可選語句序列中挑選要執(zhí)行的語句序列。SelectCase測(cè)試表達(dá)式 Case表達(dá)式表列1 語句塊1 [Case表達(dá)式表列2 [語句塊2]] …… [CaseElse [語句塊n]]EndSelect情況語句的一般格式為：第三章VB程序控制結(jié)構(gòu)（1）情況語句中含有多個(gè)參量，這些參量的含義分別為：①測(cè)試表達(dá)式：可以是數(shù)值表達(dá)式或字符串表達(dá)式，通常為變量或常量。②語句塊1、語句塊2……：每個(gè)語句塊由一行或多行合法的語句組成。③表達(dá)式表列1、表達(dá)式表列2……：稱為域值，可以是下列形式之一：表達(dá)式[,表達(dá)式]……表達(dá)式To表達(dá)式Is關(guān)系運(yùn)算表達(dá)式，使用的運(yùn)算符包括：<<=>>=<>=說明：例如： Case2,4,6,8例如： Case1To5例如： CaseIs=12 CaseIs<a+b（2）情況語句的執(zhí)行過程是：先對(duì)“測(cè)試表達(dá)式”求值，然后測(cè)試該值與哪一個(gè)Case子句中的“表達(dá)式序列”相匹配；如果找到了，則執(zhí)行與該Case子句有關(guān)的語句塊，并把控制轉(zhuǎn)移到EndSelect后面的語句；如果沒找到，則執(zhí)行與CaseElse子句有關(guān)的語句塊，然后把控制轉(zhuǎn)移到EndSelect后面的語句第三章VB程序控制結(jié)構(gòu)3.3循環(huán)結(jié)構(gòu)一般格式如下：For循環(huán)變量=初值To終值勤[Step步長] [循環(huán)體] [Exitfor]Next[循環(huán)變量][,循環(huán)變量]……For循環(huán)語句的執(zhí)行過程是：首先把“初值”賦給“循環(huán)變量”，接著檢查“循環(huán)變量”的值是否超過終值，如果超過就停止執(zhí)行“循環(huán)體”，跳出循環(huán)，執(zhí)行Next后面的語句；否則執(zhí)行一次“循環(huán)體”，然后把“循環(huán)變量+步長”的值賦給“循環(huán)變量”，重復(fù)上述過程。3.3.1For…Next循環(huán)結(jié)構(gòu)第三章VB程序控制結(jié)構(gòu)（1）格式中有多個(gè)參量，這些參量的含義如下：循環(huán)變量：亦稱“循環(huán)控制變量”、“控制變量”或“循環(huán)計(jì)數(shù)器”初值：循環(huán)變量的初值，它是一個(gè)數(shù)值表達(dá)式。終值：循環(huán)變量的終值，它也是一個(gè)數(shù)值表達(dá)式。步長：循環(huán)變量的增量，是一個(gè)數(shù)值表達(dá)式。其值可以是正數(shù)（遞增循環(huán)）或負(fù)數(shù)（遞減循環(huán)），但不能為0。如果步長為1，則可略去不寫。循環(huán)體：在For語句和Next語句之間的語句序列，可以是一個(gè)或多個(gè)語句。ExitFor：退出循環(huán)。Next：循環(huán)終端語句，在Next后面的“循環(huán)變量”與For語句中的“循環(huán)變量”必須相同。說明：（2）For-Next循環(huán)可以嵌套使用，嵌套層數(shù)沒有具體限制（3）For語句和Next語句必須成對(duì)出現(xiàn)，不能單獨(dú)使用，且For語句必須在Next語句之前。第三章VB程序控制結(jié)構(gòu)開始循環(huán)變量=初值循環(huán)變量>(或<)終值？執(zhí)行循環(huán)體循環(huán)變量=循環(huán)變量+步長結(jié)束YesNoFor-Next循環(huán)的邏輯流程第三章VB程序控制結(jié)構(gòu)3.3.2Do…Loop循環(huán)結(jié)構(gòu)Do循環(huán)的格式如下：（1）Do [語句塊] [ExitDo] Loop[While|Until循環(huán)條件]（2）Do[While|Until循環(huán)條件] [語句塊] [ExitDo] LoopDo循環(huán)語句的功能是：當(dāng)指定的“循環(huán)條件”為True或直到指定的“循環(huán)條件”變?yōu)門rue之前重復(fù)執(zhí)行一組語句（即循環(huán)體）。第三章VB程序控制結(jié)構(gòu)說明：（1）Do、Loop、While、Until都是關(guān)鍵字?！罢Z句塊”是需要重復(fù)執(zhí)行的一個(gè)或多個(gè)語句，即循環(huán)體。“循環(huán)條件”是一個(gè)邏輯表達(dá)式。（2）Do和Loop構(gòu)成了Do循環(huán)。當(dāng)只有這兩個(gè)關(guān)鍵字時(shí)，其格式簡(jiǎn)化為： Do [語句塊] Loop在這種情況下，程序?qū)⒉煌５貓?zhí)行Do和Loop之間的“語句塊”。為了使程序按指定的次數(shù)執(zhí)行循環(huán)，必須使用可選的關(guān)鍵字While或Until以及ExitDo。While是當(dāng)條件為True時(shí)執(zhí)行循環(huán)，而Until則是在條件變?yōu)門rue之前重復(fù)。（3）在格式（1）中，While和Until放在循環(huán)的末尾，分別叫做Do……LoopWhile和Do……LoopUntil循環(huán)，它們的邏輯流程分別如圖所示。第三章VB程序控制結(jié)構(gòu)開始執(zhí)行循環(huán)體循環(huán)變量>(或<)終值？計(jì)算“條件”值結(jié)束YesNoDo……LoopWhile循環(huán)邏輯框圖第三章VB程序控制結(jié)構(gòu)開始執(zhí)行循環(huán)體循環(huán)變量>(或<)終值？計(jì)算“條件”值結(jié)束NoYesDo……LoopUntil循環(huán)邏輯框圖第三章VB程序控制結(jié)構(gòu)（4）在格式2中，While和Until放在循環(huán)的開頭，即緊跟在關(guān)鍵字Do之后，組成兩種循環(huán)，分別叫做DoWhile……Loop循環(huán)和DoUntil……Loop循環(huán)，它們的執(zhí)行過程分別如圖所示。開始計(jì)算“條件”值條件為真嗎？執(zhí)行循環(huán)體結(jié)束NoYesDoWhile……Loop循環(huán)邏輯框圖第三章VB程序控制結(jié)構(gòu)ExitFor：退出循環(huán)。SelectCase測(cè)試表達(dá)式執(zhí)行上面的語句，顯示的信息如圖所示。如果想按自己的要求換行，則須插入回車換行操作，即：Chr$(13)+Chr$(10)“循環(huán)條件”是一個(gè)邏輯表達(dá)式。2數(shù)據(jù)輸入和輸出VisualBasic中的注釋是“Rem”或一個(gè)撇號(hào)“’”（3）在格式（1）中，While和Until放在循環(huán)的末尾，分別叫做Do……LoopWhile和Do……LoopUntil循環(huán)，它們的邏輯流程分別如圖所示。（4）在格式2中，While和Until放在循環(huán)的開頭，即緊跟在關(guān)鍵字Do之后，組成兩種循環(huán)，分別叫做DoWhile……Loop循環(huán)和DoUntil……Loop循環(huán)，它們的執(zhí)行過程分別如圖所示。（1）Prompt：是一個(gè)字符串，其長度不得超過1024個(gè)字符，它是在對(duì)