Инструкция Static

Объявляет переменную или массив на уровне процедуры (то есть внутри процедуры или функции), так что значения данной переменной или массива сохраняются даже после выхода из данной процедуры или функции. Соглашения о инструкции Dim также действительны.

Инструкция Static не может использоваться для определения переменных массивов. Массивы должны объявляться с фиксированным размером.

Синтаксис


Static Имя_переменной[(Начало To Конец)] [As Тип_переменной], Имя_переменной2[(Начало To Конец)] [As Тип_переменной], ...

Пример:


Sub ExampleStatic
Dim iCount As Integer, iResult As Integer
    For iCount = 0 To 2
        iResult = InitVar()
    Next iCount
    MsgBox iInit,0,"Ответ -"
End Sub
 
REM Функция для инициализации статической переменной
Function InitVar() As Integer
    Static iInit As Integer
    Const iMinimum as Integer = 40 REM минимальное значение, возвращаемое этой функцией
    if iInit = 0 then REM проверка инициализации
        iInit = iMinimum
    Else
        iInit = iInit + 1
    End If
    InitVar = iInit
End Function