Question

如何让字符串数组的Contains忽略大小写

Answer 1

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)