求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 22:19:57
求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转置以前的矩阵和转置后的矩阵都在窗体上输出.
编写程序,实现矩阵转置,即将一个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 Su
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
Next
For i = 1 To m
For j = 1 To n
arr2(i,j) = arr1(j,i)
Print arr2(i,j);
Next
Next
End Su
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
编写VB程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如:A矩阵及其转置矩阵B分别为:
vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.
编写一个函数,使给定的一个n*n矩阵转置,即行列互换.
编写一函数fun,实现矩阵(3行3列)的转置(即行列互换)
编写一个程序,实现如下功能: 从键盘输入一个M*N的整数矩阵,求这个矩阵的周边元素之和
实现3行3列矩阵的转置,即行列互换.(C语言)
VB矩阵转置.编写程序将2*3的矩阵转置,即转换成3*2的矩阵.
编写程序:求一个3行3列的矩阵对角线的元素之和.
两个m×n的矩阵,用C++编写程序实现矩阵的加法运算(两个矩阵中的元素一一对应)
用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素