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