例子如下，在VB中新建一个Form。

Private Sub Form_Click()
  Dim array1(0 To 10000) As String
  Dim i As Integer
  For i = 0 To 10000
    array1(i) = Str(i)
  Next i
 
  Dim a As String
  a = "a"
  If UBound(Filter(array1, a, False, 1)) = UBound(array1) Then
        MsgBox "不包含"
  Else
        MsgBox "包含"
  End If
End Sub

关于Filter函数的语法如下：

Filter函数   
  描述   
  返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。   
  语法   
  Filter(InputStrings,Value[,Include[,Compare]])   
  Filter函数语法有如下几部分：   
  部分           描述    
  InputStrings   必需的。要执行搜索的一维字符串数组。    
  Value          必需的。要搜索的字符串。    
  Include        可选的。Boolean值，表示返回子串包含还是不包含Value字符串。如果Include是True，Filter返回的是包含Value子字符串的数组子集。如果Include是False，Filter返回的是不包含Value子字符串的数组子集。    
  Compare   可选的。数字值，表示所使用的字符串比较类型。有关其设置，请参阅下面的“设置值”部分。     
  设置值   
  Compare参数的设置值如下：   
  常数                 值        描述    
  vbUseCompareOption   –1   使用Option   Compare语句的设置值来执行比较。    
  vbBinaryCompare       0    执行二进制比较。    
  vbTextCompare         1    执行文字比较。    
  vbDatabaseCompare     2    只用于Microsoft   Access。基于您的数据库信息来执行比较。