佛山凤池门窗市场:编写程序段,比较两个字符串STR1和STR2是否全部相等。若完全相等,置AL=1;若不完成相等,则置AL=-1

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 00:15:30

会者不难,难者不会嘛。

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

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