秒懂Select Case语句，轻松为成绩评定等次！

2024-01-08 08:05:42

理解Select Case语句

Select Case语句是一种选择结构，它允许您根据一个变量的值执行不同的代码块。语法如下：

Select Case test_expression
Case value1
    statements
Case value2
    statements
...
Case Else
    statements
End Select

其中，test_expression 是要评估的表达式，value1、value2等是与 test_expression 的值进行比较的值。如果 test_expression 的值与某个 value 相等，则执行该 value 对应的代码块。如果 test_expression 的值与所有 value 都不同，则执行 Case Else 代码块。

用Select Case语句为成绩评定等次

现在，我们来使用Select Case语句为成绩评定等次。假设我们有一个成绩表，其中包含学生姓名、成绩和等次三个字段。我们需要根据学生的成绩来评定他们的等次。

Sub 为成绩评定等次()
    Dim cj As Variant
    cj = InputBox("请输入学生的成绩：")
    Select Case cj
        Case Is < 60
            MsgBox "不及格"
        Case Is >= 60 And Is < 70
            MsgBox "中等"
        Case Is >= 70 And Is < 80
            MsgBox "良好"
        Case Is >= 80 And Is < 90
            MsgBox "优秀"
        Case Is >= 90
            MsgBox "优异"
        Case Else
            MsgBox "无效成绩"
    End Select
End Sub

在这个例子中，我们首先使用 InputBox 函数获取学生的成绩，然后使用 Select Case 语句根据学生的成绩来评定他们的等次。如果学生的成绩小于60分，则评定为不及格；如果学生的成绩在60分到70分之间，则评定为中等；如果学生的成绩在70分到80分之间，则评定为良好；如果学生的成绩在80分到90分之间，则评定为优秀；如果学生的成绩在90分以上，则评定为优异。

扩展应用

Select Case语句还可以用于其他各种任务，例如：