作业帮 > 综合 > 作业

随机产生一个m*n的矩阵,矩阵的每个数字是0~100的正整数.mn的值由inputbox函数给出,求该矩阵的转置矩阵

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/02 13:47:56
随机产生一个m*n的矩阵,矩阵的每个数字是0~100的正整数.mn的值由inputbox函数给出,求该矩阵的转置矩阵
并将原矩阵和转置矩阵在窗体上显示出来
随机产生一个m*n的矩阵,矩阵的每个数字是0~100的正整数.mn的值由inputbox函数给出,求该矩阵的转置矩阵
Private Sub Command1_Click()
Dim a() As Integer,b() As Integer
m = InputBox("m=",m)
n = InputBox("n=",n)
ReDim a(m,n),b(m,n)
For i = 1 To m
For j = 1 To n
a(i,j) = Int(101 * Rnd)
Print a(i,j);
Next j
Print
Next i
Print
For i = 1 To m
For j = 1 To n
b(i,j) = a(j,i)
Print b(i,j);
Next j
Print
Next i
End Su