Dim iArr(5) As Int32
For i As Int32 = 0 To iArr.GetUpperBound(0)
iArr.SetValue(i, i) '0,1,2,3,4,5
Next
Dim iArrList As New System.Collections.ArrayList(iArr) 'iArrList.Count=6
For i As Int32 = 6 To 10
iArrList.Add(i)
Next 'iArrList.Count=11
iArrList.Insert(5, 99) 'iArrList.Count=12
iArrList.Capacity = 100 'iArrList.Count=12
iArrList.TrimToSize() 'iArrList.Count=12
iArr = iArrList.ToArray(GetType(Int32))
For i As Int32 = 0 To iArr.GetUpperBound(0) 'iArr.GetUpperBound(0)=11
'输出:0,1,2,3,4,99,5,6,7,8,9,10
Next |