Private Sub Command2_Click()
Dim kvb As Single, result As String
kvb = Val(InputBox("请输入数值:", "学生成绩输入"))
Select Case kvb
Case is〉 = 90
result = "A"
Case is〉 = 80
result = "B"
Case is〉 = 70
result = "C"
Case is〉 = 60
result = "D"
Case is〈60
result = "E"
End Select
MsgBox "该成绩的等级制为:" & result, vbInformation
End Sub
