![[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=InputBox(“输入行数”):n=In](http://www.mshxw.com/aiimages/31/261168.png "[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=InputBox(“输入行数”):n=In")
[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
Option base 1
Private Sub Form_Click()
m=InputBox(“输入行数”):n=InputBox(“输入列数”)
(11) a(mn)As Integer,b(n,m)As Integer
For I=1 to m
For i=1 to n
a(I,j)=Int(Rnd*90)+10
Next:next
For I=1 to m
Forj=1 to n
b(j,I): (12)
Next:Next
End Sub
参考答案：
[11]Redim[12]a(I，j)问题解析:
重定义数组维度使用Redim函数。 b数组为转置后需要的数组，a数组为原值数组，所以本空赋值操作一定是引用a数组的元素的值。b(j，I)为行列互换后的转置元素，所以对应原值应为a(I，j)。
