UC知道关于vb 数组赋值的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 19:28:43
vb数组可不可以直接为每个元素赋值，各个元素之间没有规律的，不能用for语句的，比如我要定义一个string数组存储中国所有省级行政区的名字，没法用for语句吧，也没必要一句一句，一个省份一个省份的赋值吧，还有别的什么办法？好像可以吧，好长时间不弄vb了，就是想不起具体格式来了。
dim p() as string
dim Mystr as string
mystr="北京|上海|天津|河北……"省略号就是其它省份名称，每两个省之间用"|"分开，也可以用其它的分隔符
p()=split(mystr,"|")
如果想列出，则
dim i as integer
for i=0 to ubound(p())
print p(i)
next i
用枚举？
不太清楚 你说的什么规律问题
就比如说你说的中国行政区的名字问题 ，首先我们要知道你的数据室从哪里来的 要是你要在运行期间有用户一个一个加的话 就可以用循环 比如
for i=1 to 10
xzq(i)=inputbox("行政区")
next
假如你的数据是来自有格式文件的话 比如文件内容是"广东 湖南 湖北"等等
xzq=split("广东 湖南 湖北"," ")
dim suzu() as Variant
suzu=Array("北京","上海","河北省","山东省","浙江省","福建省")
用Split()函数最简单:
sub test()
dim a ,b as string
b ="北京 上海 天津 重庆"
a=Split(b)'即为所需数组
end sub