Combinatorias

[luis456]

Alguien me podria explicar como funciona este codigo de combinatoria quiero aprender pero rompiendo yo las cosas o sea probando; bien este codigo forma combinaciones posibles y estoy tratando que me haga y muestre combinaciones de solo cuatro , no importa el largo del string

Código (vbnet) [Seleccionar] Expandir

Public Class Form1


   Dim Caracteres(1000) As String


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i, j, k As Integer
       Dim Combinacion As String
       Dim Existe As Boolean

       For i = 0 To TextBox1.Text.Length - 1
           Caracteres(i) = TextBox1.Text.Substring(i, 1)
       Next

       For i = 0 To TextBox1.Text.Length - 1
           For j = 0 To TextBox1.Text.Length - 1

               Existe = False

               Combinacion = TextBox1.Text.Remove(i, 1)
               Combinacion = Combinacion.Insert(i, Caracteres(j))

               Combinacion = Combinacion.Remove(j, 1)
               Combinacion = Combinacion.Insert(j, Caracteres(i))

               For k = 0 To ListBox1.Items.Count - 1
                   If Combinacion = ListBox1.Items(k) Then Existe = True
               Next

               If Existe = False Then ListBox1.Items.Add(Combinacion)

           Next
       Next
   End Sub
End Class

[kub0x]

Buenas luis456,

Visual Studio viene con un apartado de debugging extenso y su manejo es primordial. Si no sabes lo que hace este fragmento de código deberías, al menos, analizarlo (debugging) por tu cuenta y ver los resultados.

Un saludo.