求助VB编程

答案：
Dim s As Integer
Dim d As Single
Dim j As Double
Private Sub Form_Load()
s = InputBox("请输入购书数量：")
d = InputBox("请输入购书单价：")
Select Case s
  Case Is < 50
    j = s * d
  Case 50 To 99
    j = s * d * 0.9
  Case 100 To 499
    j = s * d * 0.8
  Case Is >= 500
    j = s * d * 0.75
End Select
Text1 = "需要金额：" & j
End Sub
用IF 语句判断  

上一个：VB编程问题
下一个：vb编程问题