已知一维数组 A 共有25个元素，值为：A(I)=I，现将此一维数组存入二维数组 B(5,5)，存放次序为：

来源：百度知道 编辑：UC知道 时间：2024/05/28 08:26:21
已知一维数组 A 共有25个元素，值为：A(I)=I，现将此一维数组存入二维数组 B(5,5)，存放次序为：
A(1) A(2) A(5) A(10) A(17)
A(4) A(3) A(6) A(11) A(18)
A(9) A(8) A(7) A(12) A(19)
A(16) A(15) A(14) A(13) A(20)
A(25) A(24) A(23) A(22) A(21)
即：
B(1,1)=A(1) B(1,2)=A(2) B(1,3)=A(5) B(1,4)=A(10) B(1,5)=A(17)…

Dim A(1 To 25), B(1 To 5, 1 To 5) As Integer
Dim i, j, m As Integer

For i = 1 To 25 '给1维数组初始化
A(i) = i
Next i

m = 0
For i = 1 To 5
For j = 1 To i
m = m + 1
B(j, i) = A(m) ’ 2维数组的，列中的部分元素
Next j

For j = i - 1 To 1 Step -1
m = m + 1
B(i, j) = A(m) ’ 2维数组的，行中的部分元素
Next j
Next i

搜索也没有!