那位电脑高手帮我写个超简单的VB编码啊，急用，谢了啊！！

来源：百度知道 编辑：UC知道 时间：2024/09/28 17:51:39
要求就是输入一个学生的成绩，然后判断优良中差！
90优 80 良 60及格 〈60 不及格
下午就用呢，谢了啊！！！！
拜托拜托，谢了啊！

Private Sub Command1_Click()
Dim chengji As Integer
If Text1.Text <> "请输入成绩！" Then

chengji = CInt(Text1.Text)
If chengji >= 90 Then
Label1.Caption = "成绩优秀"
ElseIf chengji < 90 And chengji >= 80 Then
Label1.Caption = "成绩优良"
ElseIf chengji < 80 And chengji >= 60 Then
Label1.Caption = "成绩及格"
ElseIf chengji < 60 Then
Label1.Caption = "成绩不及格"
End If
Else
Label1.Caption = "请输入成绩"
End If
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

我的网站http://www.szrgb.net/szrgb/

select case a.text
case a.text>90
msg.text = "优"
case a.text>80
msg.text = "良"
case a.text>60
msg.text = "及格"
case else
msg.text = "不及格&quo