VB 用inputbox输入一个成绩，并将成绩等分：100为满分，90-99为优秀，80-90为良好，70-79为中等，60-69及格

Private Sub Command1_Click() Dim x As Single x = Val(InputBox("请输入一个分数", , 100)) Select Case x Case Is < 60 Print x & "不及格" Case Is < 70 Print x & "及格" Case Is < 80 Print x & "中等" Case Is &l