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