正文
矩阵转置vb.net代码 矩阵转置程序代码
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
随机生成一个三行四列的矩阵 并对其进行转置 并对应的显示在窗体上 用VB编程怎么做 感激不尽 急需答案 谢谢
假设有矩阵a，如下；
a(1,1) a(1,2) a(1,3) a(1,4)
a(2,1) a(2,2) a(2,3) a(2,4)
a(3,1) a(3,2) a(3,3) a(3,4)
那么，设a的转置为b，则B如下：
b(1,1) b(1,2) b(1,3)
b(2,1) b(2,2) b(2,3)
b(3,1) b(3,2) b(3,3)
b(4,1) b(4,2) b(4,3)
b矩阵与a矩阵之间元素的关系是：
b(1,1) = a(1,1)
b(1,2) = a(2,1)
b(1,3) = a(3,1)
b(2,1) = a(1,2)
b(2,2) = a(2,2)
b(2,3) = a(3,2)
b(3,1) = a(1,3)
b(3,2) = a(2,3)
b(3,3) = a(3,3)
b(4,1) = a(1,4)
b(4,2) = a(2,4)
b(4,3) = a(3,4)
VB代码如下：
Private Sub Command1_Click()
Dim a(1 To 3, 1 To 4) As Integer
Dim b(1 To 4, 1 To 3) As Integer
Dim h As Integer
Dim L As Integer
Dim x As Integer
'用随机数创建a数组
Randomize
For h = 1 To 3
For L = 1 To 4
a(h, L) = Int((100 * Rnd) + 1) '生成 1 到 100 之间的随机数值
Next L
Next h
'显示数组a
Print "显示数组(矩阵)a"
For h = 1 To 3
For L = 1 To 4
Print Tab((L - 1) * 6); a(h, L);
Next L
Next h
'求数组(矩阵)a的转置b
For h = 1 To 3
For L = 1 To 4
b(L, h) = a(h, L)
Next L
Next h
'显示数组b
Print "显示数组(矩阵)b"
For h = 1 To 4
For L = 1 To 3
Print Tab((L - 1) * 6); b(h, L);
Next L
Next h
End Sub
相关问答
Q1: 求助,初学者想问VB.NET，怎么输入一维列矩阵或者一维行矩阵怎么转置成一维列矩阵？谢谢了！
在程序设计语言里矩阵转置vb.net代码，用二维数组来保存矩阵矩阵转置vb.net代码的值。
一维列矩阵矩阵转置vb.net代码，就是由矩阵转置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
Q2: 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
Q3: 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
Next
For x = 1 To 5
For y = 1 To 5
B(x, y) = A(y, x) '转置
Print B(x, y); '输出
Next
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
程序输出结果如下：
关于矩阵转置vb.net代码和矩阵转置程序代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
