Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Πρόταση Function

Καθορίζει μια δευτερεύουσα διαδικασία που μπορεί να χρησιμοποιηθεί ως παράσταση για τον καθορισμό μιας τιμής επιστροφής.

## Σύνταξη

Δείτε: Παράμετρος

## Παράμετροι:

Σύνταξη

Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]

ομάδα προτάσεων

[Exit Function]

ομάδα προτάσεων

Τέλος συνάρτησης

Παράμετρος

Name: Όνομα της δευτερεύουσας διαδικασίας που πρόκειται να περιέχει την τιμή που επιστρέφει η συνάρτηση.

VarName: Παράμετρος που πρόκειται να μεταβιβαστεί στην υπορουτίνα.

Type: Λέξη-κλειδί δήλωσης τύπου.

## Παράδειγμα:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        For siStep = 0 to 10 ' Γεμίζει τον πίνακα με τα δεδομένα δοκιμής
            sListArray(siStep) = chr$(siStep + 65)
            MsgBox sListArray(siStep)
        Next siStep
        sReturn = LinSearch(sListArray(), "B")
        Print sReturn
    End Sub

    Function LinSearch( sList(), sItem As String ) As Integer
    Dim iCount As Integer
    ' Η Linsearch αναζητεί ένα TextArray:sList() για TextEntry:
    ' Η τιμή επιστροφής είναι ο δείκτης της καταχώρησης ή 0 (Null)
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                Exit for ' το sItem βρέθηκε
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function