执行下列程序后输出如下所示矩阵,填空将程序补充完整。 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 4For i=1 To 4 If 【9】 Then 【10】 a(i,j)=k Else a(i,j)=0End IfPrint a(i,j); Next i Print Next
主观题
执行下列程序后输出如下所示矩阵,填空将程序补充完整。 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 4For i=1 To 4 If 【9】 Then 【10】 a(i,j)=k Else a(i,j)=0End IfPrint a(i,j); Next i Print Next