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

'添加窗体Form1,按钮Command1,然后添加如下代码: Private Sub Command1_Click() Dim s(19), a(4), i, temp As Integer Me.AutoRedraw = True Cls For i = 0 To 19 Randomize s(i) = Int(Rnd * 101) temp = Int(s(i) / 10)