在VB中实现成绩等级显示功能，通常需要结合用户输入和条件判断。以下是一个简单的示例，展示如何根据输入的分数在文本框中显示对应的等级：
示例代码
```vb
Private Sub Command1_Click()
Dim score As Integer
Dim grade As String
' 获取用户输入
score = Val(Text1.Text)
' 输入验证
If IsNumeric(score) Then
Select Case score
Case Is >= 90
grade = "优"
Case Is >= 80
grade = "好"
Case Is >= 70
grade = "良"
Case Is >= 60
grade = "及格"
Case Else
grade = "不及格"
End Select
' 显示结果
Text1.Text = score & " 分，等级为：" & grade
Else
MsgBox "输入无效，请输入0-100之间的数字", vbExclamation
Text1.SetFocus
End If
End Sub
```
代码说明
使用 `Val（Text1.Text）` 将文本框中的输入转换为整数。
使用 `IsNumeric（score）` 检查输入是否为有效数字。
使用 `Select Case` 语句根据分数范围确定等级。
将分数和等级组合后显示在文本框中。
如果输入无效，弹出消息框提示用户重新输入。
注意事项
确保文本框 `Text1` 和按钮 `Command1` 的名称与代码中的名称一致。
可以根据实际需求调整等级划分标准。
若需将结果显示在标签（如 `Label3`）中，可将 `Text1.Text` 替换为 `Label3.Caption`。
通过以上步骤，你可以实现一个简单的成绩等级显示功能。
温馨提示：
