Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, el proceso de encontrar factoriales

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