欢迎来到天天文库
浏览记录
ID:48705131
大小:124.00 KB
页数:16页
时间:2020-01-26
《活动三使用多重选择语句实现活动二的程序.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第二章选择(分支)结构语句单行选择结构语句If…Then…Else…块结构选择语句If…else…EndIf多分支选择结构语句一、If选择结构语句1、单行选择结构的If……Then……[Else……]格式1:功能:如果<条件>成立,则执行<语句1>,否则执行<语句2>。以上语句又统称为条件语句,其功能都是根据条件或表达式的值有选择地执行一组语句。<条件>可以是关系表达式、逻辑表达式、数值表达式或字符串表达式。对于数值表达式,VB将0作为False、非0作为True处理;<语句1>和<语句2>可以是多条语句,各语句之间用冒号(:)隔
2、开。单行If语句必须在一行内写完。If<条件>Then<语句1>[Else<语句2>]单行选择结构语句的功能(从流程图角度看)单行选择结构流程图或条件语句1语句2YN条件语句1YNIF条件Then语句1[else语句2]2、块结构双分支结构语句If…else…Endif语句TF语句组2条件表达式语句组1If...Then...Else结构流程图功能:如果<条件>成立,则执行<语句组1>,否则执行<语句组2>。格式1:If<条件>Then<语句组1>[Else<语句组2>]ENDIf3、多分支条件语句(嵌套)If…Then…Else
3、If语句格式:If<条件1>Then[<语句组1>]ElseIf<条件2>Then[<语句组2>]…Elself<条件N>Then[<语句组n>][Else[<其他语句组>]]EndIf功能:实现多分支选择条件1语句组1条件2语句组2条件n语句组n语句组n+1…NYYYIf<条件1>ThenIf<条件>ThenIf<条件>Then…………ElseEndIfIf<条件>ThenElse…………EndIfEndIfEndIf二、多分支选择结构语句(If语句的嵌套)If语句的嵌套指的是在If或Else后的语句体中又包含If语句。If<条
4、件>ThenElseENDIf<语句体1><语句体2>例如:IFX>0THENY=1ELSEIFX=0THENY=0ELSEY=-1ENDIFENDIF又包含if语句功能:实现多分支选择功能流程图:条件1语句组1条件2语句组2条件n语句组n语句组n+1…NYYYNN[例2-8]某书店为了促销,采用购书打折扣的销售办法,每位顾客一次购书:在100元以上200元以下者,按九折优惠;在200元及以上300元以下者,按八五折优惠;在300元及以上者,按八折优惠;编写程序,输入购书款数,计算输出优惠价。Y=分析:设购书款数为X元,优惠价为Y
5、元,则:X(X ≤ 100)0.9*X(1006、fEndIfEndIfText2.Text=YEndSub二、多分支选择结构语句(SelectCase)格式:SelectCase<测试表达式>Case表达式范围1<语句块1>Case表达式范围2<语句块2>……Case表达式范围n<语句块n>[CaseElse<语句块n+1>]EndSelect功能:根据<测试表达式>的值,按顺序匹配Case后的表达式范围,如果匹配成功,则执行该Case下的语句组,然后转到EndSelect语句之后继续执行;如果<测试表达式>的值与各表达式范围都不匹配,则执行CaseElse之后的<语句组n+17、>,再转到EndSelect语句之后继续执行。<测试表达式>可以是任何数值表达式或字符表达式,case后的“表达式范围”有三种形式:1)<表达式1>[,<表达式2>]…如:Casel,3,5(值的罗列)2)<表达式1>TO<表达式2>如:Casel0TO30(一段范围)Case“A”TO“Z”3)Is<关系运算符><表达式>如:CaseIs>=10(关系表达式)以上三种方式可以同时出现在同一个Case语句之后,各项之间用逗号隔开。如:Casel,3,10T020,Is<0PrivateSubCommand1_Click()DimX8、ASSingle,YASSingleX=Val(Text1.Text)SelectCaseXCaseIs<=100Y=XCaseIs<200Y=0.9*XCaseIs<300Y=0.85*XCaseElseY=0.8*XEndSelectText2
6、fEndIfEndIfText2.Text=YEndSub二、多分支选择结构语句(SelectCase)格式:SelectCase<测试表达式>Case表达式范围1<语句块1>Case表达式范围2<语句块2>……Case表达式范围n<语句块n>[CaseElse<语句块n+1>]EndSelect功能:根据<测试表达式>的值,按顺序匹配Case后的表达式范围,如果匹配成功,则执行该Case下的语句组,然后转到EndSelect语句之后继续执行;如果<测试表达式>的值与各表达式范围都不匹配,则执行CaseElse之后的<语句组n+1
7、>,再转到EndSelect语句之后继续执行。<测试表达式>可以是任何数值表达式或字符表达式,case后的“表达式范围”有三种形式:1)<表达式1>[,<表达式2>]…如:Casel,3,5(值的罗列)2)<表达式1>TO<表达式2>如:Casel0TO30(一段范围)Case“A”TO“Z”3)Is<关系运算符><表达式>如:CaseIs>=10(关系表达式)以上三种方式可以同时出现在同一个Case语句之后,各项之间用逗号隔开。如:Casel,3,10T020,Is<0PrivateSubCommand1_Click()DimX
8、ASSingle,YASSingleX=Val(Text1.Text)SelectCaseXCaseIs<=100Y=XCaseIs<200Y=0.9*XCaseIs<300Y=0.85*XCaseElseY=0.8*XEndSelectText2
此文档下载收益归作者所有