VB.net一维数组用法

在VB.NET中数组的用法与VB 中有一点不同。

首先在定义数组过程中，定义静态数组语句是相同的

Dim data(10) as String

vb6中如上定义表示数组data()中有10个元素，下标分别是0-9  而VB.NET中表示数组 data() 中有11个元素，下标分别为0-10

数组赋值： 我们可以对数组进行单一的赋值，方法：

data(0)="一" ;data(1)="二";……

同样我们也可以对数组进行一次性的赋值，VB6.0中我们可以用 Array函数进行赋值，如：

Dim   data   
data=Array(1,2,3,4,5,6,7,8)

但VB.net中以上函数不可用， 这样我们可以创建一个函数来对一维数组进行一次性赋值，以下是我编写的一个函数，供大家参考：

    Public Sub SetArrayData(ByVal ParamArray All())
        Dim aL As Long, aU As Long, aNo As Long
        Dim dL As Long, dU As Long
        Dim i As Long

        dL = LBound(All)
        dU = UBound(All)

        aNo = dL
        aL = LBound(All(aNo))
        aU = UBound(All(aNo))
        dL = dL + 1
        For i = dL To dU
            All(aNo)(aL + i - dL) = All(i)
        Next i
    End Sub

通过调用以上的函数可以对一维数组进行一次性的赋值：

Call SetArrayData(data,"0","1","2","3","4","5")

返回的结果data()中下标为0-5 分别赋值为0，1，2，3，4，5

转载于:https://www.cnblogs.com/opper/archive/2009/09/05/1560743.html