填空题
下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
Option Base 1
Private Sub Form_Click()
m=InputBox(“输入行数”):n=InputBox(“输入列数”)
{{U}} {{U}} {{/U}} {{/U}}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):{{U}} {{U}} {{/U}} {{/U}}
Next:Next
End Sub