《用if语句的嵌套实现多重选择结构.pdf》由会员分享，可在线阅读，更多相关《用if语句的嵌套实现多重选择结构.pdf（2页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、用用 ifif 语句的嵌套实现多重选择结构语句的嵌套实现多重选择结构书城的促销活动方案进行了修改，购书未满 200 元的，赠送 5 元购书券；购书满 200 元但未满 500 元。赠送购书券为消费金额的 5：购书满 500 元但未满1000 元，赠送购书券金额为消费金额的 10；购书满 1000 元，赠送购书券金额为消费金额的 15。购书券最小面值 1 元。情况 1情况 2情况 3情况 4消费金额范围m200200=m500500=m=1000购书券金额计算p=5P=m*0.05P=m*0.1P=m*0.15开始开始输入购书金额输入购书金额m mm200m200是是是是否否200=m50020
2、0=m500否否500=m1000500=m1000是是否否P=5P=5P=m*0.05P=m*0.05P=m*0.1P=m*0.1P=m*0.15P=m*0.15输出购书券输出购书券p p结束结束Private Sub Command1_Click()Private Sub Command1_Click()Dim m As SingleDim m As SingleDim p As SingleDim p As Singlem=Val(Text1.Text)m=Val(Text1.Text)If m 200 ThenIf m 200 Thenp=5p=5ElseElseIf m 500 ThenIf m 500 Thenp=m*0.05p=m*0.05ElseElseIf m 1000 ThenIf m 1000 Thenp=m*0.1p=m*0.1ElseElsep=m*0.15p=m*0.15End IfEnd IfEnd IfEnd IfEnd IfEnd IfText2.Text=pText2.Text=pEnd SubEnd Sub