[填空题] 执行下列程序后输出如下所示矩阵,填空将程序补充完整。 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 4If 【9】 Then 【10】 a(i,j)=k Elsea(i,j)=0 End If Print a(i,j); Next i Print Next i End Sub
[填空题] 执行下列程序后输出如下所示矩阵,填空将程序补充完整。 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 4If 【9】 Then 【10】 a(i,j)=k Elsea(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
通过观察可以发现,只有在主对角线和副对角线上才有数值,而且是渐增的,故当条件成立时,k的值加1。主对角线行列下标的关系为:i=j,副对角线行列下标的关系为:i+j=5。
VIP截止日期:2025-01-02 11:32:50
←请使用支付宝扫码支付VIP截止日期:2025-01-02 11:32:50
←请使用微信扫码支付