fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Array an Function übergeben und Array-Grenzen ermitteln

Uploader:	Sebastian
Datum/Zeit:	13.11.2011 14:01:08

' Beispiel-Code

' Übergeben eines Arrays an eine FUNCTION, die automatisch untere und

' obere Grenze des Datenfeldes ermittelt (LBound und UBound).

' Getestet mit FB 0.23.0 für Linux



Declare Function Summe (Zahlen() As Integer) As Integer



Dim As Integer MeineZahlen(1 To ...) = { 13, 37, 42, 1 }



Print "Summe = "; Summe(MeineZahlen())

Print "Beliebige Taste zum Beenden druecken."

Sleep







Function Summe (Zahlen() As Integer) As Integer

    Dim As Integer x = 0, indexMin, indexMax

    indexMin = LBound(Zahlen)  'Untere Array-Grenze

    indexMax = UBound(Zahlen)  'Obere Array-Grenze

    For i As Integer = indexMin To indexMax

        x += Zahlen(i)

    Next i

    Return x

End Function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.