Fungsi UBound berguna untuk mengambil index tertinggi dari suatu array sedangkan LBound untuk mengambil data index terendah dari suatu array.
Cara penulisan:
UBound(arrayname[, dimension])
LBound(arrayname[, dimension])
Argumen:
- Arrayname adalah nama variabel array.
- Dimension adalah dimensi array yang data indexnya ingin diketahui. Jika tidakdisebutkan maka dianggap dimensi pertama.
Contoh penggunaan:
Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim A(1 To 10, -2 To 4)
A(1, 1) = "X"
MsgBox A(1, 1)
Msgbox “Index terendah array dimensi pertama : “ & LBound(A) & _
“ Index tertinggi array pertama : & UBound(A)
MsgBox "Jumlah index aray dimensi pertama: " & UBound(A) - LBound(A) + 1
End Sub
Penjelasan script program:
Statemen Dim A(1 To 10, -2 To 4) adalah statemen deklarasi aray dua dimensi. Dimensi pertama memiliki index mulai dari 1 sampi 10 sedangkan dimensi kedua mempunyai index dari -2 sampai 4.
Statemen A(1, 1) = "X" adalah statemen assignment yang memberi nilai “X” ke aray dengan index 1 pada dimensi 1 dan index 1 pada dimensi 2
Statemen MsgBox A(1, 1) adalah statemen untuk menampilkan isi data array A(1,1)
MsgBox "Index terendah array : " & LBound(A) & " Index tertinggi array " & UBound(A) adalah untuk menampilkan index terendah dan tertinggi untuk array dimensi pertama.
MsgBox "Jumlah index aray dimensi 1 " & UBound(A) - LBound(A) + 1 adalah statemen untuk menampilkan panjang/jumlah index array dimensi pertama.
No comments:
Post a Comment