Contoh Penggunaan Array Dan Penerapan Pada Variabel ~ Tutorial Gambas

Public Sub Form_Open()

Dim a, b, c As New String[3]

a[0] = "aku-"

a[1] = "mereka-"

a[2] = "dia-"

b[0] = "ingin-"

b[1] = "mau-"

b[2] = "suka-"

c[0] = "cina-"

c[1] = "indonesia-"

c[2] = "amerika-"

Print a[0] & b[2] & c[1]

End

Result:

aku-cinta-indonesia

Diatas jumlah index array dibatasi hanya tiga.

Untuk membuat array dimana tiap-tiap valuenya di set langsung tanpa dibatasi jumlah index maka bisa menggunakan array berikut:

Dim Arr As String[]

Dim N As Byte

Arr = ["Saya",  "lagi", " belajar"]

For  N = 0 To Arr.Max

Print Arr[N]

Next

Jika nilai Array tidak di set langsung tanpa dibatasi jumlah index maka deklarasi ditambahkan "New".

Dim Arr As New Integer[]

'Jika dibatasi index memakai Dim Arr As New Integer[12]

Dim N As Byte

Arr.Add(7)

Arr.Add(1)

Arr.Add(5)

For N = 0 To Arr.Max

Print Arr[N]

Next