Tutorial 5 - Program Pengulangan Angka dengan For - Next dan Do While - Loop (Visual Basic)

Buatlah Layout Form sebagai berikut :

Kemudian lakukan pengeditan sebagai berikut :

Ketikan Program dibawah ini :

Dim Hitung As Integer

Private Sub Command1_Click()
Cls
Print " Bilangan Genap"
For Hitung = 2 To 20 Step 2
Print Hitung
Next
End Sub

Private Sub Command2_Click()
Cls
Print " Bilangan Ganjil"
For Hitung = 1 To 20 Step 2
Print Hitung
Next
End Sub

Private Sub Command3_Click()
Cls
Hitung = 0
Print " Bilangan Genap"
Do While Hitung <= 20
Hitung = Hitung + 2
Print Hitung
Loop
End Sub

Private Sub Command4_Click()
Cls
Hitung = 1
Print " Bilangan Genap"
Do While Hitung <= 20
Print Hitung
Hitung = Hitung + 2
Loop
End Sub

Selamat Berlatih !!!!!

<< Tutorial 4                     Tutorial 1 >>

Posted in: Pemrograman,Tutorial