Static Statement

འགྱུར་ཅན་ཡང་ན་ཨེ་རེ་བྱ་སྒོའི་ལམ་ལུགས་གནས་རིམ་་རྒྱུན་ལས་འོག་མ་ཡང་ན་ལས་འགན་ནང་འཁོད་ལུ་མཚོན་གྲངས་འབདཝ་ཨིནམ་ལས་ གནས་གོང་ཚུ་གི་འགྱུར་ཅན་ཡང་ན་ཨེ་རེ་ཆ་མཉམ་རྒྱུན་ལས་འོག་མ་ཡང་ན་ལས་འགན་དེ་ཕྱིར་ཐོན་འབད་བའི་ཤུལ་ལུ་བཞགཔ་ཨིན། ཌི་ཨའི་ཨེམ་གསལ་བཤད་གཞི་བསྒྱུར་ཚུ་ཡང་ཆ་མཉམ་ནུས་ཅན་ཨིན།

ཉེན་བརྡའི་ངོས་དཔར།

རྟག་གཏན་གསལ་བཤད་དེ་ འགྱུར་ཅན་ཨེ་རེ་ཚུ་ལུ་ངེས་འཛིན་འབད་ནི་ལག་ལེན་འཐབ་མི་བཏུབ་ཨིན། ཨེ་རེ་ཚུ་རྟག་གཏན་བཟོ་ཡོད་མི་ཚད་ལུ་འཁྲིལ་གསལ་བཀོད་འབད་དགོཔ་ཨིན།


ཚིག་སྦྱོར:

རྟག་བརྟན་ཝར་མིང་[(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

 

རྟག་བརྟན་འགྱུར་ཅན་གྱི་འགོ་འབྱེད་དོན་ལུ་ལས་འགན་ཨར་ཨི་ཨེམ།

Function InitVar() As Integer

    Static iInit As Integer

    Const iMinimum as Integer = 40 REM minimum return value of this function

    if iInit = 0 then REM check if initialized

        iInit = iMinimum

    Else

        iInit = iInit + 1

    End If

    InitVar = iInit

End Function