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