VB,Msgbox函数题，高手多帮忙，谢谢了

来源：百度知道 编辑：UC知道 时间：2024/09/23 09:28:07
从键盘上输入一个学生的学号和考试成绩，然后根据该学生的学号，成绩，并根据成绩按下面规定输出对该学生的评语，输出要求用Msgbox函数实现，例如输出为： 张三 060301 中等。
成绩 90~100 80~89 70~79 60~69 60以下
评语 优秀 良好 中等 及格 不及格

Private Sub Form_Click()
Dim xh As String, xm As String, cj As Single
Do
xm = InputBox("请输入学生的姓名")
Loop While Len(xm) = 0
Do
xh = InputBox("请输入学生的学号")
Loop While Len(xh) = 0

Do
cj = Val(InputBox("请输入学生的成绩"))
Loop While Val(cj) = 0

s = xm & " " & xh
Select Case cj
Case 90 To 100
s = s & " 优秀"
Case 80 To 89
s = s & " 良好"
Case 70 To 79
s = s & " 中等"
Case 60 To 69
s = s & " 及格"
Case Else
s = s & " 不及格"
End Select
MsgBox s
End Sub

Dim a() As String
TEXT1="张三 060301 90"
Dim s As String
a = Split(Text1, " ")
If UBound(a) > 1 Then
Select Case