VBA - strComp

StrComp 函数在比较给定的两个字符串后返回一个整数。基于待比较的输入字符串，它可以返回三个值之一 -1、0 或 1。

• 如果字符串 1 < 字符串 2，则 StrComp 返回 -1
• 如果字符串 1 = 字符串 2，则 StrComp 返回 0
• 如果字符串 1 > 字符串 2，则 StrComp 返回 1

语法

StrComp(string1,string2[,compare]) 

参数描述

• 字符串 1 - 必需参数。第一个字符串表达式。

• 字符串 2 - 必需参数。第二个字符串表达式。

• 比较 - 可选参数。指定要使用的字符串比较。它可以采用以下值。

  • 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