Contoh Program Visual Basic 2010 : Latihan 9

'Latihan 9 (Perulangan)

             'Tampilan Form

'Coding

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

    Private Sub Latihan_9_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub Latihan_9_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

End Class