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