下列程序段的执行结果为( )。 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 -题库考试答案搜索网

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

单选题

2022-01-05 15:54

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

查看答案

正确答案

试题解析

解析：For循环的一般格式是；Forcounter=startToend[Srepstep]statements][ExitFor]statements]Next[counter]当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行。可以将一个For…Next循环放置在另一个For…Next循环中，组成嵌套循环。不过在每个循环中的counter要使用不同的变量名。根据题目中的意思，在IfN=MOrN=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，其他的数组元素为0。

标签：

感兴趣题目

下列程序段的执行结果为______。 Dim A(10),B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="; A(5)

下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Pring"A(5)="；A(5)

下列程序段的执行结果为______。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I)； M(I)

有如下程序,程序执行完后的结果是（）. Dimension m(3) X="123456" for i=1 to 3 m(i)=SUBSTR(X,2*I,1) endfor ? M(1),M(2),M(3)

下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)

下列程序段的执行结果为 n=0 For i=1 To 3 For j=5 To 1 Step-1 n=n+1 Next j，i Print n；j；i

编写以下程序段： DIM I, J, K, A A=0 FOR I = 1 TO 3 FOR J = 1 TO I FOR K=-J TO 3 A=A+1 NEXT K NEXT J NEXT I 执行上面的三重循环后，变量A的值为( )。

下列程序段的执行结果为______。 A=0: B=0 For I=-1 To -2 Step-1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A; B

下列程序段的执行结果为 ______。A=0:B=0For I = -1 To -2 Step -1 For J = 1 To 2 B=B+1 Next J A=A+1Next IPrint A; B

下列程序段的执行结果为 a=3 b=1 For I=1 To 3 f=a + b a=b b=f Print f Next I

下列程序段的执行结果为 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I

下列程序段的执行结果为( )。 a=1 b=1 For I=1 To 3 f=a+b a=b b=f Print f： Next I