Program For Bersarang Vb 6.0

Beberapa Hari/Minggu yang lalu saya telah berbagi tentang pemprograman visual basic 6.0 yaitu "Program Perulangan For Next" dan "Program Perulangan Do While" nah kali ini masih di visual basic untuk kali ini saya akan berbagi Contoh sederhana "Program For Bersarang".

Berikut Screen Shootnya :

Koding/Kode Program :

Private Sub Command1_Click()
For baris = 1 To 6
    kal = ""
    For i = 1 To 5
        kal = kal & Str(i)
    Next i
    List1.AddItem kal
Next baris
For baris = 1 To 5
    kal = ""
    For i = 1 To baris
        kal = kal & Str(i)
    Next i
    List2.AddItem kal
Next baris
       
End Sub


Semoga apa yang saya share selalu bermanfaat buat para pengunjung....