Programación VB: 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!
Subcomando privado1_Click()
Dim mArra(4), mArrB(4), mArrC, i, stra$, strb$, j, k, temstr
Para i = 0 To 4
mArra(i) = i 1
Imprimir mArra(i);
Siguiente
Imprimir
Para i = 0 a 4
mArrB(i) = i * 6
Imprimir mArrB(i);
Siguiente
Imprimir
stra = Join(mArra, ","")
strb = Join(mArrB, ","")
strc = stra amp "," amp; strb
mArrC = Split(strc, ","")
Para j = 0 a UBound( mArrC) - 1
Para k = UBound( mArrC) To j 1 Paso -1
Si Val(mArrC(k)) lt; Val(mArrC(k - 1)) Entonces temstr = mArrC(k):mArrC(k) = mArrC(k - 1): mArrC (k - 1) = temstr
Siguiente k
Siguiente j
Imprimir "Nueva matriz:" amp; )
Fin del subtítulo