VB.NET一维数组简单介绍

来源:百度文库 编辑:神马文学网 时间:2024/04/29 01:48:21
    VB.NET一维数组的应用将会在这篇文章中进行一个详细的解读。大家可以通过本文介绍的内容充分的掌握其中的各种应用技巧。

    大家在对VB.NET的学习中可能会对数组的学习产生一些疑问。在这里我们就来了解一下VB.NET一维数组的具体用法,希望能对大家有所帮助。在VB.NET中数组的用法与VB 中有一点不同。

    • VB.NET While/End While循环实际应用方..
    • VB.NET Do/Loop实现方式介绍
    • VB.NET For/Each技术应用详解
    • VB.NET子过程和函数相关应用方法介绍
    • VB.NET变量作用域实际作用解析

     

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

    Dim data(10) as String

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

    VB.NET一维数组赋值: 我们可以对数组进行单一的赋值,方法:

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

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

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

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

     

            
    1. Public Sub SetArrayData
      (ByVal ParamArray All())  
    2. Dim aL As Long, aU As Long, 
      aNo As Long  
    3. Dim dL As Long, dU As Long  
    4. Dim i As Long  
    5. dL = LBound(All)  
    6. dU = UBound(All)  
    7. aNo = dL 
    8. aL = LBound(All(aNo))  
    9. aU = UBound(All(aNo))  
    10. dLdL = dL + 1  
    11. For i = dL To dU  
    12. All(aNo)(aL + i - dL) = All(i)  
    13. Next i  
    14. End Sub 

     

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

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

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