作业帮VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/02 23:35:00
VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面,当输入购物的总价钱,就可以算出实际要支付的钱)
private sub canmmand1_click()
dim a as single
dim m as single
dim z as string
a= val(inputbox "输入价格")
select case a
case is >=5000
m=a*0.5
z="五折"
case is >=3000
m=a*0.7
z="七折"
case is >=1000
m=a*0.8
z="8折"
case is >0
m=a*0.9
z="九折"
case else
msgbox "输入错误!"
exit sub
end select
msgbox "应付款"& a & "打" & z & "后,实付款" & m
end su
dim a as single
dim m as single
dim z as string
a= val(inputbox "输入价格")
select case a
case is >=5000
m=a*0.5
z="五折"
case is >=3000
m=a*0.7
z="七折"
case is >=1000
m=a*0.8
z="8折"
case is >0
m=a*0.9
z="九折"
case else
msgbox "输入错误!"
exit sub
end select
msgbox "应付款"& a & "打" & z & "后,实付款" & m
end su
VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面
vb编写购物优惠程序,每位顾客一次购物（1）在200元（含200元）以上者按九五折优惠；（2）在400元（含400元）以
用vb编程：在考某商场年前促销,所有商品9.8折,此外购物金额满100元的9.5折,满300元的9折,
某服装商店出售一种优惠购物卡，花200元买这种卡后，凭卡可在这家商店8折购物，什么情况下买卡购物合算？
哇哈哈矿泉水每瓶售价1.2元,现甲,乙两家商场给出优惠政策：甲全场全部9折,乙商场20瓶以上部分8折
商店进行打折销售,规定购买200元以下物品不打折购买200元以上商品（含200元）,商品则全部打9折.
某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠
一道应用题,某服装商店出售一种优惠购物卡,花200元买这种卡后,凭卡可在这家商店按8折购物
若一次购物超过500元的,其中500元9折优惠,超过500元的部分者给予8折优惠,某人2次购物,分别付款168元哈423
英文翻译：一次购物满50元今后即可享受8折的优惠
王叔叔去超市买240元的物品,甲超市全场8折,乙超市120元人民币可购物160元,哪家超市便宜?便宜多少元?
星期天,小明和妈妈去逛街,商店推出大酬宾活动:购物满198元,送100元购物卷,凭购物卷加上50元以上的现金可以购买商店