简单的VB编程题问题（在线等）

Question

在窗体上设置：两个列表框，一个文本框，一个命令按钮。
在文本框上输入成绩数值的时候，单击“评分按钮”，
在一个标签框中显示出成绩的等级：
60分一下为不及格，
61-75分及格，
76-85为良好，
86-100为优秀。
输入其他内容显示“输入成绩错误”。
要求使用Select Case……EndSelect语句完成。

Answer 1

Private Sub Command1_Click()
Select Case text1.Text
Case Is < 60
label1.Caption = "不及格"
Case Is <= 75
label1.Caption = "及格"
Case Is <= 85
label1.Caption = "良好"
Case Is <= 100
label1.Caption = "优秀"
Case Else
label1.Caption = "输入成绩错误"
End Select
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer
i = Me.Text1.Text
Select Case i
Case Is < 60
Me.Label1.Caption = "不及格"
Case Is <= 75
Me.Label1.Caption = "及格"
Case Is <= 85
Me.Label1.Caption = "良好"
Case Is <= 100
Me.Label1.Caption = "优秀"
End Select
End Sub