Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case Is >＝ 450
Text2.Text = "优秀"
Case Is >＝ 400
Text2.Text = "良好"
Case Is > 350
Text2.Text = "中等"
Case Is >＝ 300
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select
End Sub
语法错误：
该程序运行后，若在文本框中输入350，则输出为：
② 
③ 
④ 
