以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Int

admin2010-03-30  35

问题 以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。
   该程序运行结果见下图。
   Private Sub Form_ click()
               Dim s(10, 10) As Integer
               For n = 1 To 10
                   For m = 1 To 10
                       If【   】Or【   】Then
                          s (n, m) = 1
                       Else
                          s (n, m) = 0
                       End If
                    Next m
               Next n
               For n = 1 To 10
                   For【   】。
                       Picturel. Print Tab(m * 3); s(n, m)
                   Next m
                   Print
               Next n
   End Sub

选项

答案n=m,n=11-m,m= 1 To 10

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

最新回复(0)