VB -10~10随机数排序并统计出现次数

img


排序没问题，统计次数k(d)= k(d)+1这一句显示下标越界，帮我看看怎么改

目测
d = A(j) 这里应该是 d = A(j) + 10
k(d) = k(d) + 1
另外，记不得了，是不是VB下标从0开始的，-10 ~10，一共21个数，不是20。