Question

VB题目，请求解答。

编程实现百分制成绩的等级评定。
要求：a)使用随机函数产生一个百分制成绩（0到100的整数），并将其保存到变量mark；
b)单击窗体，输出这个数及相应分数等级，等级评定方法：
'mark大于等于90显示"优秀"
'mark小于90且大于等于80显示"良好"
'mark小于80且大于等于70显示"中等"
'mark小于70且大于等于60显示"及格"
'mark小于60显示"不及格"
c)分别使用IF...Then...Elseif语句和Select case语句实现

Answer 1

Private Sub Form_Click()
Dim mark As Integer

mark = Int((100 * Rnd))

If mark >= 90 Then
    Print mark & "优秀"
ElseIf mark < 90 And mark >= 80 Then
    Print mark & "良好"
ElseIf mark < 80 And mark >= 70 Then
    Print mark & "中等"
ElseIf mark < 70 And mark >= 60 Then
    Print mark & "及格"
ElseIf mark < 60 Then
    Print mark & "不及格"
End If

Select Case mark
  Case Is >= 90
    Print mark & "优秀"
  Case 80 To 90
    Print mark & "良好"
  Case 70 To 80
    Print mark & "中等"
  Case 60 To 70
    Print mark & "及格"
  Case Else
    Print mark & "不及格"
End Select

End Sub