Throw ArgumentOutOfRangeException : Predefined Exception « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. Predefined Exception

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Tester
    Public Shared Sub Main
        Dim number As Decimal

        number = CDec(Val("123.123"))
        Console.WriteLine("Factorial(" & number & ")... ")
        Console.WriteLine(Factorial(number))

        
    End Sub
    Public Shared Function Factorial(ByVal number As Decimal) As Decimal
        Select Case number
            Case Is < 0
                Throw New ArgumentOutOfRangeException( _
                    "Negative numbers not allowed.")
            Case Is = 0
                Return 1
            Case Else
                Return number * Factorial(number - 1)
        End Select
    End Function


End Class

Factorial(123.123)...

Unhandled Exception: System.ArgumentOutOfRangeException: Specified argument was out of the range of
valid values.
Parameter name: Negative numbers not allowed.
   at Tester.Factorial(Decimal number)