IBM Lotus Symphony
|
Объявляет переменную или массив на уровне процедуры в процедуре или функции, так что значения переменной и массива будут сохранены после завершения процедуры или функции. Кроме того, действуют соглашения оператора 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 iResult,0,"The answer is"
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