Pemrograman Visual:Tugas Fungsi Perulangan

Buat tampilan seperti berikut ini:

Klik 2x pada tombol OK lalu ketikkan kode program berikut ini:

Dim Bill, Bil2 As Byte
ListBox1.Item.Clear()
For Bill = 1 To 5
	ListBox1.Items.Add(Bill & ".")
	For Bil2 = 1 To 5
		ListBox1.Items.Add(Bill & "." & Bil2)
	Next
Next

Amati alur dari program, cobalah ubah angka “5” dengan angka yang lain dan lihat hasilnya.

Tugas

Dengan hasil program diatas buatlah dengan menggunakan perulangan DO WHILE LOOP dan DO LOOP UNTIL

Penjelasan

Dim Bill, Bil2 As Byte
ListBox1.Item.Clear()
For Bill = 1 To 5
	ListBox1.Items.Add(Bill & ".")
	For Bil2 = 1 To 5
		ListBox1.Items.Add(Bill & "." & Bil2)
	Next
Next

Kode ini menggunakan perulangan For untuk menambahkan item ke dalam sebuah objek ListBox. Pertama, perintah ListBox1.Items.Clear() digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan For Bill = 1 To 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5.

Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & ".". Selanjutnya, perulangan For Bil2 = 1 To 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & "." & "Bil2".

Menggunakan perulangan DO WHILE:

ListBox1.Item.Clear()
Bill = 1
Do While Bill <= 5
    ListBox1.Items.Add(Bill & ".")
    Bil2 = 1
    Do While Bil2 <= 5
        ListBox1.Items.Add(Bill & "." & Bil2)
        Bil2 = Bil2 + 1
    Loop
    Bill = Bill + 1
Loop

Menggunakan perulangan DO LOOP UNTIL:

ListBox1.Item.Clear()
Bill = 1
Do
    ListBox1.Items.Add(Bill & ".")
    Bil2 = 1
    Do
        ListBox1.Items.Add(Bill & "." & Bil2)
        Bil2 = Bil2 + 1
    Loop Until Bil2 > 5
    Bill = Bill + 1
Loop Until Bill > 5

Kedua perulangan ini akan menghasilkan output yang sama dengan perulangan For yang digunakan dalam kode sebelumnya. Namun, perulangan DO WHILE akan melakukan perulangan sampai kondisi yang ditentukan terpenuhi, sedangkan perulangan DO LOOP UNTIL akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi.