niusouti.com
以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(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 mA． 1 1 1 1 1 1 1 1 1B．2 0 4 0 4 0 4 0 6C．0 0
题目
以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(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
A． 1 1 1 1 1 1 1 1 1
B．2 0 4 0 4 0 4 0 6
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
相似考题
更多“以下程序段的执行结果是 ______。Dim A(3, 3)For m = 1 To 3For n = 1 To 3If n = m Or n = 3 － m ”相关问题
-
第1题：
下列程序段的执行结果是( )。
Dim A(3,3)
For M=1 To 3
For N=1 To 3
If N=M Or N=3-M+1 Then
A(M,N)=1
Else
A(N,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
A．1 0 0 0 1 0 0 0 1
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循环的一般格式是：
Forcounter=start To end [Step step]
statements]
[Exit For]
statements]
Next [counter]
当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行。可以将一个For…Next循环放置在另一个For…Next循环中，组成嵌套循环。不过在每个循环中的counter要使用不同的变量名。
根据题目中的意思，在If N=M Or N=3-M+1 Then条件成立时，给数组元素赋值为1；否则给数组元素赋值为0。当N=1，M=1；N=1，M=3；N=2，M=2；N=3，M=3；N=3，M=1时，数组元素为1，其他的数组元素为0。
-
第2题：
下列程序段的执行结果为______。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M，N)=1 Else A(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
A．1 0 0 0 1 a 0 0 1
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
-
第3题：
执行下面程序段后，变量k的值为（)。 k=0; for（m=1;m＜4;m++) { for（n=1;n＜5;n++) { if（m*n%3==0) continue; k++; } }
A．3
B．1
C．6
D．12
D D [解析] 数组元素s[1]没有初值，故其计算结果小确定。 -
第4题：
下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(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
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 -
第5题：
下列程序段的执行结果为( )。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(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
A．1 0 0 0 1 0 0 0 1
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循环的一般格式是：
For counter=start To end [Step step]
statements]
[Exit For]
statements]
Next [counter]
当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行．可以将一个For…Next循环放置在另一个 For…Next循环中，组成嵌套循环．不过在每个循环中的counter要使用不同的变量名。
根据题目中的意思，在If N=M Or N=3-M+1Then条件成立时，给数组元素赋值为1；否则给数组元素赋值为0。当N=1，M=1 N=1， M=3 N=2，M=2；N=3，M=3； N=3，M=1时，数组元素为1，其他的数组元素为。