VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59， 60~69， 70~79，80-89，90-100。

Option Explicit

Private Sub showScore()
Dim score(1 To 20) As Integer
Dim duan(1 To 5) As Integer
Dim i As Integer
Randomize

For i = 1 To UBound(score)
score(i) = CInt(Rnd * 100)
Select Case score(i)
Case 0 To 59
duan(1) = duan(1) + 1
Case 60 To 69
duan(2) = duan(2) + 1
Case 70 To 79
duan(3) = duan(3) + 1
Case 80 To 89
duan(4) = duan(4) + 1
Case 90 To 100
duan(5) = duan(5) + 1
End Select
Next

For i = 1 To 5
Select Case i
Case 1
Print "0 - 59 :",
Case 2
Print "60 - 69:",
Case 3
Print "70 - 79:",
Case 4
Print "80 - 89:",
Case 5