Imports System
Imports Microsoft.VisualBasic
Module DecimalCtorIDemo
Sub CreateDecimal( value As Integer, valToStr As String )
Dim decimalNum As New Decimal( value )
Dim ctor As String = String.Format( "Decimal( {0} )", valToStr )
Console.WriteLine( "{0,-33}{1,16}", ctor, decimalNum )
End Sub
Sub Main( )
CreateDecimal( 999999999, "999999999" )
End Sub
End Module