请填写下列空白以实现运行后形成一个主对角线上元素值为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 (13) Else (14) End If Print (15) Next j Print Next i End Sub
主观题
请填写下列空白以实现运行后形成一个主对角线上元素值为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 (13) Else (14) End If Print (15) Next j Print Next i End Sub