LibreOffice 7.5 Help
αααααΆαβα’αααβαα½α α¬βα’αΆααβαα½αβαα βααααα·αβαααααβαα βαααα»αβααααααβααΆαβααβαα½α α¬βα’αα»ααααβαα½α ααΌα ααααβαααααβααβα’ααα α¬βα’αΆααβααααΌαβααΆαβαα»αβαααααΆααβααΈβα ααβααΈβααααααβααΆαβαα α¬βα’αα»ααααΒ α ααΆαβαααααβααα ααααΈβαααααβααΆααα Dim ααβααΆαβαα»ααααΆαβααβαααΒ α
ααα ααααΈβαααααβααΆααα 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,"The answer is"
End Sub
REM Function for initialization of the static variable
Function InitVar() As Integer
Static iInit As Integer
Const iMinimum as Integer = 40 REM minimum αααα‘ααβαααααβα’αα»ααααβααα
if iInit = 0 then REM αα·αα·αααβααΆααΎβααΆαα
αΆααβααααΎαβα¬α’αα
iInit = iMinimum
Else
iInit = iInit + 1
End If
InitVar = iInit
End Function