VB中行列转换，在线求助。。。

把1 2 3
4 5 6
7 8 9
行列转换一下，就是把a(i,j)变成a(j,i)

Private Sub Command1_Click()
Dim d(3, 3) As Integer
Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = 1 To 3
For j = 1 To 3
d(i, j) = (i - 1) * 3 + j
Next j
Next i

For i = 1 To 3
For j = 1 To 3
Print d(i, j);
Next j
Print
Next i

For i = 1 To 3
For j = 1 To 3
If i > j Then
t = d(i, j)
d(i, j) = d(j, i)
d(j, i) = t
End If
Next j
Next i
Print

For i = 1 To 3
For j = 1 To 3
Print d(i, j);
Next j
Print
Next i
End Sub

For I = 1 To 3 For J = 1 To 3 Print A(J, I); Next Print Next

'方法：利用备份数组来保持转换前的数据 Dim a(3, 3), t(3, 3) As Integer, i As Integer, j As Integer '初始化 For i = 1 To 3 For j = 1 To 3 a(i, j) = i t(i, j) = a(i, j) Print a(i, j) & " "; Next Print Next '转换 Print Dim temp As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = t(j, i) Print a(i, j) & " "; Next Print Next

假设数组为n(3,4) dim num as long '行求和 for i=0 to 3 num=0 for j=0 to 4 num=num+n(i,j) next print "第 " & i+1 & " 行的和是: " & num next '列求和 for i=0 to 4 num=0 for j=0 to 3 num=num+n(j,i) next print "第 " & i+1 & " 列的和是: " & num next