Perulangan dengan For – Next di Vb.Net

For akan mengeksekusi perintah saat nilai awal sampai pada nilai akhir yang ditentukan.
Perulangan dengan For – Next mempunyai format penulisan sebagai berikut.

For Counter=niali_awal to nilai_akhir
[ Perintah ]
Next (Counter)
– Silahkan buatlah projek baru dengan nama “perulangan-for-next” kemudian atur design seperti gambar dibawah.

 

• Komponen yang digunakan pada form diatas yaitu 1 buah Button,1 listBox, 1 label dan satu buah Combobox. Sementara untuk properties biarkan saja secara default, kecuali untuk combobox isikan properti text dengan angka 1.
• dan untuk item pada combo box isikan dengan angka 1-10 :

1
2
3
4
5
6
7
8
9
10

• . Caranya yaitu dengan cara aktifkan mouse pada combobox lalu seting item di properties seperti gambar dibawah.

 

• Kemudian klik kanan – view code pada form dan ketikan listing berikut.

Public Class Form1
Dim a As Integer
End Class

• Kemudian double klik pada button1 atau button ok,sehingga listing secara keseluruhan seperti berikut.

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.ToInt16(ComboBox1.Text)
For ulang As Integer = 1 To a
ListBox1.Items.Add(ulang)
Next ulang
End Sub
End Class

Aplikasi sudah selesai dibuat silahkan jalankan program, jika berhasil maka aplikasi akan terlihat seperti gambar berikut.