vb.net矩阵的转置 vb矩阵转置代码

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

相关问答

Q1: VB编程，应用二维数组产生随机矩阵5*5，并实现矩阵的转置。

VB源程序如下：

Option Base 1

Private Sub Command1_Click()

Dim A(5, 5) As Integer, B(5, 5) As Integer

For x = 1 To 5

  For y = 1 To 5

      A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数

      Print A(x, y); '输出

  Next

  Print

Next

Print

For x = 1 To 5

  For y = 1 To 5

      B(x, y) = A(y, x) '转置

      Print B(x, y); '输出

  Next

  Print

Next

End Sub

程序输出结果如下：

扩展资料：

VB：编写程序，实现如下规律的5*5矩阵存入数组，并输出该数组

Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer

For i = 1 To 5

For j = 1 To 5

tmp = 99

If i tmp Then

tmp = i

End If

If j tmp Then

tmp = j

End If

If 6 - i tmp Then

tmp = 6 - i

End If

If 6 - j tmp Then

tmp = 6 - j

End If

a(i, j) = tmp

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Picture1.Print Tab(j * 5); a(i, j);

Next j

Picture1.Print

Next i

End Sub

程序输出结果如下：

Q2: vb.net中怎么快速齐全矩阵转置

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

Q3: 求助,初学者想问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

vb.net矩阵的转置的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb矩阵转置代码、vb.net矩阵的转置的信息别忘了在本站进行查找喔。