急谁能帮我做一道visual basic 程序题？

Private Sub Command1_Click()
mark = Val(InputBox("输入成绩:"))
Select Case mark
Case 90 To 100
Me.Print "优秀"
Case 80 To 89
Me.Print "良好"
Case 70 To 79
Me.Print "中等"
Case 60 To 69
Me.Print "及格"
Case Is < 60
Me.Print "不及格"
End Select
End Sub

or
Private Sub Command1_Click()
mark = Val(InputBox("输入成绩:"))
Me.Print IIf(mark < 0, "输入错误！", _
IIf(mark < 60, "不及格", _
IIf(mark < 70, "及格", _
IIf(mark < 80, "中等", _
IIf(mark < 90, "良好", _
IIf(mark <= 100, "优秀", "输入错误！"))))))
End Sub

在窗体上放一个命令按钮，程序运行单击按钮，要求输入成绩。单击确定输出等级。代码如下：

Private Sub Command1_Click()
Dim cj As String
cj = InputBox("请输入成绩:")
Do While Not IsNumeric(cj)
MsgBox "请输入数字！", vbOKOnly + vbInformation, "提示"
cj = Val(InputBox("请输入成绩:"))
Loop
Select Case cj
Case 90 To 100
Print "优秀"
Case 80 To 89
Print "良好"
Case 70 To 79
Print "中等"
Case 60 To 69
Print "及格"
Case Is < 60
Print "不及格"
End Select

End Sub

Private Sub Form_Load()
Command1.Caption = "运行"
End Sub

private sub form_click()
1
s = inputbox("输入成绩")
if not isnumeric(s) or s < 0 or s > 100 then goto 1
select case s
case 90 to 100
msgbox "优秀"
case 80 to 89
msgbox "良好"
case 70 to 79
msgbox "中等"
case 60 to 69
msgbox "及格"
case else
msgbox "不及格"
end select
end sub

试试3行代码:

i = Val(InputBox("请输入分数!"))
i = IIf(IIf(i < 0, 0, i) > 100, 100, i) \ 10 + 1
Print Choose(i, "不及格", "不及格", "不及格", "不及格", "不及格", "不及格", "及格", "中等", "良好", "优秀", "优秀")