Isi

# 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.

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