Membuat Program Looping dengan VB.NET 2005
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim j As Integer
ListBox1.Items.Clear()
i = 1
j = i + 1
For j = 1 To 5
ListBox1.Items.Add(j)
Next j
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Angka As Integer
ListBox1.Items.Clear()
Angka = 1
ListBox1.Items.Add(Int(Angka))
Do While Angka <= 4
Angka = Angka + 1
ListBox1.Items.Add(1 & Int(Angka))
Angka = Angka + 1
ListBox1.Items.Add(1 & 2 & Int(Angka))
Angka = Angka + 1
ListBox1.Items.Add(1 & 2 & 3 & Int(Angka))
Angka = Angka + 1
ListBox1.Items.Add(1 & 2 & 3 & 4 & Int(Angka))
Loop
End Sub
End Class
0 komentar:
Posting Komentar