Imports System.Numerics
Module Example
Public Sub Main()
Dim numbers() As BigInteger = { Int64.MaxValue * BigInteger.MinusOne,
BigInteger.MinusOne,
9999999,
BigInteger.Pow(9999999, 2),
BigInteger.Multiply(Int32.MaxValue, Int16.MaxValue),
BigInteger.Add(BigInteger.Pow(Int64.MaxValue, 2),
BigInteger.Pow(Int32.MaxValue, 2)),
BigInteger.Zero }
Dim smallest As BigInteger = numbers(numbers.GetLowerBound(0))
For ctr As Integer = numbers.GetLowerBound(0) + 1 To numbers.GetUpperBound(0)
smallest = BigInteger.Min(smallest, numbers(ctr))
Next
For Each number As BigInteger In numbers
Console.WriteLine("{0,55:N0}", number)
Next
Console.WriteLine(" {0:N0}", smallest)
End Sub
End Module