vb.net数组（长度，赋值 ）

下面三个关于vb.net数组操作实例主要对数据元素，数据长度，数据改变值来讲了，下面来看三个实例代码

增加数据长度
 

imports system

public class mainclass
    shared sub main()
        'declare an array
        dim strfriends(4) as string

        'populate the array
        strfriends(0) = "r"
        strfriends(1) = "b"
        strfriends(2) = "s"
        strfriends(3) = "s"
        strfriends(4) = "k"

        redim preserve strfriends(6)
        strfriends(5) = "m"
        strfriends(6) = "j"

        for each strname as string in strfriends
            system.console.writeline(strname)
        next

    end sub
end class

 
重新给数据元素指定值

imports system

public class mainclass

    shared sub main(byval args as string())
        dim friends() as string = {"a", "b", "c","d", "e"}

        ' make friends bigger!
        redim friends(6)
        friends(5) = "f"
        friends(6) = "g"

        addfriendstolist(friends)
    end sub
   
    shared sub addfriendstolist(byval friends() as string)
        dim friendname as string
       
        for each friendname in friends
            console.writeline("[" & friendname & "]")
        next
    end sub

end class

改变数据长度

imports system

public class samplesarray
    public shared sub main()
        dim myarr as string() =  {"the", "quick", "brown", "fox", "jumps教程", "over", "the", "lazy", "dog"}

        printindexandvalues(myarr)

        array.resize(myarr, myarr.length + 5)

        printindexandvalues(myarr)

        array.resize(myarr, 4)

        printindexandvalues(myarr)

    end sub 'main

    public shared sub printindexandvalues(myarr() as string)
        dim i as integer
        for i = 0 to myarr.length - 1
            console.writeline("[{0}] : {1}", i, myarr(i))
        next i
    end sub

end class