Question

vb 编程实现将数组a=[1,4 2,5 3,6]转置为数组b=[1,2,3 4.5.6]

急求，帮帮忙

Answer 1

dim a[6],b[6]
dim i,j as int
dim Min as int
Min=0
a[1]=1
a[2]=4
a[3]=2
a[4]=5
a[5]=3
a[6]=6
for i=1 to 6

for j=i to 6
if min=0 then
min=a[j]
else
if a[j]<min then
min=a[j]
end if
end if
b[i]=min
next

next

Answer 2

Dim i As Integer, j As Integer, A(1 To 6) As Integer, B(1 To 6) As Integer, k As Integer
k = 1
For j = 1 To 2 '原矩阵
For i = 1 To 3
A((i - 1) * 2 + j) = k
k = k + 1
Next i
Next j
For i = 1 To 3
For j = 1 To 2 '转置矩阵
B((j - 1) * 3 + i) = A((i - 1) * 2 + j)
Next j
Next i

Answer 3

dim a[6],b[6]
dim i,j as int
a[1]=1
a[2]=4
a[3]=2
a[4]=5
a[5]=3
a[6]=6
for i=1 to 6
for j=i+1 to 6
if a[i]>a[j] then
dim tem as int
tem=a[j]
a[j]=a[i]
a[i]=temp
end if

next

next
b[6]=a[6]