Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Factorial function



Factorial function

Public Function Factorial(ByVal Factor As Byte) As Variant

On Error GoTo ErrorHandler
If Factor = 0 Then
Factorial = 1
Else
Factorial = Factor * Factorial(Factor - 1)
End If
Exit Function

ErrorHandler:
MsgBox Err.Description
End Function

Private Sub Form_Load()
MsgBox Factorial(3)
End Sub

If you set goals and go after them with all the determination you can muster, your gifts will take you places that will amaze you.

Les Brown

Don't worry about being successful but work toward being significant and the success will naturally follow.

Oprah Winfrey

To be yourself in a world that is constantly trying to make you something else is the greatest accomplishment.

Ralph Waldo Emerson

It is not what you achieve, it is what you overcome. That is what defines your career.

Carlton Fisk

Whatever you hold in your mind on a consistent basis is exactly what you will experience in your life.

Tony Robbins

If you can see yourself as an artist, and you can see that your life is your own creation, then why not create the most beautiful story for yourself?

Miguel Ruiz

Always walk through life as if you have something new to learn and you will.

Vernon Howard

Sometimes you face difficulties not because you are doing something wrong but because you are doing something right.

Joel Osteen