某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/07/03 10:51:52

某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.

Option Explicit
Private Sub Command1_Click()
Dim arr, i
arr = Split("100,200,300,500,800", ",")
For i = 0 To UBound(arr)
Print arr(i), fc(Val(arr(i)))
Next
End Sub
Function fc(n)
If n < 200 Then
fc = n
ElseIf n < 300 Then
fc = 0.95 * n
ElseIf n < 500 Then
fc = 0.9 * n
ElseIf n < 800 Then
fc = n * 0.85
Else
fc = n * 0.8
End If
End Function

某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠某市百货商场搞促销活动,购物不超过200元不优惠500元按九折优惠,超过部分按8折优惠,某人两次购物分别用 vb编写购物优惠程序,每位顾客一次购物（1）在200元（含200元）以上者按九五折优惠；（2）在400元（含400元）以 [ 、说出理由把南京某商场搞促销活动,凡购物不超过500元,按九折优惠;购物超过500元,其中500元按九折优惠,超过某大型超市举行购物促销活动,规定：如果一次购物在500元以内,按标价给予九折优惠；如果一次购物超过500元,其中500元新世纪商厦搞促销活动,凡购物不超过500元,按九折优惠;购物超过500元的... 某商场在2009年元旦期间搞促销活动,一次性购物不超过200元不优惠；超过200元,但不超过500元,按9折优惠, 分段计费问题新华商场“十一”期间搞促销活动.一次性购物不超过200元不优惠,超过200元,但不超过500元,按九折优惠；南京某商场搞促销活动,凡购物不超过500元,按九折优惠;购物超过500元,其中500元按九折优惠,超过500元的部某商场10月份举行促销活动购物不超过200元不给予优惠超过200元不足500元的优惠10%超过500元的其中按9折优惠超某商场元旦期间搞促销,一次性购物不超过200元不优惠；超过200元,但不超过500元,按九折优惠；圣豪购物超市十一期间搞促销,一次性购物不超过200元不优惠；超过200元,但不超过500元,按九折优惠；超过500元,超