[填空题] 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。 Private Sub Command1_

[填空题] 以下程序代码使用二维数组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