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
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
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.