思路:
创新互联建站是一家集网站建设,大冶企业网站建设,大冶品牌网站建设,网站定制,大冶网站建设报价,网络营销,网络优化,大冶网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
1.建立新的对象数组,用来存放你说的满足特定条件的数据.
2.排序的方法应该与通常的数组排序方法相同.
是VB的什么版本，在VB.net里
要这样
ReDim a(i)
但是，你这个应该使用Preserve关键字的？？？即：
ReDim Preserve a(i)
否则，前面元素里的产生的数字都为0了！
来给你写了个函数，拿去用，不谢
Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()
Dim uBound = arr.GetUpperBound(0)
Dim lBound = arr.GetLowerBound(0)
Dim arrLen = uBound - lBound
If index lBound OrElse index uBound Then
Throw New ArgumentOutOfRangeException( _
String.Format("Index must be from {0} to {1}.", lBound, uBound))
Else
Dim outArr(arrLen - 1) As T
Array.Copy(arr, 0, outArr, 0, index)
Array.Copy(arr, index + 1, outArr, index, uBound - index)
Return outArr
End If
End Function
动态数组一般开始不能直接写dim a as string。除非Variant。一般先定义类型 但是数组名后得加上括号。例如
DIM a() AS STRING
后面根据需要使用的时候，可以自己定义大小。但是必须注意一点。重新定义的时候，
Redim a(11) 的时候，就会将原来的数组元素清空了，没有保存。
Redim Preserve a(11) 就会将重新定义数组大小的同时，还将原来的数据保存了。
将二位数组转成DataTable，网上找的不知道成不成
public static DataTable ConvertToDataTable(string[,] arr)
{
DataTable dataSouce = new DataTable();
for (int i = 0; i arr.GetLength(1); i++)
{
DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());
dataSouce.Columns.Add(newColumn);
}
for (int i = 0; i arr.GetLength(0); i++)
{
DataRow newRow = dataSouce.NewRow();
for (int j = 0; j arr.GetLength(1); j++)
{
newRow[j.ToString()] = arr[i, j];
}
dataSouce.Rows.Add(newRow);
}
return dataSouce;
}
