Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim MyArray = uc.DefineVariable("MyArray[3]")
      uc.DefineVariable("MyArrayStr[] = {'aa', 'bb', 'cc'}")
      
      uc.Eval("MyArray[0] = 111; MyArray[1] = 222; MyArray[2] = 333")
      
      Console.WriteLine(uc.EvalStr("MyArray[0]"))
      Console.WriteLine(uc.EvalStr("MyArray[1]"))
      Console.WriteLine(uc.EvalStr("MyArray[2]"))
      Console.WriteLine(uc.EvalStr("MyArrayStr[0]"))
      Console.WriteLine(uc.EvalStr("MyArrayStr[1]"))
      Console.WriteLine(uc.EvalStr("MyArrayStr[2]"))
      Console.WriteLine(MyArray.Count)
      Console.WriteLine(uc.ItemOf("MyArrayStr").Count)
   End Sub
End Module