VB问题~~请高手帮帮忙！

来源：百度知道 编辑：UC知道 时间：2024/06/01 13:49:09
VB问题~~请高手帮帮忙！输入 5*5矩阵,将第二行和第五行元素对调后，输入新的矩阵用对角线上的各元素分别去除各元素所在行，输入新的矩阵

Private Sub Form_Click()
Dim A(5, 5) As Integer, B(5, 5) As Single
Dim I As Integer, J As Integer
Randomize
Print "原始矩阵为："
For I = 1 To 5
For J = 1 To 5
A(I, J) = Int(Val(InputBox("第" + Str(I) + "行第" + Str(J) + "列元素", "输入", Int(Rnd * 10 + 1))))
Print A(I, J);
Next
Print
Next
Print "调换后矩阵为："
For I = 1 To 5
A(0, I) = A(2, I)
A(2, I) = A(5, I)
A(5, I) = A(0, I)
Next
For I = 1 To 5
For J = 1 To 5
Print A(I, J);
Next
Print
Next
Print "计算后的矩阵为："
For I = 1 To 5
For J = 1 To 5
B(I, J) = A(I, J) / A(I, I)
Print Format(B(I, J), "0.00") & " ";
Next
Print