该函数在字符串s中清除Search（注意：如果s为AAABBB，Search为AB。如何？）：
FunctionStringCleaner(sAsString,SearchAsString)AsString
DimiAsInteger,resAsString
res=s
DoWhileInStr(res,Search)
i=InStr(res,Search)
res=Left(res,i-1)&Mid(res,i 1)
Loop
StringCleaner=res
EndFunction

007快速交换整数
可用以下的代码快速交换两个整数（Interger）：
a=axorb
b=axorb
a=axorb->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!