VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59， 60~69， 70~79，80-89，90-100。
VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59， 60~69， 70~79，80-89，90-100。
日期：2006-10-27 14:18:41 人气：1
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)