Usa la programación vb para encontrar e

Hay un botón llamado comando1 en el formulario.

Subcomando privado 1_Click()

Marcar I como un número entero

Atenuar como doble

Duplicar la corriente oscura y duplicar la duración

i = 1

e = 2

Actual = 1

Hacer

i = i + 1

Última vez = actual

Valor actual = 1 / factorial (I)

e = e + actual

Última vez en el loop -Current & gt10 ^ -4

MsgBox e

Conector final

Función factorial (ByVal n es un número entero) larga

Si n = 0, entonces

Factorial = 1

Otros

Factorial = n * Factorial (n - 1)

Si. .. finalizará

Finalizar función