Coding Bilangan

     

Private Sub Button1_Click

        Dim n As Integer

        Dim m As Integer

        Dim hasil As Integer

        Dim a As Integer = 1

        Dim b As Integer = 1

        'bulat

        For n = -Val(Txtbil.Text) To Val(Txtbil.Text)

            Cmbbulat.Items.Add(n)

        Next

        'genap

        For n = 2 To Val(Txtbil.Text) Step 2

            Cmbgnap.Items.Add(n)

        Next

        'ganjil

        For n = 1 To Val(Txtbil.Text) Step 2

            Cmbgnjil.Items.Add(n)

        Next

        'fibonaci

        For n = 1 To Val(Txtbil.Text)

            Cmbfbnci.Items.Add(a)

            Cmbfbnci.Items.Add(b)

            If (n = a + b) Then

                Cmbfbnci.Items.Add(n)

                a = b

                b = n

            End If

        Next

        'faktor

        m = Val(Txtbil.Text)

        While m <> 1

            m = m - 1

            n = n * m

        End While

        Txtfktor.Text = n

        Txtfktor.Enabled = False

        'prima

        For n = 2 To Txtbil.Text

            m = 0

            For y = 2 To n

                hasil = n Mod y

                If hasil = 0 Then

                    m = m + 1

                End If

            Next y

            If m <= 1 Then

                Cmbprima.Items.Add(n)

            End If

        Next n

    End Sub

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini