vb 程序

一到一百的累加和 递归实现

Private Sub Command1_Click()
Print add(100)
End Sub

Function add(n As Integer)

If n = 1 Then
    add = 1
Else
    add = add(n - 1) + n
End If

End Function