Represent n as an integer

N = InputBox ("enter n value")

Dim a 1 is double precision.

Mark a2 as double precision.

Adjust a to double precision.

Double precision dessert

a 1 = 1

a2 = 1

For i = 1 to n

t = a 1 + a2

a 1 = a2

a2 = t

a = a2 / a 1

Sum = sum+a

Next, I

Print Before Series &; The sum of n & items is "&; total

End joint