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

Mohon dukung kami!