Ayuda a diseñar un programa VB.

Agregue 2 cuadros de texto y 2 botones, y guarde el archivo de TEXTO en el directorio del mismo proyecto.

El proceso de clasificación distingue entre mayúsculas y minúsculas. Si no es necesario distinguir entre mayúsculas y minúsculas. por favor agregue código Convierta todos los nombres a minúsculas o mayúsculas

Dim a() As String 'Guardar la variable de nombre

Private Sub Command1_Click() 'Importa el contenido del archivo de TEXTO al proyecto

Atenuar i como entero

Abrir App.Path + "\name.txt" para entrada como #1

Hacer mientras no sea EOF(1)

ReDim Preservar a(i)

Entrada #1, a(i)

Texto1.Texto = Texto1.Texto + a(i) + vbCrLf

i = i + 1

Bucle

Cerrar #1

Fin Sub

Subcomando privado2_Click() ' Ordene los nombres alfabéticamente, sobrescriba el archivo de TEXTO original

Dim i como entero, j como entero, s como cadena

For i = 0 To UBound(a) - 1 'Ordenar

Para j = i + 1 a UBound(a)

Si a(j) < a(i) Entonces

s = a(j): a(j ) = a(i ): a(i) = s

Finalizar si

Siguiente j

Siguiente i

Abrir aplicación. Ruta + "\Name .txt" Para salida como #1

Para i = 0 Para UBound(a) 'Exportar el contenido ordenado a un archivo de TEXTO

Texto2.Texto = Texto2 .Text + a( i) + vbCrLf

Imprimir #1, a(i)

Siguiente i

Cerrar #1

Fin Sub