VB 如何定义字符串数组？？

takeiteasy

如题，说一下，如何定义一个包含有100个String类型的数组
还有，如何定义一个String类型的动态数组

callach

1、如何定义一个包含有100个String类型的数组。
Dim tStrings(99) As String
或：
Dim tStrings(0 To 99) As String
或：
Dim tStrings(1 To 100) As String

2、如何定义一个String类型的动态数组。
Dim tStrings() As String

如果你想定义它有100个元素，则这样定义。
ReDim tStrings(0 To 99)
或
ReDim tStrings(1 To 100)

ReDim会使数组内容全部丢失。

如果你只想重新定义数组大小，而保留数组的内容可以这样：
Dim tStrings() As String
ReDim tStrings(0 To 99)
ReDim Preserve tStrings(0 To 49)

Preserve参数保留数组原有内容。但假如你缩小了数组的上界，则后面的元素会丢失。比如上面的定义，49到100的以后的元素就丢失了。

但需要注意的是使用Preserve参数时数组下界不可以更改，比如：
Dim tStrings() As String
ReDim tStrings(51 To 100)
ReDim Preserve tStrings(0 To 100)
这样会出错。

而下面这样则是可以的：
Dim tStrings() As String
ReDim tStrings(0 To 100)
ReDim Preserve tStrings(0 To 49)