求问这个代码command2下标越界9该怎么改

j不一定是整数，不能用j来充当数组下标哦，

你声明的数组是【Dim a(6 To 9) As Integer】
程序中有【a(5) = a(5) + 1】，不晓得这个【a(5)】在哪里声明的？

For i = 1 TO 10
j = Mark(i) \ 10
If j >= 6 And j < 7 Then '　j 是个整型数，这个条件只有 j = 6 才满足
a(5) = a(5) + 1 '　请问 a(5) 在哪里声明的？
Else
a(j) = a(j) + 1 '　当 j < 6 时要运行这一条语句，这里就会下标越界【Dim a(6 To 9)】
End If
Next i

我解决问题了，程序能正常运行，感谢各位的帮助