填空题

以下程序的功能是：程序运行后，单击命令按钮，输出结果为：
1 4 7
2 5 8
3 6 9
请填空。
Private Sub Command1_Click( )
Dim Arr(3，3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i，j)=______
Print Arr(i，j)；
Next j
Print
Next i
End Sub