Module
Contents
Index 🔎︎

# 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