![[填空题] 请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6x6阶矩。 Private Sub Command1_Click() Dim s(6,6) F](http://www.mshxw.com/aiimages/31/254632.png "[填空题] 请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6x6阶矩。 Private Sub Command1_Click() Dim s(6,6) F")
[填空题] 请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6x6阶矩。
Private Sub Command1_Click()
Dim s(6,6)
For i=1 To 6
For i=1 To 6
If i=i Then
(13)
Else
(14)
End If
Print (15)
Nexti
Print
Next i
End Sub
参考答案：
[13]s(i，j)=1[14]S(i，j)=0[15]S(i，j)问题解析:
i=j表示主对角线位置，值应为1。非主对角线，值为0。输出矩阵各元素值。
