填空题

以下程序的功能是：程序运行后，单击命令按钮，输出结果为：
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