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

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester