您所在位置：主题：急:一个关于Qbasic 的sub子过程中的数组付值问题
lgw4959
[专家分：0] 发布于 2006-10-27 12:49:00
我最近在编一个有限元的Qbasic程序,遇到了一个问题,这是一个程序请大家帮忙看看是什么问题:
OPTION BASE 1
DIM SHARED D(3) AS INTEGER ,H(3) AS INTEGER
FOR J= 1 TO 3
D(J)=J
NEXT J
FOR J= 1 TO 3
CALL B(J)
NEXT J
END
SUB B(J)
FOR J=1 TO 3
PRINT D(J)
PRINT H(J)=D(J)
NEXT J
END SUB
结果显示是1，0，2，0，3，0两个都是全局变量,H(1)=1,H(2)=2,H(3)=3,才对啊。
而且我把程序改成下面这个它又正常了。
OPTION BASE 1
DIM SHARED D(3) AS INTEGER ,H(3) AS INTEGER
FOR J= 1 TO 3
D(J)=J
NEXT J
FOR J= 1 TO 3
PRINT H(J)=D(J)
NEXT J
显示结果为1，1，2，2，3，3
小弟在这里请哪位高手解答解惑。不胜感激。
OPTION BASE 1
DIM SHARED D(3) AS INTEGER ,H(3) AS INTEGER
FOR J= 1 TO 3
D(J)=J
NEXT J
FOR J= 1 TO 3
CALL B(J)
NEXT J
END
SUB B(J)
FOR J=1 TO 3
PRINT D(J)
PRINT H(J)=D(J)
NEXT J
END SUB
结果显示是1，0，2，0，3，0两个都是全局变量,H(1)=1,H(2)=2,H(3)=3,才对啊。
而且我把程序改成下面这个它又正常了。
OPTION BASE 1
DIM SHARED D(3) AS INTEGER ,H(3) AS INTEGER
FOR J= 1 TO 3
D(J)=J
NEXT J
FOR J= 1 TO 3
PRINT H(J)=D(J)
NEXT J
显示结果为1，1，2，2，3，3
小弟在这里请哪位高手解答解惑。不胜感激。
