[填空题] 以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： 1 4 7 2 5 8 3 6 9 请完善以下程序。 Private Sub Command1

[填空题] 以下程序的功能是在程序运行后，单击命令按钮，输出如下结果：

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)= 【15】

Print Arr(i，j)；

Next j

Print

NeXt i

End Sub

i+(j-1)*3 或 (i-1)+j*3-2解析：[分析]： 该题输出的是一个3行3列的二维数组，数组中的各元素通过外层循环变量i和内层循环变量j产生， i用来控制数组Arr的行变化，而i用来控制数组的列变化。第1次执行外层循环时，产生并输出的一行为1 4 7，即内层循环变量为1时输出1，内层循环变量为2时输出4，内层循环变量为3时输出7。因此，可以根据循环变量i和i的变化，用一个公式来产生和输出指定的数组。