VBA strComp函数

StrComp函数返回比较这两个给定的字符串后的整数值。它可以返回任何三个值-1，0或1根据所输入的字符串进行比较。

• 如果 String 1 < String 2 那么 StrComp 返回  -1

• 如果 String 1 = String 2 那么 StrComp 返回  0

• 如果 String 1 > String 2 那么 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