VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,8

Private Sub Command1_Click() Dim a(20) As Integer Cls c1 = 0: c2 = 0: c3 = 0: c4 = 0: c5 = 0: c6 = 0 Randomize Print "20个成绩：" For i = 1 To 20 a(i) = Int(Rnd * 101) Print a(i); If i Mod 10 = 0 Then Print Next i For i =