Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a As List(Of String) = Permutacje("1234")
'For i As Integer = 0 To a.Count = 1
'TextBox1.Text += a(i) + vbNewLine
'Next
For Each Permutacje As String In a
TextBox1.Text() += Permutacje() + vbNewLine;
Next


End Sub

Function Permutacje(ByVal DanaPermutacja As String) As List(Of String)

Dim Wynik As New List(Of String)
Dim Aux As New List(Of String)

If DanaPermutacja.Length = 1 Then
Wynik.Add(DanaPermutacja)
Else
Aux = Permutacje(DanaPermutacja.Remove(0, 1))
For Each Element As String In Aux
For i As Integer = 0 To Element.Length
Wynik.Add(Element.Insert(i, DanaPermutacja(0)))
Next
Next
End If
Return Wynik
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
End Class

Jak Przemek oddawał program to się go pytał o takie rzeczy  że spokojnie mógł mu za to dać 5 a dostał tylko 3 ;/

widze to w czarnych barwach, chyba ze można mu oddac jakis inne programy "prostsze"

EDIT:

Co mamy dokładnie się nauczyć na Egzamin ze Sztucznej? Jakie wykłady?

Ostatnio edytowany przez Glodny (2010-06-21 19:54:02)