单选题 [程序]
*MAIN. PRG
SET TALK OFF
CLEAR MEMORY
DIME X(4,3)
i=1
DO WHILE i＜3
j=i+1
X(i,j)=j
DO SUB
X(i,i)=i
i=i+1
ENDDO
X(i,i)=4
? X(1,1),X(1,2),X(1,3),X(2,1)
? X(6),X(8),X(5),X(7)
SET TALK ON
RETURN
*SUB. PRG
IF X(i,j)＞=3
X(i+j)=X(i,j)
ENDIF
J=J-1
RETURN

【正确答案】 B

【答案解析】[解析] 当i=1时，进入循环，j=i+1=1+1=2，X(1,2)=2，调用SUB过程，不执行IF语句，执行j=j-1=2-1=1，返回主程序，X(1,1)=1，i=i+1=1+1=2，第二次进入DO WHILE循环，j=i+1=2+1=3，X(2,3)=3，调用SUB过程，执行IF语句，X(2+3)=X(2,3)=3，j=j-1=3-1=2，返回主程序，X(2,2)=2，i=i+1=2+1=3，不满足DO WHILE循环条件i＜3，所以退出循环，此时j=2，i=3，执行X(j,i)=4语句即X(2,3)=4。
定义数组后，系统自动给每个元素定义为逻辑型，其值为逻辑假.F.。
可以用一维数组的形式访问二维数组，按行顺序访问。本程序中数组为4行3列，共12个元素，所以X(6)与X(2,3)是同一变量，X(8)与X(3,2)是同一变量，X(5)与X(2,2)是同一变量，X(7)与X(3,1)是同一变量。
综上分析：X(1,1)=1，x(1,2)=2，X(1,3)=.F.，X(2,1)=.F.，X(6)=4，X(8)=.F.，X(5)=2，X(7)=.F.。