[填空題] 執(zhí)行下列程序后輸出如下所示矩陣，填空將程序補(bǔ)充完整。

1 0 0 2

0 3 4 0

0 5 6 0

7 0 0 8

Private SubCommand1_Click()

Dim a(4，4)

For i=1 To 4

For i=1 To 4

If 【9】 Then

【10】

a(i，j)=k

Else

a(i，j)=0

End If

Print a(i，j)；

Next i

Print

Next i

End Sub

[9]i=j Or j＝4-i+1 [10]k=k+1

通過觀察可以發(fā)現(xiàn)，只有在主對(duì)角線和副對(duì)角線上才有數(shù)值，而且是漸增的，故當(dāng)條件成立時(shí)，k的值加1。主對(duì)角線行列下標(biāo)的關(guān)系為：i＝j(luò)，副對(duì)角線行列下標(biāo)的關(guān)系為：i+j＝5。