Faktöriyel Hesabı.vb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sayi, z As Integer
        sayi = 1
        If TextBox1.Text = 0 Then 'eğer girilen sayı 0 ise 
            TextBox2.Text = 1     'TextBox2'de 1 görüntüle
        Else
            For z = 1 To TextBox1.Text
                sayi = sayi * z
            Next
        End If
        TextBox2.Text = sayi
    End Sub
End Class