StrComp
StrComp函数返回比较这两个给定的字符串后的整数值。它可以返回任何三个值-1，0或1根据所输入的字符串进行比较。
-
如果 String 1 < String 2 那么 StrComp 返回 %uA0-1
-
如果 String 1 = String 2 那么%uA0StrComp 返回 %uA00
-
如果 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