Mengisi Array dengan Array Lain

Selamat datang di Leak, terimakasih karena anda telah berkunjung ke blog saya, kali ini saya akan menulis tentang Mengisi Array dengan Array Lain, semoga informasi yang anda cari ada disini, selamat membaca.

- Buatlah sebuah project baru, tambahkan sebuah Command Button


- Masukkan code di bawah ke dalam Code View

Private Sub Command1_Click()
Dim intX As Integer 'Deklarasi counter array
'Deklarasi dan isi sebuah array integer.
Dim countersA(5) As Integer
For intX = 0 To 4
countersA(intX) = intX
Next intX
'Deklarasi dan isi sebuah array string.
Dim countersB(5) As String
For intX = 0 To 4
countersB(intX) = "Teks ke-" & intX
Next intX
Dim arrX(2) As Variant 'Deklarasi sebuah array.
'Dalam hal ini kita tidak menggunakan indeks ke-0
arrX(1) = countersA() 'Isi arrX(1) dengan array CountersA
arrX(2) = countersB() 'Isi arrX(2) dengan array CountersB

'Tampilkan sebuah elemen dari setiap arrX
MsgBox arrX(1)(2) 'Menghasilkan 2
MsgBox arrX(2)(3) 'Menghasilkan "Teks ke-3"
End Sub

- Hasilnya :
Setelah Command Button1 di klik


Demikian informasi dari saya tentang Mengisi Array dengan Array Lain yang dapat saya sampaikan, semoga berguna dan dapat menambah pengetahuan bagi yang membacanya.