Contoh Project Visual Basic 2010 Mencetak Perulangan.

Pencetakkan perulangan Bilangan Dari kecil ke besar atau sebaliknya.

• Form project

 

• Atur Propertis form sesuai dengan data berikut ;

• Coding project

Public Class Latihan_9

    Dim mulai, akhir As Integer

    Sub hasil()

        Dim ulang As Integer

        mulai = Val(Me.txtMulai.Text)

        akhir = Val(Me.txtAkhir.Text)

        If mulai > akhir Then

            For ulang = mulai To akhir Step -1

                Me.ListHasil.Items.Add(ulang)

            Next

        Else

            For ulang = mulai To akhir

                Me.ListHasil.Items.Add(ulang)

            Next

        End If

    End Sub

    Private Sub bBaru_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBaru.Click

        Me.ListHasil.Items.Clear()

        Me.txtMulai.Text = ""

        Me.txtAkhir.Text = ""

        Me.txtMulai.Focus()

    End Sub

    Private Sub bAkhir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bAkhir.Click

        Call hasil()

    End Sub

End Class