Array

Array

• Array adalah sekumpulan variabel dengan nama sama serta type data sama
• Untuk merujuk ke data tertentu maka digunakan index, di vb array adalah berbasis nol jadi jika ditulis data(5) berarti ada 6 nilai yaitu data(0), data(1),..,data(5) kecuali dideklarasikan dengan data(1 to 5) artinya ada 5 data
• Jika diawal module kita tulis “option base 1″ maka berarti array akan dimulai dari angka 1, jika tidak maka VB akan selalu berbasis 0

Syntax :
Dim varname([subscripts]) [As type]
Contoh :

'dimulai dari 1 s.d 100, misalnya strNama(1)....strNama(100)
Dim strNama(1 to 100) as string
'karena tidak ada option base maka dimulai dari 0
'jadi array dibawah ini dimulai dari 0 s.d 99
Dim strNames(100) as string
'dinamis, akan berubah saat runtime
Dim intSales() as integer
'array multidimensi, misalnya lngData(1,1) ... lngData(12,100)
Dim lngData(1 to 12, 1 to 100) as long


• Kalo array () artinya bisa diisi dengan berapapun jumlah datanya,  array dinamis
• Array juga bisa multi dimensi, kalo contoh diatas maka datanya ada 12×100=1200 data, dari lngData(1,1) sampat lngData(12,100)
• Untuk mengisi bisa satu persatu, pakai For .. Next atau gunakan fungsi Array

Option Base 1
Sub isi_array()
'dimulai dari 1 s.d 100 karena ada option base 1
Dim strNama(100) As String
For k = 1 To 100
strNama(k) = "nama ke " & k
Next
MsgBox strNama(67)
End Sub
Sub Isi_with_array_function()
Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay2 = MyWeek(2) ' MyDay contains "Tue".
MyDay4 = MyWeek(4) ' MyDay contains "Thu".
MsgBox "MyDay2 = " & MyDay2 & vbCrLf & "MyDay4 = " & MyDay4
End Sub