UC知道帮我做一下这道VB题
来源：百度知道 编辑：UC知道 时间：2024/06/14 12:54:19
利用for语句和do loop语句，利用随机数生成两个矩阵A和B（数据不一定相同，前者元素取值范围是30-70，后者是101-135），求出矩阵B的转置矩阵．
利用for语句和do loop语句，利用随机数生成两个矩阵A和B（数据不一定相同，前者元素取值范围是30-70，后者是101-135），求出矩阵B的转置矩阵
{102 115 125 101 }
B= {133 127 132 135 }
{123 109 113 120 }
利用for语句和do loop语句，利用随机数生成两个矩阵A和B（数据不一定相同，前者元素取值范围是30-70，后者是101-135），求出矩阵B的转置矩阵
{102 115 125 101 }
B= {133 127 132 135 }
{123 109 113 120 }
没做过..试试:
Private Sub Command1_Click()
Dim a(), b(), c(), i%, j%, n%
n = Val(InputBox("请输入矩阵的大小!"))
ReDim a(1 To n, 1 To n)
ReDim b(1 To n, 1 To n)
ReDim c(1 To n, 1 To n)
Randomize
Print "矩阵A:"
For i = 1 To n
For j = 1 To n
a(i, j) = Int(41 * Rnd + 30)
b(i, j) = Int(35 * Rnd + 101)
Print a(i, j);
Next
Print
Next
Print "矩阵B:"
For i = 1 To n
For j = 1 To n
Print b(i, j);
c(j, i) = b(i, j)
Next
Print
Next
Print "矩阵C:"
For i = 1 To n
For j = 1 To n
Print c(i, j);
Next
Print
Next
End Sub