vb編程：隨機產生20個學生課程分數並顯示,統計各分數段人數，顯示統計結果

Dim a(0 To 4) As Integer, i As Integer, iScore As Integer

Randomize

For i = 1 To 20

iScore = Rnd * 100

If i Mod 4 = 0 Then Print '每4個壹行

Print "學生 " & i & " 成績: " & iScore,

If iScore >= 90 Then

a(4) = a(4) + 1

ElseIf iScore >= 80 Then

a(3) = a(3) + 1

ElseIf iScore >= 70 Then

a(2) = a(2) + 1

ElseIf iScore >= 60 Then

a(1) = a(1) + 1

Else

a(0) = a(0) + 1

End If

Next i

Print '換行

Print "0-59***有: " & a(0) & " 人"

Print "60-69***有: " & a(1) & " 人"

Print "70-79***有: " & a(2) & " 人"

Print "80-89***有: " & a(3) & " 人"

Print "90-100***有: " & a(4) & " 人"

End Sub