Sub Statement

Tinutukoy ang isang subroutine.

Syntax:

Diagram ng Sub Statement


[Private | Public] Sub name[(argument1 [As typename][, argument2[char][,...]])]
    ' mga pahayag
    [Exit Sub]
    ' mga pahayag
End Sub

Mga Parameter:

pangalan: Pangalan ng subroutine.

mga argumento: Mga opsyonal na parameter na gusto mong ipasa sa subroutine.

fragment ng argumento


      {[Optional [ByRef|ByVal]]|ParamArray} argument {{As typename|char}[ = expression]|[()]As Variant}

Mga Parameter

Opsyonal : Ang argumento ay hindi sapilitan.

ByRef : Ang argumento ay ipinasa sa pamamagitan ng sanggunian. ByRef ay ang default.

ByVal : Ang argumento ay ipinasa sa pamamagitan ng halaga. Ang halaga nito ay maaaring mabago ng tinatawag na routine.

char: I-type ang character ng deklarasyon.

typename : Primitive na pangalan ng uri ng data. Ang mga uri ng tinukoy sa library o module ay maaari ding tukuyin.

= pagpapahayag : Tumukoy ng default na halaga para sa argumento, na tumutugma sa ipinahayag na uri nito. Opsyonal ay kinakailangan para sa bawat argumento na tumutukoy sa isang default na halaga.

ParamArray : Gamitin ParamArray kapag ang bilang ng mga parameter ay hindi natukoy. Ang isang karaniwang senaryo ay ang isang function na tinukoy ng gumagamit ng Calc. Gamit ParamArray ay dapat na limitado sa huling argumento ng isang gawain.

Gamit ParamArray o = pagpapahayag nangangailangan Katugmang Pagpipilian na ilalagay bago ang executable program code sa isang module.

Kapag gumagamit Opsyon VBASupport 1 , Opsyonal mga argumento na walang default na halaga ( = pagpapahayag ) ay sinisimulan ayon sa kanilang uri ng data, maliban kung Variant .

fragment ng typename

primitive na mga uri ng data fragment


      {Boolean|Byte|Currency|Date|Double|Integer|Long|Object|Single|String|Variant}

char fragment

uri ng mga character ng deklarasyon


      { % | & | ! | # | $ | @ }

Mga halimbawa:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    Para sa siStep = 0 Hanggang 10 ' Punan ang hanay ng data ng pagsubok
        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
' Hinahanap ng Linsearch ang isang TextArray:sList() para sa isang TextEntry:
' Return value Ay ang index ng entry O 0 (Null)
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Lumabas Para sa ' sItem na natagpuan
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Mga pangunahing kaalaman sa subroutine

Paggamit ng Mga Pamamaraan, Mga Pag-andar at Mga Katangian

Pahayag ng Function

Pahayag ng Ari-arian