用VB写一个判断成绩优良，及格与不及格的程序

在 Visual Basic (VB) 中，你可以创建一个简单的函数或模块来判断学生的成绩是否属于优良、及格或不及格。以下是一个基本的示例：

Module GradeChecker

    ' 定义常量表示不同的成绩等级及其对应的分数区间
    Const ExcellentScore As Integer = 90
    Const PassScore As Integer = 60
    Const FailScore As Integer = 0

    ' 判断成绩等级的函数
    Function CheckGrade(grade As Integer) As String
        Select Case grade
            Case >= ExcellentScore
                Return "成绩优良"
            Case >= PassScore
                Return "成绩及格"
            Case Else
                Return "成绩不及格"
        End Select
    End Function

    Sub Main()
        Dim studentGrade As Integer = InputBox("请输入学生的成绩：") ' 提示用户输入分数
        Dim result As String = CheckGrade(studentGrade)
        MsgBox(result & " 等级")
    End Sub

End Module

在这个程序中，`CheckGrade` 函数接收一个整数参数 `grade`，然后根据预设的分数区间进行判断，并返回相应的等级字符串。在 `Main` 函数里，通过 `InputBox` 获取用户的输入，然后调用 `CheckGrade` 进行成绩分类并显示结果。