Program Looping dari VB 6.0

Assalmu'alaikum wr. wb
Selamat sore Teman Blogger Saya ingin berbagi lagi nhi mumpung ada koneksi Gratis.. @_@
Kini saya mau share masalah Looping di VB 6 .0.
Taukah anda apa itu Looping.??
Looping adalah suatu pengulangan perintah disuatu program..
Oke Langsung saja dah...



Assalmu'alaikum wr. wb
Selamat sore Teman Blogger Saya ingin berbagi lagi nhi mumpung ada koneksi Gratis.. @_@
Kini saya mau share masalah Looping di VB 6 .0.
Taukah anda apa itu Looping.??
Looping adalah suatu pengulangan perintah disuatu program..
Oke Langsung saja dah...

Looping dengan menggunakan dengan "DO WHILE".....
Seperti biasa pertama kita masuk ke dalam  microsoft visual basic 6.0..
kemudian buat seperti gambar di bawah :

lalu edit captionnya, seperti :

terus edit jga back colornya jadinya kaya gini :

lalu masukin deh coding nya :
"Private Sub Command1_Click()
n = Val(Text1)
Do While i <= n
If i Mod 2 = 0 Then
List1.AddItem 1
Else
List1.AddItem -1
End If
i = i + 1

Private Sub Command2_Click()
Dim i, n As Integer
i = 1
a = 2
n = Val(Text2)
Do While i <= n
If i Mod 2 = 0 Then
List2.AddItem -a
Else
List2.AddItem a

End If
i = i + 1
a = a + 2
Loop
End Sub


Private Sub Command3_Click()
Dim a As Integer
a = 1
i = 1
n = Val(Text3)
Do While i <= n
List3.AddItem a
If a = 2 Then
a = 3
Else
a = a + 3
i = i + 1
End If

Loop

End Sub




Private Sub Command4_Click()
i = 1
a = 2
n = Val(Text4)
Do While i <= n
List4.AddItem a
a = a * a
i = i + 1
Loop
End Sub"





Terus play hasil nya kaya gini:

okey...
selamat mencoba..
(",)..