[填空题]执行下列程序后输出如下所示矩阵，填空将程序补充完整。
1002
0340
0560
7008
PrivateSubCommand1_Click()
Dima(4，4)
Fori=1To4
Fori=1To4
If【9】Then
【10】
a(i，j)=k
Else
a(i，j)=0
EndIf
Printa(i，j)；
Nexti
Print
Nexti
EndSub