急！急~请教一个计算机二级等级考试问题！

[soyo667]

----- 1 ----- ----- 2 ----- ----- 3 ----- 为要填的内容。

'PrintArray过程是输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5矩阵

Public Sub PrintArray()
Dim a(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
If ----- 1 ----- Then
----- 2 -----
End If
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Form1.Print " "; a(i, j);
Next j
------ 3 -----
Next i
End Sub

[victorycyz]

1: i<j
2: a(i,j)=1
3: form1.print ""

[victorycyz]

更正：
1: i<=j