VB語(yǔ)言之選擇結(jié)構(gòu) 第三節(jié)

第三節(jié)選擇結(jié)構(gòu)

(selectionstructure)算法與程序設(shè)計(jì)之會(huì)同一中

學(xué)習(xí)內(nèi)容1、用if語(yǔ)句實(shí)現(xiàn)簡(jiǎn)單選擇結(jié)構(gòu)2、用if語(yǔ)句的嵌套實(shí)現(xiàn)多重選擇結(jié)構(gòu)3、使用多重選擇語(yǔ)句實(shí)現(xiàn)活動(dòng)二的程序用if語(yǔ)句實(shí)現(xiàn)簡(jiǎn)單選擇結(jié)構(gòu)

問題：某書城在進(jìn)行促銷活動(dòng)，凡購(gòu)書滿200元，可以去服務(wù)臺(tái)領(lǐng)取相當(dāng)于購(gòu)書金額10%的購(gòu)書券，供下次購(gòu)書使用，購(gòu)書券最小面值1元?，F(xiàn)需要為服務(wù)臺(tái)的工作人員編寫一個(gè)程序，計(jì)算每次發(fā)放購(gòu)書券的金額。1、分析問題設(shè)m表示某人的購(gòu)書金額，p表示需要發(fā)放的購(gòu)書券金額。求解的條件是如果則，否則

m>=200P=10%P=0活動(dòng)一2、設(shè)計(jì)算法，依據(jù)問題分析，將流程圖補(bǔ)充完整(下頁(yè))書店促銷活動(dòng)方案---------程序流程圖開始結(jié)束m>=200是否輸入購(gòu)書金額m輸出購(gòu)書券金額p贈(zèng)送購(gòu)書券=？不送贈(zèng)品=02、設(shè)計(jì)算法常用的If語(yǔ)句（三種形式）If語(yǔ)句是幾乎所有的高級(jí)編程語(yǔ)言中普遍使用的選擇結(jié)構(gòu)語(yǔ)句，程序可以通過If語(yǔ)句來完成對(duì)條件的判斷、選擇。（1）簡(jiǎn)單If語(yǔ)句格式：If條件Then語(yǔ)句塊EndIf簡(jiǎn)單If語(yǔ)句只包含一個(gè)分支，如果條件成立，則執(zhí)行Then下面的語(yǔ)句塊；如果條件不成立，就什么都不執(zhí)行。（2）If/Then/Else語(yǔ)句格式：If條件Then語(yǔ)句塊1Else語(yǔ)句塊2EndIfIf/Then/Else語(yǔ)句包含兩個(gè)分支，當(dāng)條件成立時(shí)，執(zhí)行Then分支后面的語(yǔ)句塊1；當(dāng)條件不成立時(shí)，執(zhí)行Else分支后面的語(yǔ)句塊2.（3）If語(yǔ)句的嵌套是指在一個(gè)If語(yǔ)句中又包含一個(gè)或多個(gè)If語(yǔ)句。編寫程序代碼PrivateSubCommand1_Click()DimmAsDimpAsm=Val(Text1.Text)Ifm>=200Thenp=Elsep=EndIfEndSubSingleIntegerm*0.10Text2.Text=p注：m為購(gòu)書的金額注：p為送的購(gòu)書券將贈(zèng)送購(gòu)書券的值傳給TEXT2文本框內(nèi)送多少購(gòu)書券不送購(gòu)書券活動(dòng)二：新的促銷方案消費(fèi)金額范圍購(gòu)書券金額計(jì)算情況1m<200p=5情況2情況3情況4200<m<500500<m<1000p=m*0.1p=m*0.15m>=1000p=m*0.2開始結(jié)束m<200是輸入購(gòu)書金額m否否否是是p=5p=m*0.2輸出p200<m<500p=m*0.1500<m<1000p=m*0.15程序代碼（用IF語(yǔ)句的嵌套實(shí)現(xiàn)多重選擇）PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm>=200Andm<500Thenp=m*0.1ElseIfm>=500Andm<1000Thenp=m*0.15Elsep=m*0.2EndIfEndIfEndIfText2.Text=pEndSub該程序使用了3個(gè)IF語(yǔ)句嵌套來處理四種情況，如果再多幾種情況，程序的可讀性和效率都會(huì)比較差。VB中還提供了一種多重選擇語(yǔ)句(selectcase)，利用它可以方便地實(shí)現(xiàn)同一程序。使用多重選擇語(yǔ)句實(shí)現(xiàn)活動(dòng)二的程序活動(dòng)二的程序中使用了三個(gè)If語(yǔ)句的嵌套來處理四種情況，如果再多幾種情況，程序的可讀性和效率都會(huì)比較差。VB中還提供了一種多重選擇語(yǔ)句，利用它可以方便地實(shí)現(xiàn)上一程序。在VB中，設(shè)置了一個(gè)處理多重情況的語(yǔ)句，即多重選擇語(yǔ)句。多重選擇語(yǔ)句的執(zhí)行過程是：當(dāng)表達(dá)式的值滿足某Case語(yǔ)句的表達(dá)式范圍，則執(zhí)行該語(yǔ)句后的語(yǔ)句組。例如，本程序中當(dāng)m<200時(shí)，執(zhí)行p=5；當(dāng)200<=m<=499.99時(shí)，執(zhí)行p=m*0.1，當(dāng)500<=m<=999.99時(shí)，執(zhí)行p=m*0.15，當(dāng)m>=1000時(shí)，執(zhí)行p=m*0.2

