Mendeklarasi dan Mengakses Array

Mendeklarasi dan Mengakses Array

'Deskripsi: Mendeklarasikan array dan mencoba untuk mengakses setiap
'           elemennya.
'Pembuat  : Masino Sinaga (masino_sinaga@posindonesia.co.id)
'Diupload : Jumat, 10 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
'           2. Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------

Dim i As Integer, j As Integer

Private Sub Command1_Click()
 Dim Counters(14) As Integer
 Dim Sums(20) As Double
 'Deklarasi pertama membuat sebuah array dengan 15 element,
 'dengan nomor indeks dimulai dari 0 sampai 14. Yang kedua
 'membuat sebuah array dengan 21 element, dengan nomor
 'indeks dimulai dari 0 sampai 20.
 'Default indeks terendah adalah 0 (nol).
 'Berikut salah satu cara untuk mengisi
 'dan mengakses array tsb:
 For i = 0 To 14
   Counters(i) = i
   MsgBox Counters(i)
 Next i

 For j = 0 To 20
   Sums(j) = j * 0.2
   MsgBox Sums(j)
 Next j

 'Untuk membuat elemen array yang terendah sesuai dengan keinginan, kita harus
 'mengekspresikannya secara eksplisit (seperti sebuah tipe data Long) menggunakan
 'kata kunci "To". Perhatikan contoh di bawah ini:
 Dim Counters1(1 To 15) As Integer
 Dim Sums1(100 To 120) As String
 'Deklarasi yang pertama, jumlah indeks dari Counters1 mulai dari 1 sampai 15,
 'dan jumlah indeks dari Sums1 mulai dari 100 sampai 120.
 'Berikut cara mengisi dan mengakses array tsb:
 For i = 1 To 15
    Counters1(i) = i
    MsgBox Counters1(i)
 Next i

 For j = 100 To 120
    Sums1(j) = "String ke-" & j
    MsgBox Sums1(j)
 Next j

End Sub