一下程序的作用是生成一个10×10的矩阵.该矩阵主对角线上的数据为1,其余数据为0(程序运行结果如下图所示)。该程序不完整,请补充完改程序。 Private Sub Command1_Click() Dim a(10,10)As I

admin2010-03-30  21

问题 一下程序的作用是生成一个10×10的矩阵.该矩阵主对角线上的数据为1,其余数据为0(程序运行结果如下图所示)。该程序不完整,请补充完改程序。

   Private Sub Command1_Click()
        Dim a(10,10)As Integer
        For i=1 To【   】
           For j=1 To 10
               If【   】Then
                 【   】=1
               Else
                 a(i,j)=0
               End If
           Next j
        Next i
        For i =1 To 10
            For j=1 To 10
                Print a(i,j);
            Next j
            Print
        Next i
   End Sub

选项

答案10 , i=j , a(i,j)

解析
转载请注明原文地址:https://jikaoti.com/ti/Xeg0FFFM
0

最新回复(0)