将文本分配给数组

问题描述：

如何将一组文本值分配给数组？我试过的东西没有用！将文本分配给数组

Months = Array("Jan", "Feb", ..., "Dec")

和其他我试过了不行！

答

Visual Basic不提供任何声明数组，同时初始化其元素。在大多数情况下，你最终，设置各个元素逐一为：

Dim strArray(0 To 3) As String 
    strArray(0) = "Spring" 
    strArray(1) = "Summer" 
    strArray(2) = "Fall" 
    strArray(3) = "Winter"

在VB4，VB5和VB6可以动态创建变量数组，使用的Array（）函数：

Dim varArray() As Variant 
    varArray() = Array("Spring", "Summer", "Fall", "Winter")

但目前还没有类似的乐趣到创建除 Variant之外的其他数据类型的数组。

Dim varArray() As String 
    ' arrays returned by Split are always zero-based 
    varArray() = Split("Spring;Summer;Fall;Winter", ";")

答

我敢肯定，你只能做这样的：

dim months(2) as string 

months(0) = "Jan" 
months(1) = "Feb" 
months(2) = "Mar"

如何陈旧。没关系。不管怎么说，还是要谢谢你！ – 2009-02-03 15:52:42

这很烦人。我尽可能地使用集合 – 2009-02-03 15:53:40

答

如果你谈论的VBScript那么这个工程：

months = Array("may","june","july")

如果您使用VB6，但是，可以使用斯普利特（）函数创建的字符串数组如果是vb.net，则：

dim months() as string = {"may","june","july"}