Question

用vb语言根据学生成绩评定等级

定义一个score,用来保存学生成绩，其取值范围是0-100之间，现在要求根据该变量的取值范围给学生的成绩评定等级并在窗体上显示，当值在0-59之间为“不及格”，在60-69之间为“及格”，在70-79之间为“中”，在80-89之间为“良，在90-100之间为“优”，请用vb语言实习

Answer 1

Private Sub Command1_Click()
Dim score As Integer
Cls
L: score = Val(InputBox("请输入分数", , 0))
If score < 0 Or score > 100 Then
MsgBox "请输入0~100之间的分数"
GoTo L
End If
If score <= 59 Then Print "不及格"
If score >= 60 And score <= 69 Then Print "及格"
If score >= 70 And score <= 79 Then Print "中"
If score >= 80 And score <= 89 Then Print "良"
If score >= 90 And score <= 100 Then Print "优"
End sub

Answer 2

Private Sub Command1_Click()
Dim score As Integer
score = InputBox("请输入成绩：")
If score >= 90 Then
Print "优"
ElseIf score >= 80 Then
Print "良"
ElseIf score >= 70 Then
Print "中"
ElseIf score >= 60 Then
Print "及格"
Else
Print "不及格"
End If
End Sub