该函数在字符串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->