UC知道vb题 谁会？
来源：百度知道 编辑：UC知道 时间：2024/06/25 15:59:43
编写一程序，实现矩阵的转置，即将一个n×n的矩阵行和列互换。（矩阵数据由随机函数产生，范围200~700内的整数）
Dim x() As Integer
Dim n As Integer
Private Sub Command1_Click()
For i = 0 To n
For j = i + 1 To n
t = x(i, j)
x(i, j) = x(j, i)
x(j, i) = t
Next j
Next i
Print "转置矩阵："
Print
For i = 0 To n
For j = 0 To n
Print Tab(j * 6); x(i, j);
Next j
Print
Print
Next i
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Do
n = Val(InputBox("请输入矩阵的阶数："))
Loop Until n > 1 And n < 400
n = n - 1
ReDim x(n, n)
Print "原矩阵："
Print
For i = 0 To n
For j = 0 To n
x(i, j) = Rnd * 501 + 200
Print Tab(6 * j); x(i, j);
Next j
Print
Print
Next i
Command1.Caption = "转置"
End Sub