Programación VB: Cuente el número de conejos

1, 1, 2, 3...

procedure=

función fbnq(ls)

if ls lt ;= 2 entonces

fbnq=1

si no

fbnq=fbnq(ls-1) fbnq(ls-2)

finalizar si

finalizar función