求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如:A矩阵及其转置矩阵B分别为:A=[1 2 34 5 6][1 4B= 2 53 6]现要求完成如下操作:1)\x09矩阵的行数n和列数m由输入对话框输入;2)\x09矩阵中的元素值由输入对话框输入(或由随机数产生);3)\x09转置以前的矩阵和转置后的矩阵都在窗体上输出.

问题描述:

求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转置以前的矩阵和转置后的矩阵都在窗体上输出.

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