下面三个关于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)
nextend 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 subend 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 subend class