Mega Code Archive
Throw ArgumentOutOfRangeException
<![CDATA[
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)
]]>