Contoh Project Visual Basic 2010 Menentukan Deret Suatu Bilangan.

Menentukan deret dari bilangan yang diinpu.

• Form project

 

•  Atur Propertis form sesuai dengan data berikut ;

• Coding project

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 txtJumlah_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged

        Call bil_deret()

    End Sub

End Class