vb某商場有滿贈促銷活動

⑴ VB 某商場為了促銷,採用購物打折的優惠辦法,具體如下:

是不是購物M錢就能打折90%，購物N錢就能打折80%，此類用select case語句

⑵ 用VB編寫某商場為了對蘋果進行促銷，規定購買2千克以上可以在原價每千克1.5元的基礎上打八折。請設計一個

replace all 應付款 with 單價*0.8 for 重量＞=2
(最關鍵的一句，其他請自己補充)

⑶ 用vb編程：在考某商場年前促銷，所有商品9.8折，此外購物金額滿100元的9.5折，滿300元的9折，

Private Sub Command2_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "金額數應為數字型專的屬", 16, App.EXEName
Exit Sub
End If
If Text1.Text >= 500 Then
Text2.Text = Format(Text1.Text * 0.88, "0.00")
Else
Text2.Text = Format(Text1.Text, "0.00")
End If