作业帮求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：A=[1 2 34 5 6][1 4B= 2 53 6]现要求
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 23:17:23
![求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：A=[1 2 34 5 6][1 4B= 2 53 6]现要求](/uploads/image/z/3965911-7-1.jpg?t=%E6%B1%82VB%E8%A7%A3%E7%AD%94.%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E5%AE%9E%E7%8E%B0%E7%9F%A9%E9%98%B5%E8%BD%AC%E7%BD%AE%2C%E5%8D%B3%E5%B0%86%E4%B8%80%E4%B8%AAn%E2%85%B9m%E7%9A%84%E7%9F%A9%E9%98%B5%E7%9A%84%E8%A1%8C%E5%92%8C%E5%88%97%E4%BA%92%E6%8D%A2.%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E5%AE%9E%E7%8E%B0%E7%9F%A9%E9%98%B5%E8%BD%AC%E7%BD%AE%2C%E5%8D%B3%E5%B0%86%E4%B8%80%E4%B8%AAn%E2%85%B9m%E7%9A%84%E7%9F%A9%E9%98%B5%E7%9A%84%E8%A1%8C%E5%92%8C%E5%88%97%E4%BA%92%E6%8D%A2.%E4%BE%8B%E5%A6%82%EF%BC%9AA%E7%9F%A9%E9%98%B5%E5%8F%8A%E5%85%B6%E8%BD%AC%E7%BD%AE%E7%9F%A9%E9%98%B5B%E5%88%86%E5%88%AB%E4%B8%BA%EF%BC%9AA%3D%5B1+2+34+5+6%5D%5B1+4B%3D+2+53+6%5D%E7%8E%B0%E8%A6%81%E6%B1%82)
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：A=[1 2 34 5 6][1 4B= 2 53 6]现要求
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：
A=[1 2 3
4 5 6]
[1 4
B= 2 5
3 6]
现要求完成如下操作：
1）\x09矩阵的行数n和列数m由输入对话框输入；
2）\x09矩阵中的元素值由输入对话框输入（或由随机数产生）；
3）\x09转置以前的矩阵和转置后的矩阵都在窗体上输出.
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：A=[1 2 34 5 6][1 4B= 2 53 6]现要求
Private Sub Command1_Click()
Randomize Timer
Dim n As Integer,m As Integer
Dim arr1() As Integer,arr2() As Integer
Dim i As Integer,j As Integer
n = InputBox("请输入矩阵的行数")
m = InputBox("请输入矩阵的列数")
ReDim arr1(1 To n,1 To m),arr2(1 To m,1 To n)
For i = 1 To n
For j = 1 To m
arr1(i,j) = Int(Rnd * 10)
Print arr1(i,j);
Next
Print
Next
For i = 1 To m
For j = 1 To n
arr2(i,j) = arr1(j,i)
Print arr2(i,j);
Next
Print
Next
End Sub