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

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

admin2010-03-30  55
问题 以下程序用来建立一个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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)