Perulangan (Looping)
Private Sub Command1_Click()
For i = 1 To 10
Picture1.Print i;
Next i
End Sub
'-----------------
Private Sub Command2_Click()
Do i = i + 1
Picture2.Print i;
Loop Until i = 10
End Sub
'-------------------
Private Sub Command3_Click()
While i < 10
i = i + 1
Picture3.Print i;
Wend
End Sub
'---------------------
Private Sub Command4_Click()
Do While i < 10
i = i + 1
Picture4.Print i;
Loop
End Sub
'------------------------
Private Sub Command5_Click()
Do i = i + 1
Picture5.Print i;
If i = 10 Then Exit Do
Loop
End Sub
download kode di sini
Untuk memperoleh penjelasan lebih detail anda
bisa baca E-Book saya yang berjudul TRIK DASAR
BELAJAR VISUAL BASIC 6.0
klik di sini
|