Find the Fibonacci series of a number using vb script

for Technical interviews:

http://no1tutorial.com/

learn step by step technologies:


http://no1tutorial.com/

n=cint(inputbox(“enter a number”))
dim f0,f1,f2
f0=0
f1=1
f2=f0+f1
var=”The fibonacci series of a given number “&n&” is :”&vbnewline
var=var&” “&f0&” “&f1
do while(f2<=n)
var=var&” “&f2
f0=f1
f1=f2
f2=f0+f1
loop
msgbox var