Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. Recursive function to calculate the faculty of x
Public Sub testrecur()
  Debug.Print recur(3)
End Sub
Function recur(x)
  If x <= 1 Then
    recur = 1
  Else
    recur = x * recur(x - 1)
  End If
End Function