Programación VB, el proceso de encontrar factoriales

Se requiere procedimiento de función para calcular factorial en VB.

La declaración Función declara el nombre del procedimiento Función, sus parámetros y el código que conforma su cuerpo.

El siguiente es el código factorial para encontrar el número de entrada: Option?Explicit

Dim?Sum?As?Double

Dim?N?As?Integer

¿Dim?i?As?Integer

¿Privada?Función?fact(N?As?Integer)?As?Double

fact?=?1

¿Hacer?Mientras?N?gt;?0

hecho?=?hecho?*?N

N?=?N?-?1

Bucle

Fin?Función

Privado?Sub?Command1_Click()

N?=?Val(Text1.Text)

Suma?=?fact(N)

Texto2?=?Suma

Fin?Sub

Privado?Sub?Form_Load()

Texto1?=?""：?Texto2?=?""

Fin?Sub