User:Valmifer

metodo de la burbuja, la cual ordena los numeros de menor a mayor.

PUBLIC SUB Form_Open DIM matriz[6] AS Integer DIM cambio AS Boolean DIM indice AS Integer DIM contador AS Integer DIM x AS Integer matriz[0] = 25 matriz[1] = 8 matriz[2] = 17 matriz[3] = 32 matriz[4] = 1 matriz[5] = 21 cambio = TRUE FOR contador = 0 TO 5 txtSalida.Text = txtSalida.Text & matriz[contador] & " " NEXT txtSalida.Text = txtSalida.Text & Chr$(13) DO WHILE cambio cambio = FALSE FOR indice = 0 TO 4 IF matriz[indice] > matriz[indice + 1] THEN 'Cambiar aquí si quieres otro tipo de orden. x = matriz[indice] matriz[indice] = matriz[indice + 1] matriz[indice + 1] = x               cambio = TRUE END IF        NEXT FOR contador = 0 TO 5 txtSalida.Text = txtSalida.Text & matriz[contador] & " " NEXT txtSalida.Text = txtSalida.Text & Chr$(13) LOOP END