vb点虐矩阵转置 编写一个3×3矩阵转置的函数

vb点虐中怎么快速齐全矩阵转置

Option Explicit

Option Base 1

Dim a(4, 4) As Integer

Private Sub Command1_Click()

Dim 雀颤凯i As Integer, j As Integer

Picture1.Cls

Randomize

For i = 1 To 4

 For j = 1 To 4

   a(i, j) = Int(Rnd * 9) + 1

   Picture1.Print a(i, j);

 Next j

   Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer

Dim b(4, 4) 顷唤As Integer

Picture2.Cls

For i = 1 To 4

 For j = 1 To 4

  b(i, j) = a(j, i)

  Picture2.Print b(i, j);

 Next j

 Picture2.Print

Next i

End Sub

Private Sub Command3_Click()

Dim i As Integer, j As Integer, temp As Integer

Picture2.Cls

For i 洞谨= 1 To 4

 For j = i To 4

    temp = a(i, j)

    a(i, j) = a(j, i)

    a(j, i) = temp

 Next j

Next i

For i = 1 To 4

  For j = 1 To 4

     Picture2.Print a(i, j);

  Next j

  Picture2.Print

Next i

End Sub

vb矩阵转置

Dim a(6, 6) As Integer, i As Integer, ii As Integer

Private Sub Command1_Click()

  For i = 1 To 6

    For ii = 1 To 4

      a(i, ii) = Int(Rnd * 90 + 10)

    Next ii

  Next i

  For i = 1 To 6

    For ii = 1 To 4

     侍唯 Picture1.Print a(i, ii);

   陆谈清 Next ii

    Picture1.Print ""

  Next i

End Sub

Private Sub Command2_Click()

  For ii = 1 To 4

   早前 For i = 1 To 6

      Picture2.Print a(i, ii);

    Next i

    Picture2.Print

  Next ii

End Sub

求助,初学者想问VB.NET，怎么输入一维列矩阵或者一维行矩阵怎么转置成一维列矩阵？谢谢了！

在程序设计者裤语言里，用二维数组来保存矩阵的值。

一维列矩阵，就是由：若干行、丛空一列组成的二维数组。

一维行矩阵，就是由：一行、若干列组成的二维数组。

比如一维列矩阵，的输入：

dim a(10,1) as integer '渗嫌瞎10行，1列

dim i as integer

for i = 1 to 10

a(i,1) = inputbox("")

next i

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！