将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/06/30 07:48:55
![将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(](/uploads/image/z/5453236-28-6.jpg?t=%E5%B0%863%2A3%E7%9A%84%E7%9F%A9%E9%98%B5%E8%BD%AC%E7%BD%AE%E6%88%91%E7%BC%96%E4%BA%86%E4%B8%AA%E7%A8%8B%E5%BA%8FPrivate+Sub+Form_click%28%29Dim+a%281+To+3%2C1+To+3%29%2Ci+As+Byte%2Cj+As+Byte%2Ct+As+ByteFor+i+%3D+1+To+3For+j+%3D+1+To+3a%28i%2Cj%29+%3D+Val%28InputBox%28%22a%EF%BC%88%22+%26+i+%26+%22%2C%22+%26+j+%26+%22%EF%BC%89%3D%3F%22%29%29Next+jNext+iFor+i+%3D+2+To+3For+j+%3D+1+To+i+-+1t+%3D+a%28i%2Cj%29%3A)
将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
为什么输出的还是原来的矩阵,没有转置呢?
将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):
因为你输出时又转置了一下……
For i = 1 To 3
For j = 1 To 3
Print a(j,i);'