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