编程，用VB！已知学号由8个数码组成，如06431001

'已知学号由8个数码组成，如06431001
'
'其中从左算起前2位表示年级，第3个字符表示学生类型，学生类型规定如下：
'
'2表示博士生，3表示硕士生，4表示本科生。
'
'编写程序，从输入对话框输入一个学号，经过判断处理后，显示该生的年级及学生类型
Dim Grade As String, Level As String, lev As String, num As String
num = InputBox("输入学号", num)
Grade = Mid(num, 1, 2)
Level = Mid(num, 3, 1)
Select Case Val(Level)
Case 2
lev = "博士生"
Case 3
lev = "硕士生"
Case 4
lev = "本科生"
End Select
Me.Print "年级：" & Grade & Chr(13) & "学历：" & lev

Private Sub Command1_Click()
Dim Nos As String, Grade As String, Degree As String, Result As String
Nos = InputBox("请输入学号")
Grade = Mid(Nos, 1, 2)
Degree = Mid(Nos, 3, 1)
Select Case Degree
Case 2
Result = "该生是" & Grade & "年级的学生，学历为博士生"
Case 3
Result = "该生是" & Grade & "年级的学生，学历为硕士生"
Case 4
Result = "该生是" & Grade & "年级的学生，学历为本科生"
End Select
MsgBox Result
End Sub

Private Sub Command1_Click()
Dim xuehao As String
xuehao = InputBox("输入学号=", xuehao)
Debug.Print Mid(xuehao, 1, 2) & "年级"
If Mid(xuehao, 3, 1) = "2" Then
Debug.Print "博士生"
ElseIf Mid(xuehao, 3, 1) = "3" Then
Debug.Print "硕士生"
ElseIf Mid(xuehao, 3, 1) = "4" Then
Debug.Print "本科生"
End If
End Sub