填空题

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