vb case 语句

来源：百度知道 编辑：UC知道 时间：2024/05/27 15:59:58
Dim x As Single, y As String
Private Sub Command1_Click()
x = InputBox(prompt, "输入成绩", 0)
End Sub
Private Sub Command2_Click()
Select Case Val(x)
Case x >= 90
Print "优秀"
Case x >= 80
Print "良好"
Case x >= 70
Print "中等"
Case x >= 60
Print "及格"
Case Else
Print "不及格"
End Select
End Sub
Private Sub Form_Load()
Command1.Caption = "输入成绩"
Command2.Caption = "划分等级"
End Sub
不知道为什么总是显示不及格？？？

这样改，我试好没问题了
仔细看下区别吧

Dim x As Single, y As String
Private Sub Command1_Click()
x = InputBox(prompt, "输入成绩", 0)
End Sub
Private Sub Command2_Click()
Print x
Select Case Val(x)
Case Is >= 90
Print "优秀"
Case Is >= 80
Print "良好"
Case Is >= 70
Print "中等"
Case Is >= 60
Print "及格"
Case Else
Print "不及格"
End Select
End Sub
Private Sub Form_Load()
Command1.Caption = "输入成绩"
Command2.Caption = "划分等级"
End Sub

把 case 后面的"x"改成"is"试试

把dim 改成private