作业帮 > 综合 > 作业

将3*3的矩阵转置我编了个程序

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 11:17:24
将3*3的矩阵转置我编了个程序
Private Sub Form_click()
Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As Byte
For i = 1 To 3
For j = 1 To 3
a(i,j) = Val(InputBox("a(" & i & "," & j & ")=?"))
Next j
Next i
For i = 2 To 3
For j = 1 To i - 1
t = a(i,j):a(i,j) = a(j,i):a(j,i) = t
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print a(j,i);
Next j
Print
Next i
End Sub
为什么输出的还是原来的矩阵,没有转置呢?
因为你输出时又转置了一下……
For i = 1 To 3
For j = 1 To 3
Print a(j,i);'