VB.Net by API/System/ArgumentOutOfRangeException — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:51, 26 мая 2010
ArgumentOutOfRangeException.Message
<source lang="vbnet">
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
</source>