将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/09/09 00:49:51
x){XW5{1iOv=ٱ2KRKrs254]2s5 Bu NcSeINUcu+d**@xYp^FN&WPZ_~OPbikZQ&3aa`XAlI*'`,Iz@\( UpkbkaF 0+5t2A|a~6j5i`Its]R@f?ٱ';;^}06_l}] \g> ٌf @w$M`7