Question

VB中关于数组的赋值问题

已知v0,v1,v2,v3为四个变量，分别赋值数字，分别代表一维数组a（400），b（400），c（400），d（400）中有效元素的个数，怎样把上述四个一维数组的有效元素的值复制到另一个数组e（1600）中去？然后在对新数组进行排序，由小到大的顺序，谢谢
尽量用最简单的VB知识做，太复杂小白看不懂

Answer 1

j=0 '把四个一维数组的有效元素复制到另一个数组e中
for i=0 to v0
e(j)=a(i):j=j+1
next i
for i=0 to v1
e(j)=b(i):j=j+1
next i
for i=0 to v2
e(j)=c(i):j=j+1
next i
for i=0 to v3
e(j)=d(i):j=j+1
next i
for i=0 to j-1 ‘对新数组进行排序，由小到大的顺序
for k=0 to j-1-i
if e(k)>e(k+1) then
t=e(k):e(k)=e(k+1):e(k+1)=t
endif
next k,i
for i=0 to j ’输出排序后的数组
?e(i);
if i mod 10=9 then ?
next i

Answer 2

k=0
for i=0 to v0
e(k)=a(i)
k=k+1
next i
for i=0 to v1
e(k)=b(i)
k=k+1
next i
for i=0 to v2
e(k)=c(i)
k=k+1
next i
for i=0 to k-1
for j=i+1 to k
if e(j)<e(i) then
temp=e(i)
e(i)=e(j)
e(j)=temp
end if
next j
next i