Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim expr = uc.Parse("10000 / 3")
      
      '// Default formatting (General, 15 digits)
      Console.WriteLine(expr.EvaluateStr())
      
      '// Fixed-point notation with 2 decimal places
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Fixed, 2))
      
      '// Scientific notation with 4 digits of precision
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Scientific, 4))
   End Sub
End Module