Red de conocimiento informático - Problemas con los teléfonos móviles - Programación matemática

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