Private Sub Command1_Click()
Dim score As Single, rank As Variant, state As Variant
score = Text1.Text
If score > 85 Then
rank = "1-10"
state = "ÓÅÐã"
ElseIf score >= 75 Then
rank = "11-20"
state = "Á¼"
ElseIf score < 75 Then
rank = "20-25"
state = "&sup2;&icirc;"
End If
Text2.Text = rank
Text3.Text = state
End Sub

有什么错误啊 拜托大家？？在哪里改 我菜鸟

没发现有什么错误啊.

注意一下数据类型就是了.

没看出错在哪,只是不明白这程序是什么意思,可以加下面的代码,解决在TEXT1里写入非数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim a As String
    a = Chr(KeyAscii)
    If (InStr(1, "0123456789", a) = 0 And KeyAscii <> 8) Then
        KeyAscii = 0
    End If
End Sub

谢谢 重建复制一下就好了