用vb数组公式：随机产生100位学生成绩（35~98之间）,统计各分数段的人数并输出

显示全部楼层 · 2013-4-24 16:21:08

Private Sub Command1_Click()Dim a(1 To 100)Dim b, c, d, e, f, g, hFor i = 1 To 100
a(i) = Int(Rnd * 64 + 35)NextFor i = 1 To 100
If i Mod 10 = 0 Then
Print a(i)
Else
Print a(i);
End IfNextFor i = 1 To 100
If a(i) < 40 Then
b = b + 1
ElseIf a(i) < 50 Then
c = c + 1...

千问 · 2013-4-24 16:21:08

随机数： s = int(rnd()*(98-35+1) +35) 分数段用select case也简单的select case s case 30 to 39
a=a+1case 40 to 49 b =b+1........