Rekursiv funktion

nu har jeg ikke den store eksamen, så jeg ved ikke hvad du mener med "rekursiv funktion".

Kan du forklare lidt mere.

En rekursiv funktion, er en funktion der kalder sig selv. F.eks.

Function MyFunction(ByVal i As Integer)
    If i < 5 Then
          MyFunction(i + 1) 'Funktionen kalder sig selv.
    End If
End Function

Function RekursivtLoop(Optional strPrint As Variant) As String
    Dim i As Integer
    Dim strPrintOut As String
    For i = 1 To 3
        If Not IsMissing(strPrint) Then
            strPrintOut = strPrint
        End If
        strPrintOut = strPrintOut & CStr(i)
        Debug.Print strPrintOut
        If Len(strPrintOut) < 3 Then
            strPrintOut = rekursiv(strPrintOut)
        End If
    Next
End Function

Function RekursivtLoop(Optional strPrint As Variant) As String
    Dim i As Integer
    Dim strPrintOut As String
    For i = 1 To 3
        If Not IsMissing(strPrint) Then
            strPrintOut = strPrint
        End If
        strPrintOut = strPrintOut & CStr(i)
        Debug.Print strPrintOut
        If Len(strPrintOut) < 3 Then
            strPrintOut = RekursivtLoop(strPrintOut)
        End If
    Next
End Function

Mange tak :)

Lige et spørgsmål... Hvis jeg løber igennem flere tal end blot 3, f.eks. 5 og ændre længden til 4, får jeg ikke alle kombinationerne med. Kan jeg ændre din rutine således at jeg kan løbe igennem disse?

På forhånd tak :)

Det er fordi immediate-vinduet, som du skriver til, ikke kan vise så mange linier (den viser de sidste) - hvis du skriver til en fil kommer det hele med.

Det er derfor... Tak for hjælpen Stry :)