如何给一个静态数组赋值？ 有没有简单的方法？
例如：
有4个值：张三，李四，王五，赵六
我只会这样一行一行写
dim arr1(4)
arr1(0) = "张三"
arr1(1) = "李四"
arr1(2) = "王五"
arr1(3) = "赵六"
如果有很多项的话，代码看起来不舒服。。。

有
dim arr
arr=array（“张三”，“李四”，“王五”，“赵柳”，“孙琦”，“侯八”）
如果有几十上百的话，建议从文件读取

dim arr1(4) 后面加as string，否则默认是Variant类型，声明为as string可以减少调用时的转化
arr1(0) = "张三"
arr1(1) = "李四"
arr1(2) = "王五"
arr1(3) = "赵六"
...
多了，虽然繁锁但是这种写法在VB里算比较高效的写法，或者用:分开，一行可以写多项
arr1(0) = "张三":arr1(1) = "李四":arr1(2) = "王五":arr1(3) = "赵六"