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 p>
Bucle
Fin?Función
Privado?Sub?Command1_Click()
N?=?Val(Text1.Text)
Suma?=?fact(N)
Texto2?=?Suma
Fin?Sub
Privado?Sub?Form_Load() p>
Texto1?=?"":?Texto2?=?""
Fin?Sub