VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面,当输入购物的总价钱,就可以算出实际要支付的钱)

VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面,当输入购物的总价钱,就可以算出实际要支付的钱)
VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折(试建立一个界面,当输入购物的总价钱,就可以算出实际要支付的钱)

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 sub