谁来看一下我的VB代码哪里错了?

来源：百度知道 编辑：UC知道 时间：2024/06/17 06:07:55
Dim x As String
x = tb1.Text
If x = 90 < 100 Then
tb2.Text = "优秀"
ElseIf x = 80 < 89 Then
tb2.Text = "良好"
ElseIf x = 70 < 79 Then
tb2.Text = "及格"
Else
tb2.Text = "不合格"
End If
End Sub
不管我在tb1.text 里输入的数字是多少,tb2.text 都出 优秀.
这是什么问题?
除了加 and 还有其它方法?

正确写法：
Dim x As Integer
x = CInt(tb1.Text)
If x >=90 and x < 100 Then
tb2.Text = "优秀"
ElseIf x >= 80 and x < 89 Then
tb2.Text = "良好"
ElseIf x >= 70 and x < 79 Then
tb2.Text = "及格"
Else
tb2.Text = "不合格"
End If
End Sub

大体上理解你的意思
程序改一下就oK了
Dim x%
x = Val（tb1）
If x>= 90 And X <= 100 Then
tb2.Text = "优秀"
ElseIf x >=80 And x<= 89 Then
tb2.Text = "良好"
ElseIf x >= 70 And X <= 79 Then
tb2.Text = "及格"
Else
tb2.Text = "不合格"
End If
End Sub

对了，给分~！

你这个程序明显错误，第一个IF语句，90<100永远成立，所以你输出一只是优秀
把第一个“=”号改成“>”，把后面的运算付删了 就可以了