Static Statement

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