Membuat Program Looping Statement (Perulangan) - Visual Basic

Design programnya :

Atur popertinya :

Kode kodingnya (Scripnya) :

Public Class Form1

    Private Sub Btfor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btfor.Click

        Dim x As Integer

        For x = Txtawal.Text To Txtakhir.Text

            Lsthasil.Items.Add(x)

        Next x

    End Sub

    Private Sub Btwhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btwhile.Click

        Dim x As Integer

        x = Txtawal.Text

        While (x <= Txtakhir.Text)

            Lsthasil.Items.Add(x)

            x += 5

        End While

    End Sub

    Private Sub Btdo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btdo.Click

        Dim x As Integer

        x = Txtawal.Text

        Do Until x > Txtakhir.Text

            Lsthasil.Items.Add(x)

            x += 3

        Loop

    End Sub

    Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click

        Lsthasil.Items.Clear()

    End Sub

End Class

Berbagi :