Cálculo de VB 1 2 3......10 factorial
Función privada jiecheng(n como entero) siempre
Resultado tenue mientras
Suma dim mientras
Atenuar i como entero
resultado = 1
suma = 0
Fori = 1 To n
resultado = resultado * i
suma = suma resultado
Siguiente i
jiecheng = sum
Función final
Este programa ha sido probado con éxito, solo necesita llamarlo, por ejemplo, Para calcular su problema, llame a jiecheng (10)