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

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

Private Sub Command1_Click（）

Dim s（6, 6）

For i=1 To 6

For j=1 To 6

If i=j Then

【7】

Else

【8】

End If

Print 【9】

Next j

Print

Next i

End Sub