選擇結(jié)構(gòu)-“江南聯(lián)賽”一等獎

華漁杯多媒體課件比賽華漁杯多媒體課件華漁杯多媒體課件算法與程序設計選擇結(jié)構(gòu)選擇結(jié)構(gòu)算法與程序設計之——創(chuàng)設情境合作探究學以致用鞏固新知小結(jié)創(chuàng)設情境Ifyoudoexercisethenyouarehealthy.Ifyoudoexercisethenyouarehealthyelseyouwillweak.朗讀并翻譯：引入新課合作探究構(gòu)建新知第一部分→→→活動三活動二活動一用IF語句實現(xiàn)簡單選擇結(jié)構(gòu)某書城在進行促銷活動，凡購書滿200元，可以去服務臺領取相當于購書金額10%的購書券，供下次購買，購書券最小面值1元?，F(xiàn)需要為服務臺的工作人員編寫一個程序，計算每次發(fā)放購書券的金額。問題設m表示某人的購書金額，p表示需要發(fā)放的購書券金額。分析問題求解的條件是如果（），則（

）；否則（）。分析問題m>=200p=10%mP=00101開始輸入購書金額mM>=200輸出購書券金額p結(jié)束開始輸入購書金額m開始M>=200輸出購書券金額p結(jié)束輸入購書金額m開

始否是P=10%mP=0設計算法02實現(xiàn)應用程序→1）創(chuàng)建窗體創(chuàng)建窗體03Label1Label2Text1Text2Command1程序代碼PrivateSubCommand1_Click()DimmAs_____________DimpAs______________m=Val(Text1.Text)Ifm>=200Thenp=_____________Elsep=_____________EndIf______________EndSubSingleIntegerm*0.10Text2.Text=p實現(xiàn)應用程序→2）程序代碼03運行調(diào)試程序0432532運行調(diào)試程序041250小結(jié)IF語句的格式1If條件Then

語句塊1Else

語句塊2EndIf功能當條件成立時，則執(zhí)行語句塊1，條件不成立時，執(zhí)行Else分支下的語句塊2。第二部分學以致用回歸生活→→練習2練習101編寫程序

火車站寄存行李的收費標準是50千克以內(nèi)（包括50千克）0.2元/千克，超過部分的收費標準為0.5元/千克。編寫程序，根據(jù)輸入的任意重量，計算出應付的行李費。程序代碼PrivateSubCommand1_Click()DimaAsDoubleDimbAsDoublea=Val(Text1.Text)Ifa>=50Thenb=(a-50)*0.5+50*0.2Elseb=a*0.2EndIfb=Format(b,"0.00")Text2.Text=Str(b)EndSub舉一反三剛才那個程序還適用于生活中的哪些事例？02書城的促銷活動方案進行了修改，購書未滿200元的，贈送5元購書券；購書滿200元但未滿500元，贈送購書券為消費金額的5%；購書滿500元但未滿1000元，贈送購書券金額為消費金額的10%；購書滿1000元，贈送購書券金額為消費金額的15%。購書券最小面值1元。根據(jù)新的促銷方案修改活動一的程序。用IF語句的嵌套實現(xiàn)多重選擇結(jié)構(gòu)問題01分析問題序號No.消費金額范圍購書券金額計算情況1

情況2

情況3情況4

寫出不同的求解條件和相應的處理，完成上表?！洞黉N活動方案表》01分析問題序號No.消費金額范圍購書券金額計算情況1

m<200p=5

情況2

200<=m<500p=m*0.05

情況3500<=m<1000p=m*0.1

情況4

m>=1000

p=m*0.15

寫出不同的求解條件和相應的處理，完成上表?！洞黉N活動方案表》設計算法02m<200m<500m<1000p=5p=m*0.15p=m*0.05p=m*0.1是是是否否否流程圖活動一的程序代碼PrivateSubCommand1_Click()DimmAsSingle,pAsIntegerm=Val(Text1.Text)Ifm>=200Thenp=m*0.1Elsep=0EndIfText2.Text=pEndSub實現(xiàn)應用程序→修改活動一的程序代碼03Ifm<200Thenp=5ElseIfm<500Thenp=m*0.05ElseIfm<1000Thenp=m*0.1Elsep=m*0.15EndIfEndIfEndIf實現(xiàn)應用程序→修改活動一的程序代碼03修改后的程序代碼

Ifm>=200Thenp=m*0.1Elsep=0EndIf運行調(diào)試程序041505運行調(diào)試程序0420010運行調(diào)試程序0435518運行調(diào)試程序0450050運行調(diào)試程序0478378運行調(diào)試程序041000150運行調(diào)試程序041748262小結(jié)IF語句的格式2

If條件1

ThenIf條件2Then

語句塊1Else

語句塊2EndIfElseIf條件3

Then語句塊3Else

語句塊4EndIfEndIf功能當條件1成立，且當條件2也成立時，則執(zhí)行語句塊1，否則執(zhí)行語句2；當條件1不成立，且當條件3成立時，執(zhí)行語句塊3，否則執(zhí)行語句塊4。使用多重選擇語句實現(xiàn)活動二的程序活動二的程序中使用了三個If語句的嵌套來處理四種情況，如果再多幾種情況，程序的可讀性和效率都會比較差。VB中還提供了一種多重選擇語句，利用它也可以方便地實現(xiàn)上一程序。閱讀程序PrivateSubCommand1_Click()DimmAsSingle,pAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200to499.9p=m*0.05Case500to999.9p=m*0.1CaseIs>=1000p=m*0.15EndSelectText2.Text=pEndSubSelectCasemCaseIs<200p=5Case200to499.9p=m*0.05Case500to999.9p=m*0.1CaseIs>=1000p=m*0.15EndSelect使用多重選擇語句實現(xiàn)活動二的程序01運行調(diào)試程序02第三部分鞏固新知完善程序→→判斷閏年求三個數(shù)的最大數(shù)01輸入三個數(shù)a、b、c，輸出最大數(shù)。Ifa>=bThenIfa>=cThenmax=aElsemax=cEndIfElseIfb>=cThenmax=bElsemax=cEndIfEndIf02編寫一個判斷某年是否為閏年的程序PrivateSubCommand1_Click()DimaAsInteger,b