lopezatienza.es

Primeramente crearemos nuestro proyecto.

Añadiremos 2 TextBox llamados "textbox1" y "textbox2".

Añadiremos un Button llamado "button1"

Añadiremos el siguiente código a nuestro "Form1.vb"

Public Class Form1

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

        Dim act, res As Double

        Dim ant As Integer

        act = textbox1.Text

        ant = act - 1

        Do

            res = fact(act, ant)

            act = res

            ant -= 1

        Loop While (ant > 0)

        textbox2.Text = res

    End Sub

    Private Function fact(ByVal act As Double, ByVal ant As Integer) As Double

        fact = act * ant

    End Function

End Class

Asociar el evento Click del botón Button1 a la función Button1_Click o añade el código directamente.

Un saludo y espero que os sirva de ayuda.