问题
填空题
请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为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。输出矩阵各元素值。