Question

编写程序段，比较两个字符串STR1和STR2是否全部相等。若完全相等，置AL=1；若不完成相等，则置AL=－1

Answer 1

会者不难，难者不会嘛。

if str1=str2 then
al=1
else
al=-1
end if

这是最简单的方法

此外还可以用StrComp函数，用法是：

StrComp(string1, string2[, compare])
StrComp 函数的语法有以下参数：

参数 描述
string1 必选。任意有效的字符串表达式。
string2 必选。任意有效的字符串表达式。
compare 可选。指示在计算字符串时使用的比较类型的数值。如果省略，则执行二进制比较。有关数值，请参阅“设置”部分。

设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
vbDatabaseCompare 2 执行基于数据库（在此数据库中执行比较）中包含的信息的比较。

返回值
StrComp 函数有以下返回值：
如果 StrComp 返回
string1 小于 string2 -1
string1 等于 string2 0
string1 大于 string2 1
string1 或 string2 为 Null Null

或者用like
通常大家都不用like

Answer 2

用串操作比较，如果有一个不等就置AL=1, 这样的问题你也发啊-_-!