[填空題] 以下程序的功能是在程序運(yùn)行后，單擊命令按鈕，輸出如下結(jié)果：

1 4 7

2 5 8

3 6 9

請(qǐng)完善以下程序。

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解析：[分析]： 該題輸出的是一個(gè)3行3列的二維數(shù)組，數(shù)組中的各元素通過(guò)外層循環(huán)變量i和內(nèi)層循環(huán)變量j產(chǎn)生， i用來(lái)控制數(shù)組Arr的行變化，而i用來(lái)控制數(shù)組的列變化。第1次執(zhí)行外層循環(huán)時(shí)，產(chǎn)生并輸出的一行為1 4 7，即內(nèi)層循環(huán)變量為1時(shí)輸出1，內(nèi)層循環(huán)變量為2時(shí)輸出4，內(nèi)層循環(huán)變量為3時(shí)輸出7。因此，可以根據(jù)循環(huán)變量i和i的變化，用一個(gè)公式來(lái)產(chǎn)生和輸出指定的數(shù)組。