下列程序段的执行结果为Dim A(3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N) =1ElseA(M,N) =0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D． 1 0 1 0 1 0 1 0 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(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

相似考题

1.下列程序段的执行结果是Dim A(3,3)For M = 1 To 3For N = 1 To 3If N = M Or N = 3 - M + 1 ThenA(M,N) = 1Else A(M,N) = 0 End IfNext NNext MFor M = 1 To 3For N = 1 To 3Print A(M,N)Next NPrint Next MA. 1 0 0 0 1 0 0 0 1 B. 1 1 1 1 1 1 1 1 1C. 0 0 0 0 0 0 0 0 0 D. 1 0 1 0 1 0 1 0 1

2.下列程序段的执行结果为( )。 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 MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1

3.下列程序段的执行结果是( )。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N)=1ElseA(N,N)=0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1

4.下列程序段的执行结果为m=2n=3Dom=m + nn=n + 1Loop While m < 10Print m; n（ ）。A．1 5B．14 6C．a bD．10 25

参考答案和解析
正确答案：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
更多“下列程序段的执行结果为Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3－M＋1 ThenA(M,N) =1Els ”相关问题

  • 第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(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

  • 第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) =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


    正确答案：B

  • 第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，其他的数组元素为。

相关内容