![[单项选择题] 下列程序段的执行结果为 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 ThenA(M,N) =1ElseA(M](http://www.mshxw.com/aiimages/31/261265.png "[单项选择题] 下列程序段的执行结果为 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 ThenA(M,N) =1ElseA(M")
[单项选择题] 下列程序段的执行结果为
Dim A(3，3)
For M=1 To 3
For N=1 To 3
If N=M Or N=3-M+1 ThenA(M,N) =1
ElseA(M,N) =0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M,N)
Next N
Print
Next M
Ａ) 1
0
0
0
1
0
0
0
0
Ｂ) 1
1
1
1
1
1
1
1
1
Ｃ) 0
0
0
0
0
0
0
0
0
Ｄ) 1 0 1
0 1 0
1 0 1
A. 1
0
0
0
1
0
0
0
0
B. 1
1
1
1
1
1
1
1
1
C. 0
0
0
0
0
0
0
0
0
D. 1 0 1
0 1 0
1 0 1
参考答案：
D问题解析:
题中以嵌套For循环为数组A(3，3)赋值，此过程中，如果A(M，N)符合条件"N=M OR N=3-M+1"则此项赋1，否则赋0。以A(1,1)为例，由于M=N=1，故A(1,1)=1。 依次类推： A(1,1) =1 A(2,1) =0 A(3,1) =1 A(1,2) =0 A(2,2) =1 A(3,2) =0 A(1,3) =1 A(2,3) =0 A(3,3) =1
