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

用if语句的嵌套实现多重选择结构 书城的促销活动方案进行了修改，购书未满200元的，赠送5元购书券；购书满200元但未满500元。赠送购书券为消费金额的5％：购书满500元但未满1000元，赠送购书券金额为消费金额的10％；购书满1000元，赠送购书券金额为消费金额的15％。购书券最小面值1元。 消费金额范围 购书券金额计算 情况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 绘制流程图 P=5 P=m*0.05 P=m*0.1 P=m*0.15 结束 输出购书券p 开始 输入购书金额m m200 200=m500 500=m1000 否 否 否 是 是 是 实现程序-创建窗体 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