VB 6.0 : Program Array dan Array 2 Dimensi

1.Buat CommandButton1 (input)

Private Sub Command1_Click()

            Dim no As Integer, i As Integer

   

 2.Buat CommandButton2 (Redim)

Private Sub Command2_Click()

             Dim num As Integer, i As Integer

   

    If Not IsNumeric(Text1.Text) Then Exit Sub

    num = CInt(Text1.Text)

    'ReDim NamaSiswa(1 To num)

    ReDim Preserve NamaSiswa(1 To num)

 

3.Buat 1 comboBox dan TexBox dengan kode dibawah ini

no = CInt(Combo1.Text)

    NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input Nama Siswa")

    If NamaSiswa(no) <> "" Then

        List1.Clear

        For i = 1 To UBound(NamaSiswa)

            List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)

        Next i

    End If

End Sub

  4.Buat 1 ListBox dengan kode dibawah ini 

    Combo1.Clear

    List1.Clear

    For i = 1 To UBound(NamaSiswa)

        Combo1.AddItem i

        List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)

    Next i

    Combo1.ListIndex = 0

  End Sub 

----------------------------------------------------------------------------------------------

Buat project baru dengan standardEXE(2)

Tambahkan komponen-komponen: 3 buah label, 1 buah textbox, 1 buah listbox,dan 2 buah command buttom(3)

Pada jendela code, tambahkan kode perogram sebagai berikut:

'Definisi matrik berukuran 4x4

Dim m(4, 4) As Single

Private Sub Command1_Click()

'Memasukkan nilai matrik sesuai dengan

'baris dan kolom yang dimasukkan

baris = Val(Text1)

kolom = Val(Text2)

m(baris, kolom) = Val(Text3)

End Sub

Private Sub Command2_Click()

'Menampilkan semua isi matrik

List1.Clear

For i = 1 To 4

kal = ""

For j = 1 To 4

kal = kal & m(i, j) & " "

Next j

List1.AddItem kal

Next i

End Sub