VB calcula el problema del mosaico cíclico aproximado de E.

Private?Sub?Command1_Click()

'Si la pregunta requiere incrustación de bucle, creo que debería escribirse así

Dim?e,?n ,?v ,?n1

e?=?1:?v?=?1:?n?=?1

Mientras?1?/?v?gt;? 0.00001 v? =?1：?n1?=?1 Mientras?n1?lt；=?n v?=?v?*?n1 n1?=?n1? ?e? ?1?/?v

Wend

Label1.Caption?=?"El valor aproximado de e es: "?amp;?e

¿Fin?Sub