Contoh Mengisi Array Dengan Array Lain VB6

Berikut ini adalah contoh mengisi array dengan array lain di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
2. Copy-kan coding berikut ke dalam editor form yang bertalian.
         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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module