D 因为退出循环时，循环变量还会再加一次1
图在哪里？ 你的循环出错了 Dim a(1 To 10) As Integer 这是表明a是一个10个的数组，你循环之后,i=11了a(11) 是不存在的，所以出下标越界。你把for循环改到9就可以了。
