Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

rekursion rulez2

Uploader:Redakteurytwinky
Datum/Zeit:18.06.2007 20:34:18

Function StringWiederholung(Muster As String, Anzahl As UInteger) As String
  Select Case Anzahl
    Case 0: Exit Function
    Case 1: Return Muster
    Case Else :Return Muster &StringWiederholung(Muster, Anzahl-1)
  End Select
End Function