Baca Penuh>>>                                                            <<
Do .... WHILE
Penyeleksian Kondisi dijalankan pada awal proses, dimana pernyataan akan dilaksanakan selama kondisi bernilai TRUE. Perintah dijalankan minimal 0 Kali.
BU :  
      DO WHILE
      PERNYATAAN1
      PERNYATAAN2
      LOOP


Do .... UNTIL
Pernyataan akan dijalankan selama nilai batas belum tercapai atau kondisi bernilai FALSE, Perintah dijalankan minimal satu kali.
Bu :
      DO UNTIL < KONDISI>
      PERNYATAAN1
      PERNYATAAN2
      LOOP
WHILE ..... WEND
Digunakan untuk mengeksekusi suatu blog ekspresi dengan jumlah perulangan tidak terhingga.
BU : 
      WHILE
      STATEMENT1
      STATEMENT2
      WEND 

FOR ..... NEXT
Akan mengulang pernyataan sebanyak yang telah ditentukan. Penentuan ini berupa nilai awal, nilai akhir dan nilai selang. Nilai selang dapat berupa penambahan dan pengurangan.
BU :
      For nm_Variable = n_awal to n_akhir step n_selang
      Pernyataan1
      Pernyataan2
      Next nm_Variable

Design Form


 Listing Program :

Private Sub cmdclear_Click()
List1.Clear
List2.Clear
Text1 = ""
Text2 = ""
End Sub
 
Private Sub CmdDU1_Click()
Text1 = ""
   A = 1
   Do Until A > 10
   Text1.SelText = A & " "
   A = A + 2
   Loop 
End Sub

Private Sub CmdDU2_Click()
Text2 = ""
   A = 2
   Do Until A > 10
   Text2.SelText = A & " "
   A = A + 2
   Loop
End Sub

Private Sub CmdDW1_Click()
List2.Clear
    A = 10
    Do While A > 0
    List2.AddItem "ANGKA " & A
    A = A - 2
    Loop
    List2.ListIndex = 0
End Sub

Private Sub CmdDW2_Click()
List2.Clear
    A = 9
    Do While A > 0
    List2.AddItem "ANGKA " & A
    A = A - 2
    Loop
    List2.ListIndex = 0 
End Sub

Private Sub CmdFX1_Click()
List1.Clear
   For A = 1 To 10 Step 2
   List1.AddItem "ANGKA " & A
   Next A
End Sub

Private Sub CmdFX2_Click()
List1.Clear
   For A = 2 To 10 Step 2
   List1.AddItem "ANGKA " & A
   Next A 
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
 
Form Run :

                                                                                                            MTW & Edi