vb編程 隨機生成100個0-99的隨機數，並以10*10的樣式對齊顯示， 然後計算每行數字的平均數

Dim a(9) As Integer, b(10) As Integer, i, j, s

For i = 1 To 100

b(i Mod 10) = Int(Rnd * 100)

Print Format(b(i Mod 10), " @@ ");

s = s + b(i Mod 10)

If i Mod 10 = 0 Then Print " 平均數：" & s / 10: s = 0

a(b(i Mod 10) \ 10) = a(b(i Mod 10) \ 10) + 1

Next

For i = 0 To 9

Print i * 10 & " - " & i * 10 + 9 & " 個數：" & a(i)

Next

End Sub