program 5: factorial.

program to print factorial number.

-----------------------------------------code---------------------------------------------------------

Public Class Form1

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

        Dim i As Integer

        Dim mul As Integer

        mul = 1

        i = TextBox1.Text

        While (i >= 1)

            mul = mul * i

            i = i - 1

        End While

        TextBox2.Text = mul

    End Sub

End Class

-----------------------------------------output----------------------------------------------------

codestrew