[填空題] 以下程序的功能是在程序運行后，單擊命令按鈕，輸出如下結果： 1 4 7 2 5 8 3 6 9 請完善以下程序。 Private Sub Command1_Click() Dim Arr(3，3)As Integer For i=1 To 3For j=1 To 3 Arr(i，j)= 【15】 Print Arr(i，j)；Next jPrint NeXt i End Sub

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