Contoh Program Visual Basic 2010 : Latihan 12

'Latihan 12 (Deret)

             'Tampilan Form

'Coding

Public Class frmLat_12

    Dim deret As Integer

    Sub bil_deret()

        Dim banyak, n As Integer

        banyak = Val(Me.txtJumlah.Text)

        n = 1

        LsDeret.Items.Clear()

        While (n <= banyak)

            deret = n ^ 2

            LsDeret.Items.Add(n & " " & deret)

            n = n + 1

        End While

    End Sub

    Private Sub frmLat_12_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 frmLat_12_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub txtJumlah_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged

        Call bil_deret()

    End Sub

End Class