vb编程：随机产生20个学生课程分数并显示,统计各分数段人数，显示统计结果

Private Sub Command1_Click() 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, I