VB高手进来一下啊!

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:13:14
已知某书店全场九五折，一次性买书在100元以上（即不含100元）享受八八折优惠，500元以上享受七折优惠，1000元以上享受五折优惠。编写程序，要求在输入框中输入买书总价，计算并输出应付价钱。（

上面这道题该怎么做啊?谢谢哪位高手帮帮忙

Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
n = InputBox("输入消费金额")
If n > 1000 Then
sum = n * 0.5
ElseIf n > 500 Then
sum = n * 0.7
ElseIf n > 100 Then
sum = n * 0.88
Else
sum = n * 0.95
End If
MsgBox "原价：" & n & vbCrLf & "折扣后：" & sum
End Sub