![[填空题] 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。Private Sub Command1,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%BB%A5%E4%B8%8B%E7%A8%8B%E5%BA%8F%E4%BB%A3%E7%A0%81%E4%BD%BF%E7%94%A8%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84A%E8%A1%A8%E7%A4%BA%E7%9F%A9%E9%98%B5%EF%BC%8C%E5%AE%9E%E7%8E%B0%E5%8D%95%E5%87%BB%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AECommand1%E6%97%B6%E4%BD%BF%E7%9F%A9%E9%98%B5%E7%9A%84%E4%B8%A4%E6%9D%A1%E5%AF%B9%E8%A7%92%E7%BA%BF%E4%B8%8A%E7%9A%84%E5%85%83%E7%B4%A0%E5%80%BC%E5%85%A8%E4%B8%BA1%EF%BC%8C%E5%85%B6%E4%BD%99%E5%85%83%E7%B4%A0%E5%80%BC%E5%85%A8%E4%B8%BA0%EF%BC%8C%E8%AF%B7%E8%A1%A5%E5%85%85%E5%AE%8C%E8%AF%A5%E7%A8%8B%E5%BA%8F%E3%80%82Private+Sub+Command1.png "[填空题] 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。Private Sub Command1,第1张")
[填空题] 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。 Private Sub Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 【12】 =1 Next I 【13】 【14】 Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub
正确答案：[12] A(I，J) [13] A(I，I) [14] A(I、5-I)
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）