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

题目

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

相似考题

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

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

    下列程序段的执行结果为( )。 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，其他的数组元素为。

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

    下列程序段的执行结果为

    m=2

    n=3

    Do

    m=m + n

    n=n + 1

    Loop While m < 10

    Print m; n

    A．1 5

    B．14 6

    C．a b

    D．10 25


    正确答案：B
    解析：此题内容简单,开始m为2,n为3,执行Do语句,具体运行为:执行m = m + n; n = n + 1语句后,m为5,n为4。这样运行到m=14,程序终止循环,此时n=6。

相关内容