Private Sub Command7_Click()
Cls
Print f(10)
End Sub
Private Function g(x As Integer) As Long
If x = 1 Then
g = x
Else
g = x + g(x - 1)
End If
End Function
Private Sub Command7_Click()
Cls
Print f(10)
End Sub
Private Function g(x As Integer) As Long
If x = 1 Then
g = x
Else
g = x + g(x - 1)
End If
End Function