Question: Write the program to generate the following Fibonacci Series 

1,1,2,3,5,8........... up to 15th terms

Code: 

 declare sub fibonanacciseries(n)

Cls

Call fibonanacciseries(n)

End

Sub fibonanacciseries (n)

    firstnumber = 1

    Print firstnumber;

    secondnumber = 1

    Print secondnumber;

    For i = 1 To 15 Step 1

        c = firstnumber + secondnumber

        Print c;

        firstnumber = secondnumber

        secondnumber = c

    Next i

End Sub