Static Statement

αž”αŸ’αžšαž€αžΆαžŸβ€‹αž’αžαŸαžšβ€‹αž˜αž½αž™ αž¬β€‹αž’αžΆαžšαŸβ€‹αž˜αž½αž™β€‹αž“αŸ…β€‹αž€αž˜αŸ’αžšαž·αžβ€‹αž”αŸ‚αž”αž”αž‘β€‹αž“αŸ…β€‹αž€αŸ’αž“αž»αž„β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„β€‹αž˜αž½αž™ αž¬β€‹αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž˜αž½αž™ αžŠαžΌαž…αŸ’αž“αŸαŸ‡β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž“αŸƒβ€‹αž’αžαŸαžš αž¬β€‹αž’αžΆαžšαŸβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž‘αž»αž€β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹β€‹αž–αžΈβ€‹αž…αŸαž‰β€‹αž–αžΈβ€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„ αž¬β€‹αž’αž“αž»αž‚αž˜αž“αŸΒ αŸ” αž€αžΆαžšβ€‹αžŸαž“αŸ’αž˜αžβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Dim αž€αŸβ€‹αž˜αžΆαž“β€‹αžŸαž»αž–αž›αž—αžΆαž–β€‹αž•αž„β€‹αžŠαŸ‚αžšΒ αŸ”

αžšαžΌαž”β€‹αžαŸ†αžŽαžΆαž„β€‹αž–αŸ’αžšαž˜αžΆαž“

αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Static αž˜αž·αž“β€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžΎβ€‹αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž€αŸ†αžŽαžαŸ‹β€‹αž’αžΆαžšαŸβ€‹αž’αžαŸαžšΒ αŸ” αž’αžΆαžšαŸβ€‹αžαŸ’αžšαžΌαžœβ€‹αžαŸ‚β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹β€‹β€‹αž‘αŸ…β€‹αžαžΆαž˜β€‹αž‘αŸ†αž αŸ†β€‹αžαŸαžšΒ αŸ”


αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

Static VarName[(start To end)] [As VarType], VarName2[(start To end)] [As VarType], ...

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–

Sub ExampleStatic

Dim iCount As Integer, iResult As Integer

    For iCount = 0 To 2

        iResult = InitVar()

    Next iCount

    MsgBox iResult,0,"The answer is"

End Sub

 

REM Function for initialization of the static variable

Function InitVar() As Integer

    Static iInit As Integer

    Const iMinimum as Integer = 40 REM minimum αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž“αŸαŸ‡

    if iInit = 0 then REM αž–αž·αž“αž·αžαŸ’αž™β€‹αžαžΆαžαžΎβ€‹αž”αžΆαž“αž…αžΆαž”αŸ‹β€‹αž•αŸ’αžŠαžΎαž˜β€‹αž¬αž’αžαŸ‹

        iInit = iMinimum

    Else

        iInit = iInit + 1

    End If

    InitVar = iInit

End Function