我弄出了前半段，后半段不会了，路过的大佬帮忙看看！！！谢谢。

从第二个ReDim开始，代码就变得很迷惑人了好不容易生成的30个成绩，就这么毁掉了？
其实，前面的第一个循环就可以顺便完成分数段统计的功能了，只要在 Print a(i, j), 后面加这么一句：
s(a(i, j) \ 10) = s(a(i, j) \ 10) + 1
然后，把从 ReDim a(10, 10) 开始直到结尾的代码改成下面这样：（其实那句k=0也可以不要了）
For i = 0 To 10
Print "s("; i; ")="; s(i)
Next i
最后再说一点，其实这个题并没有必要用动态数组和二维数组的

Print "s("; i; ")="; s(i) 这句有点不懂，可以解释一下吗