ຄຳສັ່ງ 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,"ຄຳຕອບແມ່ນ"
End Sub
 
' ຟັງຊັນສຳລັບກຳນົດຄ່າເລີ່ມຕົ້ນຂອງຕົວປ່ຽນ static
Function InitVar() As Integer
    Static iInit As Integer
    Const iMinimum As Integer = 40 ' ຄ່າຕ່ຳສຸດທີ່ສົ່ງຄືນຈາກຟັງຊັນນີ້
    If iInit = 0 Then ' ກວດສອບວ່າມີການກຳນົດຄ່າເລີ່ມຕົ້ນແລ້ວຫຼືບໍ່
        iInit = iMinimum
    Else
        iInit = iInit + 1
    End If
    InitVar = iInit
End Function