清除字符串中指定的字符_visualbasic教程

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