itgle.com

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


相似考题
参考答案和解析
正确答案: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,其他的数组元素为。