Paso 11: El código: suberteens y salida
al final justo antes de clase"final" agregar lo siguiente:
Private Sub sort()
g = True
Hasta g = False
g = False
Para y = 0 a i - 2
Si UCase (gf (0, y)) > UCase (gf (0, y + 1)) entonces
g = True
Para x = 0 a 7
KL = gf (x, y)
GF (x, y) = gf (x, y + 1)
GF (x, y + 1) = kl
Siguiente
End If
Siguiente
Lazo
ListBox1.Items.Clear()
Para nm = 0 a i - 1
ListBox1.Items.Add (gf (0, nm) & "~ ~" & gf (1, nm) & "~ ~" & gf (2, nm) & "~ ~" & gf (3, nm) & "~ ~" & gf (nm 4,) & "~ ~" & gf (nm 5,) & "~ ~" & gf (nm 6,) & "~ ~" & gf (7 nm))
Siguiente
End Sub
Private Sub ad()
Para r = 0 a i - 1
ListBox1.Items.Add (gf (0, r) & "~ ~" & gf (1, r) & "~ ~" & gf (2, r) & "~ ~" & gf (3, r) & "~ ~" & gf (4, r) & "~ ~" & gf (5, r) & "~ ~" & gf (6, r) & "~ ~" & gf (7, r)) ' agregar elementos de array en listbox1
Siguiente
End Sub
Privada Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja ExitToolStripMenuItem1.Click
Si k = False Then a = (MsgBox ("está seguro que desea salir", vbYesNo) - 6) final otra cosa
Si a = falso entonces terminar
End Sub
