Question

关于vb 数组赋值的问题

vb数组可不可以直接为每个元素赋值，各个元素之间没有规律的，不能用for语句的，比如我要定义一个string数组存储中国所有省级行政区的名字，没法用for语句吧，也没必要一句一句，一个省份一个省份的赋值吧，还有别的什么办法？好像可以吧，好长时间不弄vb了，就是想不起具体格式来了。

Answer 1

数组的定义有两种形式。第一种：dim
arrayname(n)
as
type。这种形式中，数组变量是从arrayname(0)~arrayname(n)，共n+1个元素。第二种：dim
arrayname(lower
to
upper)
as
type。这种形式中可以定义数组上界和下界，比如dim
ia(4
to
14)
as
integer。这样就可以对应从ia(4)到ia(14)的赋值。至于对应问题，不是硬性规定的，你可以随意赋值，这要按程序要求了，比如程序要求改成ia(i)=i+10，就不是那样对应了

Answer 2

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

Answer 3

不太清楚 你说的什么规律问题
就比如说你说的中国行政区的名字问题 ，首先我们要知道你的数据室从哪里来的 要是你要在运行期间有用户一个一个加的话 就可以用循环 比如
for i=1 to 10
xzq(i)=inputbox("行政区")
next
假如你的数据是来自有格式文件的话 比如文件内容是"广东 湖南 湖北"等等
xzq=split("广东 湖南 湖北"," ")

Answer 4

用Split()函数最简单:
sub test()
dim a ,b as string
b ="北京 上海 天津 重庆"
a=Split(b)'即为所需数组
end sub

Answer 5

dim suzu() as Variant
suzu=Array("北京","上海","河北省","山东省","浙江省","福建省")