中科新闻网lisaann种子下载链接:vb高手帮忙
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 05:14:38
编写程序，实现矩阵转置，即将一个nⅹm的矩阵的行和列互换。例如：A矩阵及其转置矩阵B分别为：
1 2 3 1 4
4 5 6 2 5
3 6
现要求完成如下操作：
1） 矩阵的行数n和列数m由输入对话框输入；
2） 矩阵中的元素值由输入对话框输入；
3） 转置以前的矩阵和转置后的矩阵都在窗体上输出。
Private Sub Form_click()
n = InputBox("")
m = InputBox("")
ReDim a(n, m) As Integer
For i = 1 To n
For j = 1 To m
a(n, m) = InputBox("")
Next j
Next i
For i = 1 To n
For j = 1 To m
Print a(n, m);
Next j
Print
Next i
For i = 1 To m
For j = 1 To n
Print a(n, m);
Next j
Print
Next i
End Sub
这个哪里有问题啊,怎么改啊
1 2 3 1 4
4 5 6 2 5
3 6
现要求完成如下操作：
1） 矩阵的行数n和列数m由输入对话框输入；
2） 矩阵中的元素值由输入对话框输入；
3） 转置以前的矩阵和转置后的矩阵都在窗体上输出。
Private Sub Form_click()
n = InputBox("")
m = InputBox("")
ReDim a(n, m) As Integer
For i = 1 To n
For j = 1 To m
a(n, m) = InputBox("")
Next j
Next i
For i = 1 To n
For j = 1 To m
Print a(n, m);
Next j
Next i
For i = 1 To m
For j = 1 To n
Print a(n, m);
Next j
Next i
End Sub
这个哪里有问题啊,怎么改啊
自己对照吧!
Private Sub Form_click()
Print "原始矩阵为"
n = InputBox("请输入该矩阵的行数") '定义矩阵
m = InputBox("请输入该矩阵的列数")
ReDim a(n, m) As Integer
For i = 0 To n - 1
For j = 0 To m - 1
a(i, j) = InputBox("请输入第" & i + 1 & "行，第" & j + 1 & "列的数据") ' 输入数据
Next j
Next i
For i = 0 To n - 1
For j = 0 To m - 1
Print a(i, j);
Next j
Print
Next i
Print "原始矩阵行列互换后的矩阵为"
For j = 0 To m - 1 '交换数据
For i = 0 To n - 1
Print a(i, j);
Next i
Print
Next j
End Sub
问题大了去了！
你每次用数组都是用a(n,m)
n和m都是固定值
把前两个a(n,m)改成a(i,j)，第三个a(n,m)改成a(j,i)就可以了