Pernyataan Statis

Mendeklarasikan variabel atau array pada level prosedur dalam subrutin atau fungsi, sehingga nilai-nilai variabel atau array dipertahankan setelah keluar dari subrutin atau fungsi. Konvensi pernyataan samar juga valid.

Ikon Peringatan

Pernyataan Statis tidak dapat digunakan untuk mendefinisikan variabel array. Array harus ditentukan sesuai dengan ukuran tetap.


Sintaksis:

Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]

Contoh:

Sub ExampleStatic

Dim iCount As Integer, iResult As Integer

    For iCount = 0 To 2

        iResult = InitVar()

    Next iCount

    MsgBox iResult,0,"Jawabannya adalah"

End Sub

 

'Fungsi untuk inisialisasi variabel statis

Function InitVar() As Integer

    Static iInit As Integer

    Konstanta iMinimum Sebagai Integer = nilai pengembalian minimum fungsi ini

    Jika iInit = 0 Lalu 'periksa apakah diinisialisasi

        iInit = iMinimum

    Else

        iInit = iInit + 1

    End If

    InitVar = iInit

End Function