Static Statement

ཡན་ལག་བྱ་རིམ་མམ་རྟེན་གྲངས་ནང་བརྒྱུད་རིམ་རིམ་པའི་འགྱུར་ཚད་དམ་ཚོ་གྲངས་གསལ་བཤད་ལ་སྤྱོད་ ཡན་ལག་དཔེ་རིམ་མམ་རྟེན་གྲངས་ནས་ཕྱི་ཐོན་བྱས་རྗེས་འགྱུར་ཚད་དེ་དག་གམ་ཚོ་གྲངས་ཀྱི་གྲངས་སོག་ཉར་བྱ་ཐུབ་པའི་ཆེད་དུ་ཡིན།

ཐ་ཚིག་རིས་རྟགས་

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 iInit,0,"The answer is"

End Sub

 

REM སྡོད་རྣམ་འགྱུར་ཚད་ཐོག་མ་ཅན་གྱི་རྟེན་གྲངས་ལ་སྤྱོད་

Function InitVar() As Integer

    Static iInit As Integer

    Const iMinimum As Integer = 40 ' minimum return value of this function

    If iInit = 0 Then ' check if initialized

        iInit = iMinimum

    Else

        iInit = iInit + 1

    End If

    InitVar = iInit

End Function