请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If

admin2012-03-22  31

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

选项

答案S(i,j)=1 S(i,j)=0 S(i,j)

解析
转载请注明原文地址:https://kaotiyun.com/show/E2hp777K
0

最新回复(0)