Question

VB题，求帮助，急急急

VB题，求帮助，急急急某商店对用户购物根据购物金额多少打折扣，折扣标准如下：
金额<1000元 没有折扣
1000元≤金额<2000元 10%折扣
2000元≤金额<3000元 15%折扣
3000元≤金额<4000元 20%折扣
4000元≤金额 30%折扣
编程求用户购物花费金额。
方法1:多分支条件语句的使用（IF语句）。将窗体文件和工程文件分别以自己的学号（如2016121801_3_1）保存在磁盘上上交。
方法2:情况语句的使用(SELECT CASE)语句

Answer 1

Private Sub Command1_Click()
    Dim t#, k#
    t = Val(Text1.Text)
    Select Case t
        Case Is < 1000: k = 1
        Case Is < 2000: k = 0.9
        Case Is < 3000: k = 0.85
        Case Is < 4000: k = 0.8
        Case Else: k = 0.7
    End Select
    Label1.Caption = "用户购物花费金额为：" & t * k & "元。"
End Sub