VBA strComp()函数

在比较两个给定字符串后，StrComp函数返回一个整数值。它可以根据要比较的输入字符串返回三个值：-1,0或1中的任何一个。如下 -

• 如果 String1 < String2, 那么 StrComp 函数返回 -1
• 如果 String1 = String2, 那么 StrComp 函数返回 0
• 如果 String1 > String2, 那么 StrComp 函数返回 1

语法

StrComp(string1,string2[,compare])

参数说明

• String1 - 必需的参数。第一个字符串表达式。
• String2 - 必需的参数。第二个字符串表达式。
• Compare - 一个可选参数。 指定要使用的字符串比较。它可以采用以下值。
  • 0 = vbBinaryCompare - 执行二进制比较(默认)
  • 1 = vbTextCompare - 执行文本比较

示例

添加一个模块，并将下面的代码放在编辑器中。

Private Sub Constant_demo_Click()
   Dim var1 as Variant
   msgbox("Line 1 :" & StrComp("Microsoft","Microsoft"))
   msgbox("Line 2 :" &StrComp("Microsoft","MICROSOFT"))
   msgbox("Line 3 :" &StrComp("Microsoft","MiCrOsOfT"))
   msgbox("Line 4 :" &StrComp("Microsoft","MiCrOsOfT",1))
   msgbox("Line 5 :" &StrComp("Microsoft","MiCrOsOfT",0))
End Sub

执行上面示例代码，得到以下结果 -

Line 1 :0
Line 2 :1
Line 3 :1
Line 4 :0
Line 5 :1