杭州交通信息网刘易斯vs拉曼一战:VB程序问题，老鸟留步看一看．
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 17:54:16
Private Sub Form_Load()
Dim a As Integer
a = Val(InputBox("请输入数据", "成绩等级"))
If 100 >= a >= 90 Then
MsgBox "优秀", vbInformation, "成绩等级"
ElseIf 89 >= a >= 80 Then
MsgBox "良", vbInformation, "成绩等级"
ElseIf 79 >= a >= 70 Then
MsgBox "好", vbInformation, "成绩等级"
ElseIf 69 >= a >= 60 Then
MsgBox "及格", vbInformation, "成绩等级"
ElseIf 59 >= a Then
MsgBox "不及格", vbInformation, "成绩等级"
Else
End If
Unload Me
End Sub
请教路过的各位VB老鸟这个程序哪个地方有问题啊？！能否赐教！拜托了
Dim a As Integer
a = Val(InputBox("请输入数据", "成绩等级"))
If 100 >= a >= 90 Then
MsgBox "优秀", vbInformation, "成绩等级"
ElseIf 89 >= a >= 80 Then
MsgBox "良", vbInformation, "成绩等级"
ElseIf 79 >= a >= 70 Then
MsgBox "好", vbInformation, "成绩等级"
ElseIf 69 >= a >= 60 Then
MsgBox "及格", vbInformation, "成绩等级"
ElseIf 59 >= a Then
MsgBox "不及格", vbInformation, "成绩等级"
Else
End If
Unload Me
End Sub
请教路过的各位VB老鸟这个程序哪个地方有问题啊？！能否赐教！拜托了
"If 100 >= a >= 90 Then "不能这样写
应为:
if 100>=a and 90<=a then
其他类似
一、VB没有100>=a>=90之类的表达式
应该改为a<=100 and a>=90；
二、msgbox函数应该加（）：如msgbox("优秀","vbinformation","成绩等级"）；若用msgbox语句则只能有一个prompt，如msgbox “优秀”。
请问，你的程序是有什么错误呢？你要通过对话框实现的是成绩等级判断吧。