某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 22:36:21
某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
某超市进行促销活动,购物在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