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

查看答案

正确答案

试题解析

解析：题中以嵌套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

标签：

感兴趣题目

程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub

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

阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。

有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form. Click() Dim i As Integer,j As Integer ReDim arr(3，2) For i＝1 To 3 For j＝1 To 2 arr(i,j)＝i*2+j Next j Next i ReDim Preserve arr(3,4) For j＝3 To 4 arr(3,j)＝j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为______。

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