Modul XI

Bukan Array :

Dim t1,t2,t3,t4,t5 as single
t1=171,5
t2=177,8
t3=165,5
t4=150,9
t5=164,3

Variabel array :
Dim Nilai (5) As Byte
Nilai(1) = 90
Nilai(2) = 70
Nilai(3) = 85
Nilai(4) = 95
Nilai(5) = 75

Penghitungan dimensi Pada Array :
Cth :
1. Rancang antar muka seperti berikut :

2. Ketikkan kode brikut,carannya klik double CMD Proses

Private Sub Command1_Click()
Dim I As Byte
For I = 1 To 20
List1.AddItem (I * 5)
Next I
End Sub

Hasilnnya seperti brikut.