Red de conocimiento informático - Problemas con los teléfonos móviles - Pregunta de programación de VB: Encuentre el valor aproximado del logaritmo natural e

Pregunta de programación de VB: Encuentre el valor aproximado del logaritmo natural e

Subcomando privado1_Click()

Atenuar I como entero, J como entero, NS como doble, T como doble

Para I = 1 a 50 p>

T = 1

Para J = 1 A I

T = T * J

NS = NS + 1 / T

NS = NS + 1

Texto1.Texto = Redondo(NS, 20)

Fin Sub

Resultado: e = 2.71828182845905