How to get Fibonacci series in QTP?
n=5
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
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

Comments
Post a Comment