安装包解析失败:vb高手帮忙

来源：百度文库编辑：中科新闻网时间：2024/04/29 06:28:48

12．编写程序，实现矩阵转置，即将一个nⅹm的矩阵的行和列互换。
现要求完成如下操作：
1）矩阵的行数n和列数m由输入对话框输入；
2）矩阵中的元素值由输入对话框输入；
3）转置以前的矩阵和转置后的矩阵都在窗体上输出。
Private Sub Form_click()
Dim a(n, m) As Integer
n = InputBox("")
m = InputBox("")
For i = 1 To n
For j = 1 To m
a(n, m) = InputBox("")
Next j
Next i
For i = 1 To n
For j = 1 To m
Print a(n, m);
Next j
Print
Next i
End Sub
哪里错拉
Private Sub Form_click()
n = InputBox("")
m = InputBox("")
ReDim a(n, m) As Integer
n = InputBox("")
m = InputBox("")
For i = 1 To n
For j = 1 To m
a(n, m) = InputBox("")
Next j
Next i
For i = 1 To n
For j = 1 To m
Print a(n, m);
Next j
Print
Next i
End Sub

vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb高手帮忙 vb题高手帮忙