Dios mío, me duele la cabeza. Estoy haciendo la tarea de programación en medio de la noche. Todavía no puedo entender una idea. Quiero una programación sencilla para resolver problemas. .

Private Sub Command1_Click()

MyValue = InputBox("Ingrese "& List1.ListCount + 1 & "nombre del país")

AddItem. MyValue

End Sub

Private Sub Command2_Click()

ReDim a(0 To List1.ListCount - 1) As String

Para i = 0 A List1.ListCount - 1

a(i) = List1.List(i)

Siguiente

Ordenar a

List2.Clear

Para i = 0 Para List1.ListCount - 1

List2.AddItem a(i)

Siguiente

Para i = 0 a List2.ListCount - 1

Si List2.List(i) = "China" Entonces

List2.RemoveItem i

Salir para

Finalizar si

Siguiente

List2.AddItem "China"

Fin Sub

Subcomando privado3_Click( )

Descargarme

End Sub

Private Sub Sort(a() As String)

For i = LBound(a) To UBound(a) - 1

Para j = i + 1 Para UBound(a)

Si a(i) > a(j) Entonces

t = a(i): a(i) = a(j): a(j) = t

Finalizar si

Siguiente j

Siguiente i

Fin del subtítulo