Question

用VB编程评定学生的成绩等。在文本框(text1)中输入某一成绩单机命令按钮(commond1)后在标签上(label1)成?A

用VB编程评定学生的成绩等。在文本框(text1)中输入某一成绩，单击命令按钮(commond1)后，在标签上(label1)成绩对应的等级：大于等于90为优，80至89为良好
，60至79为合格，60以下为不合格。

Answer 1

我就用SELECT CASE 吧
Private Sub Command1_Click()
Select Case Val(Text1)
Case Is < 60
Label1.Caption = "不合格"
Case Is < 80
Label1.Caption = "合格"
Case Is < 90
Label1.Caption = "良好"
Case Is >= 90
Label1.Caption = "优秀"
End Select
End Sub

Answer 2

Private Sub Command1_Click()
If Val(Text1.Text) >= 90 Then
Label1.Caption = "优"
ElseIf Val(Text1.Text) < 90 And Val(Text1.Text) >= 80 Then
Label1.Caption = "良好"
ElseIf Val(Text1.Text) < 80 And Val(Text1.Text) >= 60 Then
Label1.Caption = "合格"
ElseIf Val(Text1.Text) < 60 Then
Label1.Caption = "不合格"
End If

End Sub

Answer 3

if int(text1.text)>=90 then
label1.caption="优"
elseif int(text1.text)<90 and int(text1.text)>=80 then
label1.caption="良好"
elseif int(text1.text)<80 and int(text1.text)>=60 then
label1.caption="合格"
elseif int(text1.text)<60 then
label1.caption="不合格"
endif

Answer 4

问题的标题太长~
正文里为什么不说明清楚呢
是根据分数显示等级是吧?
可以用SELECT CASE