Latihan 4 - Looping (For to || Do While || Do Until ) - Visual Basic

Buat Desain Seperti Ini

Dan Ini Scriptnya ::

'Buat Frame1 , List1 , dan commandnya Urut dari 1-6 ke bawah

'Teruz copy frame , n pilih no teruz , Frame 3 pun tinggal paste jja n no lagi ....

' ni scriptnya ,, moga jja ga ribet ...

Dim bilangan As Integer
Private Sub Command1_Click()
List1.Clear
For bilangan = 1 To 20
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command10_Click()
List2.Clear
bilangan = 2
Do While bilangan <= 40
List2.AddItem bilangan
bilangan = bilangan + 2
Loop
End Sub

Private Sub Command11_Click()
List2.Clear
bilangan = 20
Do While bilangan >= 1
List2.AddItem bilangan
bilangan = bilangan - 1
Loop
End Sub

Private Sub Command12_Click()
List2.Clear
bilangan = 1
Do While bilangan <= 20
List2.AddItem bilangan
bilangan = bilangan + 1
Loop
End Sub

Private Sub Command13_Click()
List3.Clear
bilangan = 90
Do Until bilangan < 65
List3.AddItem Chr(bilangan)
bilangan = bilangan - 1
Loop
End Sub

Private Sub Command14_Click()
List3.Clear
bilangan = 65
Do Until bilangan > 90
List3.AddItem Chr(bilangan)
bilangan = bilangan + 1
Loop
End Sub

Private Sub Command15_Click()
List3.Clear
List3.AddItem 1
bilangan = 3
Do Until bilangan > 60
List3.AddItem bilangan
bilangan = bilangan + 3
Loop
End Sub

Private Sub Command16_Click()
List3.Clear
bilangan = 2
Do Until bilangan > 40
List3.AddItem bilangan
bilangan = bilangan + 2
Loop
End Sub

Private Sub Command17_Click()
List3.Clear
bilangan = 20
Do Until bilangan < 1
List3.AddItem bilangan
bilangan = bilangan - 1
Loop
End Sub

Private Sub Command18_Click()
List3.Clear
bilangan = 1
Do Until bilangan > 20
List3.AddItem bilangan
bilangan = bilangan + 1
Loop
End Sub

Private Sub Command2_Click()
List1.Clear
For bilangan = 20 To 1 Step -1
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command3_Click()
List1.Clear
For bilangan = 2 To 40 Step 2
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command4_Click()
List1.Clear
List1.AddItem 1
For bilangan = 3 To 60 Step 3
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command5_Click()
List1.Clear
For bilangan = 65 To 90
List1.AddItem Chr(bilangan)
Next bilangan
End Sub

Private Sub Command6_Click()
List1.Clear
For bilangan = 90 To 65 Step -1
List1.AddItem Chr(bilangan)
Next bilangan
End Sub

Private Sub Command7_Click()
List2.Clear
bilangan = 90
Do While bilangan >= 65
List2.AddItem Chr(bilangan)
bilangan = bilangan - 1
Loop
End Sub

Private Sub Command8_Click()
List2.Clear
bilangan = 65
Do While bilangan <= 90
List2.AddItem Chr(bilangan)
bilangan = bilangan + 1
Loop
End Sub

Private Sub Command9_Click()
List2.Clear
List2.AddItem 1
bilangan = 3
Do While bilangan <= 60
List2.AddItem bilangan
bilangan = bilangan + 3
Loop
End Sub

Private Sub Form_Load()
List1.Text = ""
List2.Text = ""
List3.Text = ""
End Sub