Simple Factorial function for VB

Killer42

Moderator

Join Date: Oct 2006

Location: Australia

Posts: 7,748

#1 May 28 '07

Here's a very simple function for VB (written in VB6) to calculate the factorial (!) of a number. Note that it is limited by the magnitude of the value which can be stored in the Long data type. (In fact, I believe it overflows at 13!)

Expand|Select|Wrap|Line Numbers

 Public Function Factorial(ByVal bNum As Byte) As Long

  Dim I As Long

  If bNum <= 0 Then Exit Function

  Factorial = 1

  For I = 1 To bNum

    Factorial = Factorial * I

  Next

End Function

« previous insight | next insight »

Similar Visual Basic 4 / 5 / 6 bytes

** Index of VB Articles ** (answers)
Factorial and Gamma Functions for VB (insights)
** Index of VB Articles ** (answers)

/bytes/development

/bytes/it

Forums
Visit our community forums for general discussions and latest on Bytes

Our staff and community areas have moved to bytes.com/forums/

/bytes/about

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 226,501 network members.