UC知道初学者请求大家帮忙看看我的VB小程序怎么错了
来源：百度知道 编辑：UC知道 时间：2024/06/05 18:31:48
Private Sub Command1_Click()
Dim x As Long, y As Double
t = (x - 2000)
x = Val(Text1.Text)
If t <= 0 Then
y = o
Else
If t < 500 Then
y = 0.5 * t
Else
If t > 500 & t < 2000 Then
y = t * 0.1
Else
If 2000 < t < 5000 Then
y = t * 0.15
Else
y = t * 0.2
End If
End If
End If
End If
Label1.Caption = y
我们的作业是输入你的工资数 显示你应缴的税款 我觉得好像if 没出问题 好像是y = 0.5 * t 有问题 结果是 我无论输入什么数字 都显示的是0
希望大家帮忙看看
Dim x As Long, y As Double
t = (x - 2000)
x = Val(Text1.Text)
If t <= 0 Then
y = o
Else
If t < 500 Then
y = 0.5 * t
Else
If t > 500 & t < 2000 Then
y = t * 0.1
Else
If 2000 < t < 5000 Then
y = t * 0.15
Else
y = t * 0.2
End If
End If
End If
End If
Label1.Caption = y
我们的作业是输入你的工资数 显示你应缴的税款 我觉得好像if 没出问题 好像是y = 0.5 * t 有问题 结果是 我无论输入什么数字 都显示的是0
希望大家帮忙看看
首先我想问问你是不是学JAVA出身的 你的程序格式看得我想吐
代码如下：
Private Sub Command1_Click()
Dim x As Long, y As Double
x = Val(Text1.Text)
t = (x - 2000)
If t <= 0 Then
y = 0
ElseIf t < 500 Then
y = 0.5 * t
ElseIf t > 500 & t < 2000 Then
y = t * 0.1
ElseIf 2000 < t < 5000 Then
y = t * 0.15
Else
y = t * 0.2
End If
Label1.Caption = y
End Sub
————————————————————
首先是 t = (x - 2000)
x = Val(Text1.Text)
你不先给X赋值拿什么减2000 t是0自然x改什么数都是0了
第二就是你打错了
不是y = o
是y = 0
第三就是不用那么多end if 我都看晕了
的确是
t = (x - 2000)
x = Val(Text1.Text)
应为
x = Val(Text1.Text)
t = (x - 2000)
t = (x - 2000)
x = Val(Text1.Text)
-----
这个有先后顺序的吗？
VB不懂