题目
求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转置以前的矩阵和转置后的矩阵都在窗体上输出.
提问时间:2021-04-01
答案
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
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 Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1Sam is always buys at work.
- 2这个光学透镜成像问题怎么证明?
- 3我是老人之家的音乐家 英语翻译 运用七年级下册的知识回答
- 4影响太阳辐射度最主要的原因,
- 5原产于我国的农作物是:A水稻 B大豆 C花生 D玉米
- 62sin(2x-π/6)+2的最值在 0到2分之pai
- 7课文山中访友问题:如果我是一位诗人我会用诗一样的语言为本篇课文的插图配上文字
- 8下列实验操作正确的是( ) A.取液体的最少量,应以不超过试管容积的13为准 B.取用固体药品一般用药匙 C.向酒精灯内添加酒精时,不超过灯容积的13 D.给试管里的液体加热时,不要移动
- 9已知p(x,y)是圆C:(x-3)²+(y-4)²=1上的动点,求x分之y的取值范围?
- 10《陈太丘与友期》这个小故事主要人物是 ,从故事主人公的言谈中可知,做人要 ,这篇叙述文字也十分简要,人物