Function IsMember(StringValue As String, strArray() As String) As Integer
REM 判断字符串数组strArray()中是否包含字符串StringValue
REM 如不包含返回-1,如包含则返回字符串在数组中的位置
IsMember = -1
For i = Lbound(strArray) To Ubound(strArray)
If Strcompare(strArray(i), StringValue) = 0 Then
IsMember = i
Exit Function
End If
Next
End Function