某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
问题描述：
某超市进行促销活动,购物在200元以上的（含200,同下）,按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
答
Option ExplicitPrivate Sub Command1_Click()Dim arr, iarr = Split("100,200,300,500,800", ",")For i = 0 To UBound(arr)Print arr(i), fc(Val(arr(i)))NextEnd SubFunction fc(n)If...