StrComp()函数的用法

语法如下：
StrComp(string1, string2[, compare])

compare argument比较参数设置：
vbBinaryCompare  0   Perform a binary comparison.
vbTextCompare    1   Perform a textual comparison.

返回值：
string1 is less than string2 -1
string1 is equal to string2 0
string1 is greater than string2 1
string1 or string2 is Null Null

算例

Dim a As Integer
a = StrComp("Women", "women", vbBinaryCompare) ' vbTextCompare)

当compare是vbBinaryCompare时
a = -1 说明是逐个字符比较的，当遇到第一个不相等的字符时，返回值

当compare是vbTextCompare时
a = 0 说明是整个字符串比较的，若是字母，则不分大小写