某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 11:08:39
![某超市进行促销活动,购物在200元以上的(含200,同下),按九五折优惠,购物300元以上按九折优惠,500元八五折优惠,800元以上八折优惠,编写程序,输入购物金额,计算并输出计算计算以后的价格,.](/uploads/image/z/780289-25-9.jpg?t=%E6%9F%90%E8%B6%85%E5%B8%82%E8%BF%9B%E8%A1%8C%E4%BF%83%E9%94%80%E6%B4%BB%E5%8A%A8%2C%E8%B4%AD%E7%89%A9%E5%9C%A8200%E5%85%83%E4%BB%A5%E4%B8%8A%E7%9A%84%EF%BC%88%E5%90%AB200%2C%E5%90%8C%E4%B8%8B%EF%BC%89%2C%E6%8C%89%E4%B9%9D%E4%BA%94%E6%8A%98%E4%BC%98%E6%83%A0%2C%E8%B4%AD%E7%89%A9300%E5%85%83%E4%BB%A5%E4%B8%8A%E6%8C%89%E4%B9%9D%E6%8A%98%E4%BC%98%E6%83%A0%2C500%E5%85%83%E5%85%AB%E4%BA%94%E6%8A%98%E4%BC%98%E6%83%A0%2C800%E5%85%83%E4%BB%A5%E4%B8%8A%E5%85%AB%E6%8A%98%E4%BC%98%E6%83%A0%2C%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E8%BE%93%E5%85%A5%E8%B4%AD%E7%89%A9%E9%87%91%E9%A2%9D%2C%E8%AE%A1%E7%AE%97%E5%B9%B6%E8%BE%93%E5%87%BA%E8%AE%A1%E7%AE%97%E8%AE%A1%E7%AE%97%E4%BB%A5%E5%90%8E%E7%9A%84%E4%BB%B7%E6%A0%BC%2C.)
某超市进行促销活动,购物在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