Cara Membuat Program Looping Do While Menggunakan Visual Basic 2010

Do While digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai
kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :

Berikut mantranya :

Do While Kondisi

Aksi1

Exit Do

Aksi2

Loop

Atau

Do Kondisi

Aksi1

Exit Do

Aksi2

Loop While kondisi

Berikut Contoh Programnya :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = 1
        Do While a <= 10
            ListBox1.Items.Add(a)
            a = a + 1
        Loop
    End Sub

Tulisan diatas adalah mantranya .

1. Tambahkan satu buah button dan list box

2. Klik 2 kali di tombol button

berikut penampakannya :