?；顒?dòng)三編寫程序代碼（selectcase語(yǔ)句）PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>=1000p=m*0.2EndSelectText2.Text=pEndSub對(duì)比，哪個(gè)程序語(yǔ)句少，效率高？PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>1000p=m*0.2EndSelectText2.Text=pEndSubIF語(yǔ)句selectcase語(yǔ)句√PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm>=200Andm<500Thenp=m*0.1ElseIfm>=500Andm<1000Thenp=m*0.15Elsep=m*0.2EndIfEndIfEndIfText2.Text=pEndSub學(xué)生成績(jī)分等級(jí)(5:ABCDF)成績(jī)（score）等級(jí)（grade）case1S>=90Acase280=<S<89.9Bcase370=<S<79.9Ccase460=<S<69.9Dcase5S<60F程序代碼如下PrivateSubCommand1_Click()DimsAsSingleDimgAsStrings=Val(Text1.Text)SelectCasesCaseIs>=90g="A"Case80To89.9g="B"Case70To79.9g="C"Case60To69.9g="D"CaseIs<60g="F"EndSelectText2.Text=gEndSubPrivateSubCommand1_Click()DimsAsSingleDimgAsStrings=Val(Text1.Text)SelectCasesCaseIs>=90g="A"Case80To89.9g="B"Case70To79.9g="C"Case60To69.9g="D"Case0To59.9g="F"CaseElseg="數(shù)據(jù)錯(cuò)誤"EndSelectText2.Text=gEndSub初級(jí)的程序完善的程序布置作業(yè)練習(xí)1：火車站寄存行李的收費(fèi)標(biāo)準(zhǔn)是50千克以內(nèi)（包括50千克）0.2元/千克，超過部分收費(fèi)標(biāo)準(zhǔn)為0.5元/千克。編寫程序，根據(jù)輸入的任意重量計(jì)算應(yīng)付的行李費(fèi)。程序代碼如下，窗體內(nèi)容自已修改PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<=50Thenp=m*0.2Elsep=50*0.2+(m-50)*0.5EndIfText2.Text=pEndSub練習(xí)3、

給定三角形的三條邊長(zhǎng)，計(jì)算三角形的面積提示：首先判斷給出三條邊能否構(gòu)成三角形（三角形的兩邊之和大于第三邊），如可以，則計(jì)算面積，否則輸出“不能構(gòu)成三角形”。設(shè)三角形三邊為a、b、c，q=，則面積S=求平方根數(shù)學(xué)函數(shù)：Sqr(x)可能出現(xiàn)的

種情況兩練習(xí)3程序代碼PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimqAsSingleDimSAsStringa=Text1.Textb=Text2.Textc=Text3.TextIfa+b>cAnda+c>bAndb+c>aThenq=(a+b+c)/2S=Sqr(q*(q-a)*(q-b)*(q-c))ElseS="不能構(gòu)成三角形"EndIfText4.Text=SEndSub面積S為何要定義成字條符形變量？

And為邏輯運(yùn)算符練習(xí)4:編寫一個(gè)判斷某年是否為閏年的程序提示：判斷某年是否為閏年的方法---如果該年的數(shù)值能被4整除但不能被100整除，或者能被400整除則該年份是閏年。老百姓常說的,四年一閏,百年不閏,四百年再閏程序