Perulangan Dengan While VB 2010
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bilangan As Integer = 1
ListBox1.Items.Clear()
While bilangan <= TextBox1.Text
ListBox1.Items.Add(bilangan)
bilangan = bilangan + 1
End While
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class Sekian share di atas semoga apa yang kami share bermanfaat bagi anda semua, jangan lupa share keteman kalian juga supaya kita saling mengetahui cara meggunakan vb2010.
