FAKTORİYEL HESAPLAYICI

Gerekenler 1 Buton ve 1 tane Textbox

------------------------------------------------------------------------------------------------------------

Public Class Form1

    Function faktöriyel(ByVal sayı As Integer) As Integer

        Dim sayac, islem As Integer

        islem = 1

        For sayac = 1 To sayı

            islem = sayac * islem

        Next

        Return islem

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim deger As Integer

        deger = TextBox1.Text

        Dim sonuc As Integer

        sonuc = faktöriyel(deger)

        TextBox1.Text = sonuc

    End Sub

End Class

------------------------------------------------------------------------------------------------------------