Looping / Pengulangan
Kali ini, saya akan membuat program Looping sederhana yang tidak terlalu sulit untuk dibuat.
Saya akan Membuat Program yang bisa mengulang / meloop angka - angka berikut :
No. 1
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
No. 2
5
4 5
3 4 5
2 3 4 5
1 2 3 4 5
No. 3
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1
Untuk menjawab soal - soal itu kita harus membuat program Looping nya.
Command - commandnya / Perintah - perintahnya adalah :
Private Sub Command1_Click()
Cls
For b = 1 To 5
For a = 1 To b
Print a;
Next a
Next b
Print: Print
For b = 5 To 1 Step -1
For a = b To 5
Print a;
Next a
Next b
Print: Print
For b = 5 To 1 Step -1
For a = 1 To b
Print a;
Next a
Next b
End Sub
Maka jika Perintah-perintah yang dimasukan ke dalam Command Button / ke Program itu benar maka seharusnya program ini bisa berjalan dengan baik.
Tampilan Program Looping sederhana yang telah jadi
Jika anda mau mendownload program Looping sederhana ini Klik Disini !
Jika anda mau mendownload program Looping sederhana ini dengan .exe nya Klik Disini !
Tidak ada komentar:
Posting Komentar