我的代码
Private Sub Form_Load()
Dim mat(5, 5) As Integer
Show
Print "初始矩阵为:"
For i = 1 To 5
For j = 1 To 5
mat(i, j) = Int(Rnd() * 90 + 10)
Print Tab(5 * j); mat(i, j);
Next
Print
Next
Print "交换第二列和第四列后的矩阵为:"
For j = 1 To 5
t = mat(2, j)
mat(2, j) = mat(4, j)
mat(4, j) = t
Next
For i = 1 To 5
For j = 1 To 5
Print Tab(j * 5); mat(i, j);
Next
Print
Next
End Sub
|