PrivateSubCommand1_Click()ClsDimf(10)Dimif(1)=1f(2)=1Fori=3To10 f(i)=f(i-1)+f(i-2)Nexti Fori=1To10 Printf(i); IfiMod5=0ThenPrintChr(13) NextiEndSub
运用递归算法
