Static Statement
éĸæ°ãããŗãĩããĢãŧããŗå ã§å¤æ°ãé åãåŽįžŠããéãĢããããããããˇãŧã¸ãŖãŧãŦããĢã§ååŠį¨ãããã¨ãåŽŖč¨ããĻã芲åŊããéĸæ°ãããŗãĩããĢãŧããŗãįĩäēããĻãããããã夿°ãé åãĢäģŖå Ĩããå¤ãäŋæãããããĢããžããããã§ã¯ 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 InitVar() As Integer
Static iInit As Integer
Const iMinimum as Integer = 40 REM minimum return value of this function
if iInit = 0 then REM check if initialized
iInit = iMinimum
Else
iInit = iInit + 1
End If
InitVar = iInit
End Function