Static Statement

āĻāĻ•āϟāĻŋ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻ§ā§āϝ⧇ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ⧇ āĻāĻ•āϟāĻŋ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…āĻĨāĻŦāĻž āĻ…ā§āϝāĻžāϰ⧇ āĻĄāĻŋāĻ•ā§āĻ˛ā§‡ā§ŸāĻžāϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āϝāĻžāϤ⧇ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻžāύ⧇āϰ āĻŦā§āϝāĻŦāĻšāĻžāϰ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰāĻžāϰ āĻĒāϰ⧇āĻ“ āĻ…āĻŦā§āϝāĻžāĻšāϤ āϰāĻžāĻ–āĻž āϝāĻžā§ŸāĨ¤ Dim āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āύāĻŋ⧟āĻŽāĻžāĻŦāϞ⧀āĻ“ āĻŦ⧈āϧāĨ¤

āϏāϤāĻ°ā§āĻ•āϤāĻžāĻŽā§‚āϞāĻ• āφāχāĻ•āύ

āĻ¸ā§āĻŸā§āϝāĻžāϟāĻŋāĻ• āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…ā§āϝāĻžāϰ⧇ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āϝāĻžā§Ÿ āύāĻžāĨ¤ āĻ…ā§āϝāĻžāϰ⧇āϏāĻŽā§‚āĻš āĻ…āĻŦāĻļā§āϝāχ āĻāĻ•āϟāĻŋ āύāĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āϟ āφāĻ•āĻžāϰ āĻ…āύ⧁āϏāĻžāϰ⧇ āωāĻ˛ā§āϞ⧇āĻ–āĻŋāϤ āĻšāĻŦ⧇āĨ¤


āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

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 InitVar() As Integer

    Static iInit As Integer

    Const iMinimum as Integer = 40 REM āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āϏāĻ°ā§āĻŦāύāĻŋāĻŽā§āύ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ

    if iInit = 0 then REM check if initialized

        iInit = iMinimum

    Else

        iInit = iInit + 1

    End If

    InitVar = iInit

End Function