请在原程序上指出本程序的语法错误，并写出程序结果

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，则输出为：