Private Function sum(n As Integer) As Integer
If n > 1 Then
sum = n + sum(n - 1)
Else
sum = 1
End If
End Function
Private Sub Command1_Click()
Me.FontSize = 18
Print sum(2)
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
Private Sub Command1_Click()
Me.FontSize = 18
Print sum(2)
End Sub