打印文章

高校等考试题天天练二级VB]10月24日

作者：佚名文章来源：不详点击数更新时间：2008/4/18 14:49:25 文章录入：杜斌责任编辑：杜斌

　知识点：程序填空（一）
本事件过程对给定的矩阵进行转置,转置前后的矩阵分别如下面左、右两图所示。
             1   2   3                   1   4   7
             4   5   6                   2   5   8
             7   8   9                   3   6   9
Private Sub Command1_Click()
  Dim a(3, 3) As Integer,k As Integer
  k=0
For m = 1 To 3
    For n = 1 To 3
      k =   (1)   ：a(m, n) = k
    Next n
  Next m
  For m = 1 To 3
    For n = 1 To   (2)
      t = a(m, n): a(m, n) = a(n, m): a(n, m) = t
    Next n
  Next m
  For m = 1 To 3
    For n = 1 To 3
      Print a(m, n);
    Next n
      (3)
  Next m
End Sub

打印本文

关闭窗口