Modul VIII

Modul VIII ini adalah lanjutan dari modul VII yang membahas tentang FOR-NEXT dan WHILE-WEND.

Latihan I:
1.Rancang antar muka seperti berikut.

2.Dobel Klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte
I = 0
While (I <= 100) Print I I = I + 5 Wend End Sub
3.Klik RUN
4.Hasilnya seperti berikut.
Latihan II:
1.Rancang antar muka seperti berikut.

2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte
I = 1
a = 1
While (I <= 10)
Print "1*"; I; "="; I + 1, "2*"; I; "="; I * 2, "3*"; I; "="; I * 3, "4*"; I; "="; I * 4, "5*"; I; "="; I * 5 I = I + 1
Wend End Sub

3.Klik RUN
4.Hasilnya seperti berikut.


Latihan III :
1.Rancang antar muka seperti berikut.
2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I As Byte I = 20
While (I >= 1)
Print I
I = I - 1
Wend
End Sub

3.Klik RUN
4.Hasilnya seperti berikut.

Latihan IV :
1.Rancang antar muka seperti berikut.


2.Dobel klik FORM.Pilih EVENt ACTIVATE (di sebelah kanan atas FORM) Ketikkan code program berikut ini.

Private Sub Form_Activate()
Dim I, J As Byte
I = 1
J = 1
For I = 1 To 9 Step 1

For J = 1 To I Step 1

Print I;
Next J

Print
Next I

End Sub

3.Klik RUN
4.Hasilnya seperti berikut.