![[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=Input Box(“输入行数”):n=](http://www.mshxw.com/aiimages/31/260189.png "[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=Input Box(“输入行数”):n=")
[填空题] 下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
Option base 1
Private Sub Form_Click()
m=Input Box(“输入行数”):n=InputBox(“输入列数”)
[11] a(m,n)AS Integer,b(n,m)AS Integer
ForI=1 to m
Forj=1 to n
a(I,j)=Int(Rnd*90)+10
Next:Next
ForI=1 to m
Forj=1 to n
b(j,1)= [12]
Next:Next
End Sub
参考答案：
ReDim a(m,n)As Integer问题解析:
解析无
