用vb求:斐波那契数列的前二项是1,1,以后每一项都是前面两项之和.求100000以内有多少个斐波那契数?