Pemrograman Visual:Tugas Fungsi Perulangan

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.