Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings
Imports System.Numerics
Class MainClass
Public Shared Sub Main()
Dim decimalValues() As Decimal = { -1.5, -1.1, 1.7d, 9}
For Each decimalValue As Decimal In decimalValues
Dim number As New BigInteger(decimalValue)
Console.WriteLine(number)
Next
End Sub
End Class