> 其他 >
某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
人气:398 ℃ 时间:2019-08-26 06:18:47
解答
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...
推荐
猜你喜欢
© 2024 79432.Com All Rights Reserved.
电脑版|手机版