vb求菲波那契数列的前40项