Red de conocimiento informático - Problemas con los teléfonos móviles - ¡VB usa una función personalizada para encontrar 1! 2! 3! ... ¡10! ¿Y usar imprimir para mostrar los resultados?

¡VB usa una función personalizada para encontrar 1! 2! 3! ... ¡10! ¿Y usar imprimir para mostrar los resultados?

Private Sub Command1_click()

atenuar i como número entero

dim sum siempre

para i=1 a 10

sum=sum fact(i)

depurar .imprimir suma

End Sub

función fact(x como entero) siempre que p>

si x=1 entonces

fact=1

si no

fact=x*fact(x-1)

Subcomando privado1_click()

dim i como entero

dim jie siempre

dim sum como largo

jie=1

para i=1 a 10

jie= jie*i

suma=suma jie

debug.print sum

End Sub

Esto completa todos los factoriales en una sola ***, solo 10 veces

ps: La multiplicación desperdicia más tiempo de CPU que la suma