Perulangan dengan While di Vb.Net

Jenis perulangan berikutnya yang dapat digunakan yaitu peulangan dengan While. Perulangan dengan While mempunyai format penulisan sebagai berikut. Pada perulangan ini kondisi atau syarat dikerjakan terlebih dahulu, baru kemudian setelah sarat itu dinyatakan benar/true  perintah atau statement dijalankan.


While (kondisi)
[perintah1]
[perintah2]
…
End While

Contoh :

• Buatlah projek baru dan beri nama dengan “perulangan_while” kemudian buatlah design seperti seperti gambar berikut.

• Komponen yang digunakan pada form diatas yaitu 1 buah Button,1 listBox, 2 label dan dua buah Combobox. Sementara untuk properties biarkan saja secara default, kecuali untuk comobox, isikan items dengan angka 1-9 untuk combobox1 dan isikan angka 10-19 untuk combobox2,  caranya lihat pembahasan sebelumnya.
• Jika sudah sesuaikan listing secara keseluruhan seperi listing dibawah, jangan lupa sebelumnya double klik pada button1 untuk mempermudah penulisan listing program.

Public Class Form1
Dim a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
a = Convert.ToInt32(ComboBox1.SelectedItem.ToString())
While a <= Val(ComboBox2.SelectedItem.ToString())
ListBox1.Items.Add(a)
a = a + 1
End While
End Sub
End Class
Sekarang coba anda jalankan program untuk melihat hasilnya,