Preguntas de programación de VB buscando un programa completo

¿Para?i?=?0?A?UBound(b)

Texto1.Texto?=?Texto1.Texto?&?b(i)? (2)

Siguiente

Llamar?array(b) 'Código suplementario

¿Para?i?=?0?A?UBound(b)?Supplementario Código

Texto2.Text?=?Texto2.Text?&?b(i)? &?Espacio(2)

Siguiente

Fin?Sub

Sub?arrange(a())

Dim?m como un número entero, n como un número entero, k como un número entero

m = UBound (a)

n = m

Hacer mientras m > 0

Si a(m) = a(m?Entonces

Para?k? =?m ?A?n'Código complementario

a(k?-?1)? =?a(k)

Siguiente?k

n ?=? n?-?1?1?"Código complementario

Bucle

ReDim?Preserve?a(n)

End?Sub

Captura de pantalla de los resultados de ejecución:

Idea de código:

La forma en que el código elimina elementos duplicados es comenzar desde el final de la matriz, comparar el elemento actual y el anterior. elemento, y compare dos elementos adyacentes cada vez, si son iguales, elimine el elemento actual (sobrescriba) y avance los siguientes elementos en un número de secuencia, y así sucesivamente, hasta el comienzo de la matriz, y modifique la matriz para el nuevo tamaño (eliminar elementos duplicados)

Ejemplo de ejecución:

Inicial:

Cuando m = 9, a(9) = a(8), el De la misma manera, ¿es necesario desplazar a(9)? Dividir (cubrir) y avanzar los elementos después de a(9) uniformemente en un número de secuencia:?

Otros elementos avanzan en secuencia