下列程序段的执行结果是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

题目

下列程序段的执行结果是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

相似考题

1.有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End SubA．0 1 2 1 2 3 2 3 4B．3 4 5 4 5 6 5 6 7C．1 3 5 3 5 7 5 7 9D．2 4 6 4 6 8 6 8 10

2.下列程序段的执行结果为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

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.下列程序段的执行结果为( )。 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

参考答案和解析
正确答案：D
【解析】For循环的一般格式是：
        For counter=start To end[Step step]
        Statements]
        [Exit For]
        Statements]
        Nest[counter]
当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行。可以将一个For…Next循环放置在另一个For…Next循环中，组成嵌套循环。不过在每个循环中的counter要使用不同的变量名。
根据题目中的意思，在IfN=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.
更多“下列程序段的执行结果是Dim A(3,3)For M = 1 To 3For N = 1 To 3If N = M Or N = 3 － M ＋ 1 Then ”相关问题

  • 第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题：

    下列程序的执行结果是（）。x=reshape（1:12,3,4); m=0; n=0; for k=1:4 if x（:,k)＜=6 m=m+1; else n=n+1; end end disp（[m,n])

    A．6 6

    B．2 1

    C．2 2

    D．1 2


    7 8 9

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

相关内容