单项选择题

下列程序段的执行结果为______。 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
<上一题 目录 下一题>
热门 试题

单项选择题
有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 reminder = x Mod y x=y y=reminder Loop gys=x End Function以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，b) Print x End Sub
A．0
B．25
C．50
D．100
单项选择题
单击命令按钮时，下列程序代码的执行结果为______。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，a) End Sub
A．21
B．19
C．17
D．34
相关试题