Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Recursive Procedures

Function GetFactorial(intValue As Integer) As Double     If intValue <= 1 Then         GetFactorial = 1     Else         GetFactorial = GetFactorial(intValue - 1) * intValue     End If End Function Sub RecursiveFunction()    Debug.Print GetFactorial(3) End Sub