计算机二级
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i As Integer，j As Integer，a(5，5) As Integer For i=1 To 5 For j=1 To 5 If(i＜=j)Then a(i,j)=1 Else a(i,j)=0 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j), Next j Print Next i End SubA．0 0 0 1 1B．0 0 1 1 1C．
题目
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i As Integer，j As Integer，a(5，5) As Integer For i=1 To 5 For j=1 To 5 If(i＜=j)Then a(i,j)=1 Else a(i,j)=0 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j), Next j Print Next i End Sub
A．0 0 0 1 1
B．0 0 1 1 1
C．0 1 1 1 1
D．1 1 1 1 1
相似问题和答案
第1题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A． 12
B．13
C．14
D．15
解析：本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。
第2题：
在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。
A．12
B．13
C．14
D．15
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y（m, n, p）
Print Str（p）
End Sub
Sub Y（ByVal i As Integer, ByVal j As Integer, k As Integer）
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．4
B．6
C．8
D．10
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )
A．4
B．6
C．8
D．10
解析：此程序考查了函数的调用，函数过程有3个形参，功能是将第一个和第二个形参的和赋给第三个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不变化实参的数值；而第三个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了三个整型变量，分别赋值3、5、0，调用过程后 m，n的数值仍然是3、5，而p的值不再是0而变为8即m、n的和，这也是被调函数的作用。
第5题：
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End Sub
A．1 2 3 4 5
B．1 1 2 3 4
C．1 1 1 2 3
D．1 1 1 1 2
解析：本题首先定义了一个5行5列的数组，然后通过一个二重For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为1，该对角线上元素的值为1，该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a，故输出的第三行为“11123”。
第6题：
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x
A．3
B．4
C．5
D．6
解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2，2)=2，a(3,3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1，1)、a(2,2)和a(3,3)外其他元素都为0，所以 x=1+2+3=6。
第7题：
在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是：_______。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 3 4 5 6 7 8 9
D．没有输出
解析：程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项A，B可能正确，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此可判断选项B为正确答案。
第8题：
在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i, j)=i*j Next j Next i Label1. Caption=Str(arr(2, 2)+arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是______。
A．12
B．13
C．14
D．15
解析：经过双重循环运算后，数组arr(2，2)和arr(3，3)的值分别为4和9，其相加的值为13，函数Str(13)返回字符串“13”。
第9题：
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．4
B．6
C．8
D．10
解析：此程序考查了函数的调用，函数过程有3个形参，功能是将第一个和第二个形参的和赋给第三个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不变化实参的数值；而第三个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了三个整型变量，分别赋值3、5、0，调用过程后m、n的数值仍然是3、5，而p的值不再是0而变为8，即m、n的和，这也是被调函数的作用。
第10题：
设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是
A．数组b中的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
解析：GetArray过程返回c数组中元素的个数。c数组元素由b(i)赋值，但只有b(i)中为偶数的元素才能赋值给c数组中的元素。单击按钮时，如果输入的n值小于10，则调用GetArray过程。据此A、B、D项都是正确的。C项的错误比较明显，GetArray过程的参数n前没有关键字“ByVal”，则默认为“ByRef”，即n是按传地址的方式传送参数的。