简单的VB编程

Private Sub Command1_Click()

'首先输入购买商品的数量和单价，按以下优惠条件计算实际付款额。
'条件如下： 应付款<100元，无优惠；100<=应付款<500时，9折优惠；
'500<=应付款<2000时，8折优惠；超过2000元时，7折优惠。
Dim sPname As Integer
Dim sValue As Integer
Dim s As String
Dim lResult As Long
Dim lValue As Long
Do
sPname = Val(InputBox("请输入单价,取消或关闭退出"))
If sPname <= 0 Then Exit Do

sValue = Val(InputBox("数量"))
lValue = sPname * sValue
lResult = lValue + lResult

s = s & sPname & " * " & sValue & vbCrLf

Loop
s = s & "总金额:" & lResult & vbCrLf

If lResult >= 100 And lResult < 500 Then
lResult = lResult * 0.9
ElseIf lResult >= 500 And lResult < 2000 Then
lResult = lResult * 0.8
ElseIf lResult >= 2000 Then
lResult = lResult * 0.7
End If

MsgBox s & &qu