VisualBasic控制結(jié)構(gòu)

《VisualBasic控制結(jié)構(gòu)》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第7章VisualBasic控制結(jié)構(gòu)主講教師：劉瀟（計(jì)科系）聯(lián)系電話：13623174925QQ：421877450E-mail：liuxiao528@163.com本章討論VisualBasic中除順序結(jié)構(gòu)之外的流程控制語句，包括選擇結(jié)構(gòu)、多分支結(jié)構(gòu)及循環(huán)結(jié)構(gòu)語句。目錄7.1選擇控制結(jié)構(gòu)多分支控制結(jié)構(gòu)7.2For循環(huán)控制結(jié)構(gòu)7.3當(dāng)循環(huán)控制結(jié)構(gòu)7.47.5Do循環(huán)控制結(jié)構(gòu)多重循環(huán)7.6GoTo型控制7.77.1選擇控制結(jié)構(gòu)If...Then語句格式：If條件Then語句或If條件Then語句塊EndIf功能：如果條件成立（值為真），則執(zhí)行Then后面的語句或語句塊，否則直接執(zhí)行下一條

2、語句或“EndIf”的下一條語句。7.1選擇控制結(jié)構(gòu)編寫一段代碼實(shí)現(xiàn)：單擊窗體，在彈出的輸入對話框中輸入成績（CJ）數(shù)值，當(dāng)成績（CJ<60時(shí)），顯示“成績不及格”，換行顯示“請參加補(bǔ)考”。PrivateSubForm_Click()CJ=Val(InputBox("請輸入成績數(shù)值：","成績判斷"))IfCJ<60ThenPrint"成績不及格"Print"請參加補(bǔ)考"EndIfEndSub7.1選擇控制結(jié)構(gòu)If...Then...Else語句格式：If條件Then語句塊1（A）Else語句塊2（B）EndIf功能：首先測試條件，當(dāng)條件成立時(shí)，執(zhí)行語句塊1；當(dāng)條件不成立時(shí)，執(zhí)行語句塊

3、2。執(zhí)行完語句塊2之后，執(zhí)行“EndIf”之后的語句。7.1選擇控制結(jié)構(gòu)輸入三個(gè)數(shù)：a、b、c，求出其中最大數(shù)。PrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,mAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa

4、“True部分”，而當(dāng)“條件”為假時(shí)返回“False部分”。例如：將a、b中的小數(shù)，放在Min變量中。Min=IIf(a

5、fscore<0ThenLabel2.Caption="成績出錯(cuò)"ElseIfscore<60ThenLabel2.Caption=temp+"不及格"ElseIfscore<=79ThenLabel2.Caption=temp+"及格"ElseIfscore<=100ThenLabel2.Caption=temp+"優(yōu)良"ElseLabel2.Caption="成績出錯(cuò)"EndIfEndSub7.2多分支控制結(jié)構(gòu)SelectCase語句格式：SelectCase　測試表達(dá)式Case　表達(dá)式表列1[語句塊1][Case表達(dá)式表列2[語句塊2]]......[CaseElse[語句塊n]

6、]EndSelect功能：先計(jì)算表達(dá)式的值，然后將該值依次與結(jié)構(gòu)中的每個(gè)Case值進(jìn)行比較，如果該值符合某個(gè)Case指定的值條件時(shí)，就執(zhí)行該Case的語句塊，然后跳到EndSelect，從EndSelect出口。如果沒有相符合的Case值，則執(zhí)行CaseElse中的語句塊。三種寫法：Case1,3,5Case60To80CaseIs<507.2多分支控制結(jié)構(gòu)輸入學(xué)生成績（百分制），判斷該成績的等級（優(yōu)良、及格、不及格）PrivateSubCommand1_Click()DimscoreAsInteger,tempAsStringscore=Val(Text1.Text)temp="成績

7、等級為："SelectCasescoreCase0to59Label2.Caption=temp+"不及格"Case60to79Label2.Caption=temp+"及格"Case80to100Label2.Caption=temp+"優(yōu)良"CaseElseLabel2.Caption="成績出錯(cuò)"EndSelectEndSub7.2多分支控制結(jié)構(gòu)輸入兩個(gè)運(yùn)算數(shù)和運(yùn)算符（+、-、*、/），組成算式并計(jì)算結(jié)果，然后顯示出來。PrivateSu