填空题

请填写下列空白，以实现运行后形成一个主对角线上元素值为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