以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0,请补充完该程序。 Private Sub Command1_click() Dim A(4,4)

admin2010-03-30  26

问题 以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0,请补充完该程序。
     Private Sub Command1_click()
      Dim A(4,4)
      For I=1 To 4
   For J= 1 To 4
           【  】=1
   Next I
   【  】
   【  】
   Next J
   For i=1 To 4
   For j=1 To 4
   Print A(i,j):
   Next j
   Print
   Next I
   End Sub

选项

答案A(I,J) , A(I,I) , A(I、5-I)

解析
转载请注明原文地址:https://kaotiyun.com/show/tS1p777K
0

最新回复(0)