关于VB的一个小程序（在线等，急用）

来源：百度知道 编辑：UC知道 时间：2024/04/30 06:14:03
有一个变量X。
当X小于1600时。结果为 “无”
当X小于等于2100且大于等于1600时。运算公式（X-1600）*0。1
当X小于等于3600且大于等于2100时。运算公式（X-1600）*0。15

用VB的inputbox写出公式。。谢谢了。

Private Sub Form_Click()
Dim x As Double
x = InputBox$("输入金额", "所得税计算器")
If x < 1600 Then
Print "无"
End If
If x <= 2100 And x >= 1600 Then
Print (x - 1600) * 0.05
End If
If x <= 3600 And x >= 2100 Then
Print (x - 1600) * 0.1 - 25
End If
If x <= 6600 And x >= 3600 Then
Print (x - 1600) * 0.15 - 125
End If
If x <= 21600 And x >= 6600 Then
Print (x - 1600) * 0.2 - 375
End If
End Sub

Private Sub Main()
On Error Resume Next
Dim i As Double
i = InputBox("请输入数据")
If i < 1600 Then
MsgBox ("无")
ElseIf i >= 1600 And i < 2100 Then
MsgBox ((i - 1600) * 0.1)
ElseIf i >= 2100 And i < 3600 Then
MsgBox ((i - 2100) * 0.15)
End If
End Sub

Dim a As String
Dim x As Long
Private Sub Form_Click()
x = Val(Text