![[单项选择题] 当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i As Integer，j As Integer，a(5，5) As Integer For i=1](http://www.mshxw.com/aiimages/31/261269.png "[单项选择题] 当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i As Integer，j As Integer，a(5，5) As Integer For i=1")
[单项选择题] 当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
参考答案：
B问题解析:
本题首先通过一个两层For循环给二维数组a的每一个元素赋初值，赋值的规律是左上右下对角线及该对角线的上半部分的元素赋值为1，该对角线的下半部分元素赋值为0。然后通过一个两层循环分行输出该二维数组，所以第三行为0 0 1 1 1。
