使用vb,找个评分程序代码？

Private Sub Form_click()
Call pj(CInt(InputBox("请输入学生成绩", "成绩评定")))
End Sub

Sub pj(ByVal success As Integer)
Select Case success
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

一个按钮

Private Sub Command1_Click()
Dim f As Integer
loop1:
f = InputBox("请输入学生成绩", , "0-100")

If f >= 0 And f <= 100 Then
Select Case f \ 10
Case 10
Print "优"
Case 9
Print "优"
Case 8
Print "良"
Case 7
Print "中"
Case 6
Print "及格"
Case Else
Print "不及格"
End Select

Else<