Red de conocimiento informático - Problemas con los teléfonos móviles - Cálculo de VB 1 2 3......10 factorial

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)