1. Dim lk,Str1,Str2,k,long2,err
2. Str1="比克大魔":Str2="比克大魔王":k=1:lk=1
3. //k为字符个数偏差数，lk为字符长度偏差数
4. 调用子程序 检查字符串
5. 如果表达式 (err=1) 为真,则
6.     弹出窗口 "相似"
7. 否则
8.     弹出窗口 "不相似"
9. 条件结束
10. 脚本停止运行
11. 子程序 检查字符串
12.     i=0
13.     e=0
14.     long2=Abs(Len(Str1)-Len(Str2))
15.     如果表达式 (i<=len(Str1) and i<=len(Str2)) 为真,则循环执行
16.         如果表达式 (Mid(Str1,1,1)<>Mid(Str2,1,1)) 为真,则
17.             //切割字符串
18.             e=e+1
19.         条件结束
20.         i=i+1
21.     循环结束
22.     如果表达式 (CInt(long2)=<lk and e<=k) 为真,则
23.         err=1
24.     否则
25.         err=0
26.     条件结束
27. 子程序结束,回到调用处