LibreOffice 7.6 Help
āĻāĻāĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύā§āϰ āĻŽāϧā§āϝ⧠āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĒā§āϰāϏāĻŋāĻāĻžāϰ⧠āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻ ā§āϝāĻžāϰ⧠āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰ⧠āĻĨāĻžāĻā§, āϝāĻžāϤ⧠āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύā§āϰ āĻŽāĻžāύā§āϰ āĻŦā§āϝāĻŦāĻšāĻžāϰ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰāĻžāϰ āĻĒāϰā§āĻ āĻ āĻŦā§āϝāĻžāĻšāϤ āϰāĻžāĻāĻž āϝāĻžā§āĨ¤ Dim āϏā§āĻā§āĻāĻŽā§āύā§āĻ āύāĻŋā§āĻŽāĻžāĻŦāϞā§āĻ āĻŦā§āϧāĨ¤
āϏā§āĻā§āϝāĻžāĻāĻŋāĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ ā§āϝāĻžāϰ⧠āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻžāϰ āĻāύā§āϝ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāĻž āϝāĻžā§ āύāĻžāĨ¤ āĻ ā§āϝāĻžāϰā§āϏāĻŽā§āĻš āĻ āĻŦāĻļā§āϝāĻ āĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻāĻāĻžāϰ āĻ āύā§āϏāĻžāϰ⧠āĻāϞā§āϞā§āĻāĻŋāϤ āĻšāĻŦā§āĨ¤
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 InitVar() As Integer
Static iInit As Integer
Const iMinimum as Integer = 40 REM āĻĢāĻžāĻāĻļāύā§āϰ āϏāϰā§āĻŦāύāĻŋāĻŽā§āύ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ
if iInit = 0 then REM check if initialized
iInit = iMinimum
Else
iInit = iInit + 1
End If
InitVar = iInit
End Function