ArgumentOutOfRangeException.Message : ArgumentOutOfRangeException « System « VB.Net by API

1. VB.Net by API
2. System
3. ArgumentOutOfRangeException

ArgumentOutOfRangeException.Message

  
 

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

   
    
  

Related examples in the same category