Cómo programar en VB6: Dados dos conjuntos de datos enteros en orden ascendente, escriba un programa para fusionarlos en un conjunto de datos que todavía esté en orden ascendente. ¡Gracias!

Dim a(), b(), c(), i, j, k

a = Array(1, 2, 5, 14, 16 , 18, 20, 22)

b = Matriz(3, 4, 6, 8, 10, 12)

i = 0

j = 0

k = 0

ReDim c(UBound(a) UBound(b) 1)

Hacer

Si a(i) lt; b(j) Entonces

c(k) = a(i)

k = k 1

i = i 1

Else

c(k) = b(j)

k = k 1

j = j 1

Fin si

Si gt;UBound(a) Entonces

Para i = j a UBound(b)

c(k) = b(i) p>

k = k 1

Siguiente

Salir Do

Elsef j gt；UBound(b) Entonces

Para j = i A UBound(a)

c(k) = a(j)

k = k 1

Siguiente

Salir Do

Finalizar si

Bucle

For k = 0 To UBound(c)

Imprimir c(k);

Siguiente

Fin Sub