递归思想求和

这次，我有一些崇拜VB了，我觉得它好神奇哦，可以变幻莫测的用另一种方法，用另一种思维来求解平常都熟知的一些套路。
代码编写：
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

心得体会：

这次我觉得VB是一门很深奥的学科，我觉得应该要好好地学习一下其中的奥妙！