[vb]随机产生20个学生的成绩，统计各分数段人数。

Option Explicit Dim d(1 To 20) As Integer Private Sub Command1_Click() Dim i As Integer Picture1.Cls For i = 1 To 20 d(i) = Int(Rnd() * 100) + 1 Picture1.Print Format(d(i), " 0"); If i Mod 4 = 0 Then