perulangan do-while

perulangan do-while

ini hasil jadinya

jadi angka akan berulang apabila angka awal kurang dari sama dengan angka akhir

ini script-nya

 Dim awal As Integer
    Dim akhir As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        awal = TextBox1.Text
        akhir = TextBox2.Text
        Do While awal <= akhir
            ListBox1.Items.Add(awal)
            awal = awal + 1
        Loop
    End Sub

keterangan :
Button1 (proses)
TextBox1 (angka awal)
TextBox2 (angka akhir)

Read More