【烟花原创】VBA零基础之第171篇VBA函数之字符串（七）

14>StrComp函数

功能：返回 Variant(Integer)，为字符串比较的结果。

语法：StrComp(string1,string2[, compare])

string1 必要参数。任何有效的字符串表达式。

string2 必要参数。任何有效的字符串表达式。

Compare 可选参数。指定字符串比较的类型。如果 compare 参数是 Null，将发生错误。

如果省略 compare，Option Compare 的设置将决定比较的类型。

compare 参数可取值如下：

vbBinaryCompare 0 执行一个二进制比较。

vbTextCompare 1 执行一个按照原文的比较。

vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库信息的比较。

StrComp 函数有下列返回值：

-1，string1 小于 string2

0，string1 等于 string2

1， string1 大于 string2

2， string1 或 string 2为 Null

示例：

在使用strcomp函数时，如果没有使用第三个参数，需要注意到模块的optioncompare设置。
如果模块中没有Option Compare 语句，则缺省的文本比较方法是Binary。

15>Asc函数

功能：返回一个Integer，代表字符串中首字母的字符代码。

语法：Asc(string)

String必要参数，可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。

说明：

在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。

注意 AscB 函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与 Asc 函数功能相同。

示例：

16>Chr函数

功能：返回 String，其中包含有与指定的字符代码相关的字符 。与ASC函数的功能是反向的。

语法：Chr(charcode)

必要的 charcode 参数是一个用来识别某字符的 Long。

说明：

0 到 31 之间的数字与标准的非打印ASCII 代码相同。例如，Chr(10)可以返回换行字符。charcode的正常范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。

注意 ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW函数返回包含 Unicode的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。

注意 VisualBasic for the Macintosh 不支持Unicode 字符串。因此，当n 值在128 – 65,535 范围内时， ChrW(n) 不能像在Windows环境中那样返回所有的 Unicode 字符。相反地，当Unicode 的n 值大于127 时，ChrW(n) 会试图做一个“最好的猜测”。因此，在Macintosh 环境中，不能使用ChrW 。

示例：