单项选择题

下列程序段的执行结果是( )。 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(N,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
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮执行下列程序，其输出结果是( )。Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integera=3b=4c=5Prim SecProc(c,b,a)End SubFunction FirProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FunctionFunction SecProc(x As Integer,y As Integer,z As Integer)SecProc=FirProc(z,x,y)+xEnd Function
A．20
B．22
C．28
D．30
单项选择题
在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是( )。Option Base 1Private Sub Command1_Click()Dim a(5) As IntegerDim k As IntegerDim total As Integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6For k=1 To 5total=total+a(k)Next kPrint totalEnd Sub
A．10
B．15
C．27
D．35
相关试题