Mega Code Archive
ArgumentOutOfRangeException Message
<![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
]]>