Fusión de archivos de programación en lenguaje Vb

Dim mArra(4), mArrB(4), mArrC, i%, stra$, strb$, j%, k%, temstr%

para i = 0 a 4

mArra(i) = i + 1

Imprimir marra(one);

Luego

Imprimir

Para i = 0 a 4

mArrB(i) = i * 6

Imprimir mArrB(I);

Entonces

Imprimir

stra = Join(mArra, ","")

strb = Join(mArrB, ","")

strc = stra &","&strb

mArrC = Split(strc, ","")

Para j = 0 al límite inferior (mArrC) - 1

Para k = UBound(mArrC) a j + 1 tamaño de paso - 1

si Val(mArrC(k))<Val(mArrC(k - 1)) entonces temstr = mArrC(k) :mArrC(k )= mArrC(k-1):mArrC(k-1)= temstr

Siguiente k

Siguiente j

Imprimir" Nueva matriz: " & ampJoin (mArrC, " ")

Final de unión