Programación matemática
Subcomando privado 1_Click()
Representar n como un número entero
N = InputBox("Ingrese el valor de n")
Dim a1 es doble precisión
Marcar a2 como doble precisión
Agregar a a doble precisión
Snack de doble precisión
a1 = 1
a2 = 1
Para i = 1 a n
t = a1 a2
a1 = a2
a2 = t
a = a2/a1
Suma = suma a
Siguiente I
Imprimir "Serie anterior" n amp" la suma de términos es ";Suma
Conector final