我晕了，老是弄不对，高手来指导一下

来源：百度知道 编辑：UC知道 时间：2024/06/17 21:59:39
一个问题：
1、当成绩（cj）<60 显示 不及格
2、cj在70--80时 显示 成绩中等
3、cj在80--90时 显示 成绩优秀
4、cj在90--100时 显示 成绩很优秀
5、cj在60--70时 显示 成绩一般
6、最好有判断输入的值是不是为空或者大于100等
我的代码有问题：
Private Sub Command1_Click()

Dim cj As Single
Text1.Text = cj
Select Case cj
Case cj < 60
Text2.Text = "成绩不合格"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 70 To 80
Text2.Text = "成绩中等"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 80 To 90
Text2.Text = "成绩优秀"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 90 To 100
Text2.Text = "成绩很优秀"
Command1.Caption = "重新计算"
Text1.Text = ""
Case Else
'Text2.Text = "成绩合格"
'Command1.Caption = "重新计算"
'Text1.Text = ""
End Select
End Sub

Private Sub

Private Sub Command1_Click()
Dim cj As Single
If Not IsNumeric(Text1) Then MsgBox "请输入数字": Text1 = "": Text1.SetFocus: Exit Sub
cj = Text1
Select Case cj
Case Is < 60
Text2.Text = "成绩不合格"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 70 To 79
Text2.Text = "成绩中等"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 80 To 89
Text2.Text = "成绩优秀"
Command1.Caption = "重新计算"
Text1.Text = ""
Case 90 To 100
Text2.Text = "成绩很优秀"
Command1.Caption = "重新计算"
Text1.Text = ""

Case Else
MsgBox "超出范围"
Text1 = ""
End Select
End Sub

"Text1.Text = cj "这一句有问题哦，Text1应该是用来输入成绩的吧，可是“=”是赋值符号，是把该符号右边的值赋给左边，两边变量是不能改变位置的，把"Text1.Text = cj "改为"cj = Text1.Text"，就行了。还有你的程序中，把60-70