正确语句如下：

Private Sub Command1_Click()Dim scoore As Integer, temp As Stringscoore = Val(Text1.Text)temp = "成绩等级为:

"Select Case scooreCase 0 To 59Label2.Caption = temp + "不及格"Case 50 To 69Label2.Caption = temp + "及格"Case 80 To 100Label2.Caption = temp + "优良"Case ElseLabel2.Caption = "成绩出错!"End SelectEnd Sub楼上的别管成绩冲突不冲突，就是冲突语只是执行的结果正确与否问题，不会影响语法的。