将3*3的矩阵转置我编了个程序Private Sub Form_click()Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As ByteFor i = 1 To 3For j = 1 To 3a(i,j) = Val(InputBox("a（" & i & "," & j & "）=?"))Next jNext iFor i = 2 To 3For j = 1 To i - 1t = a(i,j):

来源：学生作业帮助网编辑：作业帮时间：2024/11/16 06:01:14

x��)�{��X��W��5��{�1��iOv�=ٱ����2�KR�K��r�s2��54]2s5B��u ��N��c��SeI�N�Ucu+d*�*@�xYp^�F�N�&��WPZ�_��~O��P��b��ik��ZQ��&3a�a��`X�Al��I*�'��`��,Iz@��\(U��pk��b�k�aF 0�+5�t2A|�a~�6�j�5�i`Its]�R@f?ٱ��';;^��}06_��l��}��] �\�g�>�� ٌf��@�w$��M��`�7<��a��6��yv��I��

将3*3的矩阵转置我编了个程序Private Sub Form_click()Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As ByteFor i = 1 To 3For j = 1 To 3a(i,j) = Val(InputBox("a（" & i & "," & j & "）=?"))Next jNext iFor i = 2 To 3For j = 1 To i - 1t = a(i,j):
将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
为什么输出的还是原来的矩阵,没有转置呢?