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

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

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

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

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

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

?；顒尤帉懗绦虼a（selectcase語句）PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>=1000p=m*0.2EndSelectText2.Text=pEndSub對比，哪個程序語句少，效率高？PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>1000p=m*0.2EndSelectText2.Text=pEndSubIF語句selectcase語句√PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm>=200Andm<500Thenp=m*0.1ElseIfm>=500Andm<1000Thenp=m*0.15Elsep=m*0.2EndIfEndIfEndIfText2.Text=pEndSub學生成績分等級(5:ABCDF)成績（score）等級（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ù)錯誤"EndSelectText2.Text=gEndSub初級的程序完善的程序布置作業(yè)練習1：火車站寄存行李的收費標準是50千克以內(nèi)（包括50千克）0.2元/千克，超過部分收費標準為0.5元/千克。編寫程序，根據(jù)輸入的任意重量計算應付的行李費。程序代碼如下，窗體內(nèi)容自已修改PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<=50Thenp=m*0.2Elsep=50*0.2+(m-50)*0.5EndIfText2.Text=pEndSub練習3、

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

種情況兩練習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為邏輯運算符練習4:編寫一個判斷某年是否為閏年的程序提示：判斷某年是否為閏年的方法---如果該年的數(shù)值能被4整除但不能被100整除，或者能被400整除則該年份是閏年。老百姓常說的,四年一閏,百年不閏,四百年再閏程序