vb的数组题，要快~~

来源：百度知道 编辑：UC知道 时间：2024/09/23 18:18:38
利用随机数产生一个4*4的矩阵（这个我会）
1。将矩阵转置
2。将矩阵按列的次序把各元素放入一维数组D中，显示结果

快的好的有加分

Private Sub Command1_Click()
Dim zu(1 To 4, 1 To 4) As Integer
Dim t(1 To 4, 1 To 4) As Integer
Dim yi(1 To 16) As Integer

'先放在一个临时数组时
For i = 1 To 4
For j = 1 To 4
t(i, j) = zu(j, i)
Next j, i
'再将临时数组赋给原数组
For i = 1 To 4
For j = 1 To 4
zu(i, j) = t(i, j)

Next j, i

'将两维转化成一维
For i = 1 To 4
For j = 1 To 4
yi((i-1) * 4 + j) = zu(i, j)
Next j, i

End Sub