怎样在VB.NET中，定义了一个不知大小的一维数组，然后给这个数组添加值

使用动态定义
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y

Dim a() as integer '定义一个动态整形数组
。。。。
Redim Preserve a(10) '重定义大小，并且不破坏已存在的值

初始化后a.Length可以得到数组a()的元素个数，然后ReDim Preserve a(原来长度+1)
注意，第一次必须初始化

Imports System.Colection '可以用集合类 List
private sub Test()
dim lst = new List(of int)() 'List可以自动变长
lst.Add(getY())
lst.Add(getY())
end sub
private function GetY()
return DateTime.Now.Ticks
end function