StrComp 函数
返回指示字符串比较的结果的 Variant (Integer)。
语法
StrComp (string1， string2， [ compare ])
StrComp 函数语法包含以下命名参数：
| Part | 说明 |
|---|---|
| string1 | 必需。 任何有效的字符串表达式。 |
| string2 | 必需。 任何有效的字符串表达式。 |
| compare | 可选。 指定字符串比较的类型。 如果 比较参数 为 Null，则会发生错误。 如果省略 compare，则 Option Compare 设置将决定比较的类型。 |
设置
compare 参数设置为：
| 常量 | 值 | 说明 |
|---|---|---|
| vbUseCompareOption | -1 | 使用 Option Compare 语句的设置来执行比较。 |
| vbBinaryCompare | 0 | 执行二进制比较。 |
| vbTextCompare | 1 | 执行文本比较。 |
| vbDatabaseCompare | 2 | 仅用于 Microsoft Access。 根据数据库中的信息执行比较。 |
返回值
StrComp 函数包含以下返回值：
| If | 则 StrComp 返回 |
|---|---|
| string1 小于 string2 | -1 |
| string1 等于 string2 | 0 |
| string1 大于 string2 | 1 |
| string1 或 string2 为 Null | Null |
示例
此示例使用 StrComp 函数返回字符串比较的结果。 如果第三个参数为 1，则执行文本比较；如果第三个参数为 0 或被省略，则执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。