爱用QBASIC编程的朋友帮帮忙

螺旋方阵
CLS
INPUT N
DIM A(N + 1,N + 1,V(3,2)
FOR I = 1 TO N + 1
FOR J = 1 TO N + 1
A(I,J) = -1
NEXT J
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
A(I,J) = 0
NEXT J
NEXT I
V(0,1) = 1:V(0,2) = 0
A(1,1) = 0:V(1,2) = 1
V(2,1) = -1:V(2,2) = 0
V(3,1) = 0:V(3,2) = -1
I = 1:J = 1
FOR K = 1 TO N * N
A(I,J) = K
IF A(I + V(X,1),J + V(X, 2)) <> 0 THEN X = (X+ 1)MOD 4
I = I + V(X,1)
J = J + V(X,2)
NEXT K
FOR I = 1 TO N
FOR J = 1 TO N
PRINT USING "#####";A(I,J);
NEXT J
PRINT
NEXT I
END
运行时提示说下标超出指定范围

一道qbasic的编程题！！！！ qbasic编程 QBASIC编程的问题(简单的问题) 一道qbasic的编程题!!!!!!!!!!!!!!!!!求助!! 懂编程的朋友帮帮忙？ 编程高手请进 用QBASIC编写 十进制的数转化成二进制的数的程序,哪位朋友帮个忙?谢谢了 没有高手了吗???追加20分呀!!!!!编程高手请进 用QBASIC编写十进制转化成二进的程序,哪位朋友帮个忙?谢谢啦 QBASIC编程题解释 QBASIC编程中的问题 qbasic编程 (菜鸟求助)