计算机二级
在窗体上绘制一个名称为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 i Next i Labell.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是A．12B．13C．14D．15
题目
在窗体上绘制一个名称为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 i Next i Labell.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A．12
B．13
C．14
D．15
相似问题和答案
第1题：
在窗体上画—个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_CIick( ) Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 srr(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(i，j)的值即为i*j，所以arr(2，2)+arr(3，3)就是求2*2+3*3=13。
第2题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) 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 Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A．12
B．13
C．14
D．15
解析：本题具有一定的迷惑性，其实分析一下易知arr(i,j)的值即为i*j，所以an(2，2)+arr(3， 3)就是求2*2+3*3=13。注意： For…Next循环控制结构适用于指定循环次数的循环程序。其格式为：
For循环变量二初始值To终值Step步长
Next
其中，当步长为正时，初始值要小于终值；当步长为负时，初始值要大于终值。注意：For…Next循环控制结构。
第3题：
在窗体上画一个名称为CommRnd1的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Command1 Click()
s=0
For i=1 TO 15
x=2*i-1
if x Mod 3；0 Then s=s+l
Next i
Labe11.Caption=s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是上【 】。
5 解析：本题是一个简单的For-Next循环。在循环中加入了If判断语句，也就是只有在x能够被3整除的条件下，s才能进行累加。考生如果忽略了If条件，认为s一直在累加，那就会得出15。
第4题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。
A．100
B．10
C．121
D．出错信息
解析：一维数组a的下标在1～10之间。而循环结束后k值为11，故产生下标越界的错误。
第5题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。
A．400
B．20
C．441
D．出错信息
解析：一维数组a的下标在1～20之间。而循环结束后k值为21，故产生下标越界的错误。
第6题：
在窗体上绘制一个名称为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
第7题：
在窗体上画一个名称为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
第8题：
在窗体上画一个名称为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。
第9题：
在窗体上画一个名称为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”。