用vb设计一个判断成绩的

Private Sub Command1_Click()

Dim a As Single

a = Val(Text1.Text)

If a >100 Or a <0 Then '此处需另肢郑启一行

Text2.Text = "error"

ElseIf a >= 90 And a <= 100 Then

Text2.Text = "优稿并秀"

ElseIf a <90 And a >= 80 Then

Text2.Text = "良好"

ElseIf a <80 And a >= 70 Then

Text2.Text = "历敬颂中等"

ElseIf a <70 And a >= 60 Then

Text2.Text = "及格"

ElseIf a <60 And a >= 0 Then

Text2.Text = "不及格"

End If

End Sub

Private Sub Command1_Click()

Dim x As Integer

x = TxtScore.Text

If x <60 Then

TxtRank.Text = "不及格缺庆"

ElseIf x >= 60 And x <= 79 Then

 TxtRank.Text = "及轿扮圆闭塌格"

ElseIf x >= 80 And x <= 89 Then

 TxtRank.Text = "良"

ElseIf x >= 90 And x <= 100 Then

  TxtRank.Text = "优"

End If

End Sub

---