Problemas de programación vb2010

¿Público?Clase?Form1

Privado?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1 .Haga clic en

Dim?tStrings(100)?As?String

Dim?i,?j?As?Integer

Para?i?=?0 ?To?ListBox1.Items.Count?-?1

tStrings(i)?=?ListBox1.Items(i)

'Clasificación de burbujas

¿Para?i?=?0?To?ListBox1.Items.Count?-?1

Para?j?=?0?To?ListBox1.Items.Count? ?i?-?2

Si?tStrings(j)?gt;?tStrings(j? ?1)?Entonces

Dim?tmp?As?String

tmp?=?tStrings(j)

tStrings(j)?=?tStrings(j? ?1)

tStrings(j? ?1)?=?

¿Fin?Si

¿Para?i?=?0?To?ListBox1.Items.Count? ?1

ListBox2.Items.Add(tStrings(i))

Fin?Sub

¿Privado?Sub? (ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

ListBox1.Items.Add("China")

ListBox1.Items.Add("América")

ListBox1.Items.Add("Japón")

ListBox1.Items.Add("Fútbol")

ListBox1.Items.Add("Tenis")

ListBox1.Items.Add("Baloncesto")

¿Fin?Sub

¿Fin de clase?

Ejecutar resultados: