Cara Membuat Program Struktur Looping Menggunakan Visual Basic 6.0

Kali ini saya akan membagikan Cara Membuat Program Struktur Looping Menggunakan Visual Basic 6.0

Download Program Struktur Looping Visual Basic 6.0

1. Buka Aplikasi Visual Basic 6.0
 

2. Desain Form seperti ini
 

3. Ubah Property

Form1-Caption-Struktur Looping
List1-Name-List1 
Command2-Caption-FOR NEXT 1
Command3-Caption-FOR NEXT 2
Command4-Caption-DO UNTIL
Command1-Caption-DO WHILE 
 
4. Copy code berikut lalu klik View Code dan pastekan
Dim i As Integer

Private Sub Command1_Click()
    List1.Clear
    For i = 1 To 100
        List1.AddItem "Angka " & i
       
    Next i
End Sub

Private Sub Command2_Click()
    List1.Clear
    For i = 100 To 1 Step -2
        List1.AddItem "Angka " & i
    Next i
End Sub

Private Sub Command3_Click()
    List1.Clear
    i = Asc("A")
    Do Until i > Asc("Z")
        List1.AddItem "Huruf " & Chr(i)
       
        i = i + 1
    Loop
End Sub

Private Sub Command4_Click()
    List1.Clear
    i = Asc("Z")
    Do While i >= Asc("A")
        List1.AddItem "Huruf " & Chr(i)
        i = i - 1
    Loop
End Sub
5. Jalankan Program dengan menekan F5, maka tampilannya akan seperti ini

 

Download Program Struktur Looping Visual Basic 6.0
SELAMAT MENCOBA...!!!