500元 300元 200元 100元各买什么礼物比较大众的?
腾讯拍拍的买300元送300元(200元的购物卷100元的红包)的活动~
呵,爱搜酷上的创意礼品比较实惠!
你们抽奖礼品价格不错哦!
300元礼券:包含4张50元购物券+5个20元红包。50元的购物券 使用期限 为发放日 至2011年12月31日23时59分,请在有效期内使用,每笔订单限用一张。50元购物券在拍拍购买实物单笔金额≥100元(以实际付款金额为准,不含运费)可使用。不支持在拍拍购买话费、网游等虚拟类商品。
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
呵,爱搜酷上的创意礼品比较实惠!
你们抽奖礼品价格不错哦!