用递归的思想求和的编程

用递归的思想求和的编程

      从高中走来我们已经把前n项求和公式记得滚瓜烂熟，但那些毕竟需要一定量的计算，但如果我们能用计算机编写一套求和的程序，那么我们将会节约大量的计算时间去做别的事情，是我们的生活变得高效而充实，下面就是学习的用递归的思想编写的1到100的编程：

Print   Sub  Command1_click()

   Me,Fontsize=18

   Print   Sum(100)

End  Sub

 

Private  Function  Sum(n  As  Integer) As  Integer

    If  n<>1  Then

         Sum=n+Sum(n-1)

   Else 

         Sum=1

   End  If

End  Function

       以上便是前100个数的求和编程，我们可以通过改变100位置的数字，从而求出连续的前n项的和，极大地方便了我们的学习，伟我们节约了大量的时间，我们要充分利用这种资源。