[填空题] 请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1

[填空题] 请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。

Private Sub Command1_Click()

Dim s (6,6)

For i=1 To 6

For i=1 To 6

If i=j Then

______

Else

______

End If

Print______

Next j

Print

Next i

End Sub