VB escribe un programa para ingresar y mostrar dos matrices ordenadas, fusionar las dos matrices en una nueva matriz ordenada y mostrar la nueva matriz.

Requerir:

Atenuar a(20) como entero, b(20) como entero, c(40) como entero

Atenuar n1 como entero, n2 como entero, n3 como entero

Subcomando privado1_Click() getdata a(), n1 Texto1 = Texto1 amp; "Una matriz:" amp vbCrLf xs a(), n1

End Sub

Subcomando privado2_Click() getdata b(), n2 Texto1 = Texto1 amp; "matriz B:" amp vbCrLf xs b(), n2

Fin Sub

Subcomando privado3_Click( ) hebin a(), n1, b(), n2, c(), n3 Texto1 = Texto1 amp; "matriz C después de fusionar:" vbCrLf xs c, n3

End Sub

Sub getdata(ByRef a() como entero, ByRef n como entero) Mientras que a(n) gt = 0

n = n 1

a(n ) = InputBox("Ingrese un número entero en orden ascendente, que termine con un número negativo:") Wend n = n - 1

End Sub

Sub xs(ByRef a() As Entero, ByRef n Como entero) Para i = 1 To n

Texto1 = Texto1 amp; >End Sub

Sub hebin(ByRef a() Como entero, n1 Como entero, ByRef b() Como entero, n2 Como entero, ByRef c() Como entero, ByRef n3 Como entero) i = 1 : j = 1: n3 = 1 Mientras i lt; = n1 Y j lt; = n2

Si a(i) lt; entonces

? ) = a (i)

? i = i 1

Si no

? ? j = j 1

Finalizar si

n3 = n3 1 Terminar mientras i = n1

c(n3) = a(i)

i = i 1

n3 = n3 1 Wend Mientras j lt = n2

c(n3) = b(j)

j = j 1

n3 = n3 1 Ven n3

= n3 - 1

Fin Sub

Sub privado Form_Load() Texto1 = "" Texto2 = ""

Fin Sub