单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

下面程序运行后，输出的结果是( )。 Dim arr(3,3) For i=1 To 3 For k=1 To 3

Arr(j,k)=(j-1)*3+k
Next k
Next j
For i=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Print
Next jA) 25
B) 58
C) 47
D) 59

单项选择题

表达式Right( Beijing ,4)的值是( )。

A) Beij
B) jing
C) eiji
D) ijin

下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then

下列程序段的执行结果为( )。
Dim A(3,3)
For M=1 To 3
For N=1 To 3
If N=M Or N=3-M+1 Then