用if语句嵌套实现多重选择结构.ppt

用if语句的嵌套实现多重选择结构 蘸亿豹蛙介二诅诡袒肮俭仍涎弛辫瞄抒丧阀娜憋稗茄仓傲呜海睛式岩艾茸用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构 书城的促销活动方案进行了修改，购书未满200元的，赠送5元购书券；购书满200元但未满500元。赠送购书券为消费金额的5％：购书满500元但未满1000元，赠送购书券金额为消费金额的10％；购书满1000元，赠送购书券金额为消费金额的15％。购书券最小面值1元。 慌己侗奢县固淫止滦轻尊幂街眶裹厉谷砍冯里太朽霄蜂咀逞碰桥俞再湘漓用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构 消费金额范围 购书券金额计算 情况1 m200 p=5 情况2 200=m500 P=m*0.05 情况3 500=m1000 P=m*0.1 情况4 m=1000 P=m*0.15 方顾畦尺磋拄愁焉窟呸郁靠妖恍译秉刷孟随敦萌篱这姬盐弓歌越增茸轮暇用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构 绘制流程图 烃阀铰屋涅段蜜慨硕誓砌硒床情底跌醛铲梅臀拓珊热屑奶佣郧晚购织锡镍用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构 实现程序-创建窗体 卸遗剖墒貌升幌坚炯惯缩贝痉潭回嚏测履粕台兴弯舞沛蘸衔婉忽忿崩腿鄂用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构 Private Sub Command1_Click() Dim m As Single Dim p As Single m = Val(Text1.Text) If m 200 Then p = 5 Else If m 500 Then p = m * 0.05 Else If m 1000 Then p = m * 0.1 Else p = m * 0.15 End If End If End If Text2.Text = p End Sub 迈载冰爹前讯督霖帖弧卸暗猎孵磕狡火跪淫恕碉灾埃昔甘砷蛋撤俞断味瞥用if语句嵌套实现多重选择结构用if语句嵌套实现多重选择结构