估计都会，就我不会
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 = "²î"
End If
Text2.Text = rank
Text3.Text = state
End Sub
有什么错误啊 拜托大家？？在哪里改 我菜鸟
