Dim lk,Str1,Str2,k,long2,err Str1="比克大魔":Str2="比克大魔王":k=1:lk=1 //k为字符个数偏差数,lk为字符长度偏差数 Gosub 检查字符串 If err=1 MessageBox "相似" Else MessageBox "不相似" EndIf EndScript Sub 检查字符串 i=0 e=0 long2=Abs(Len(Str1)-Len(Str2)) While i<=len(Str1) and i<=len(Str2) If Mid(Str1,1,1)<>Mid(Str2,1,1) //切割字符串 e=e+1 EndIf i=i+1 EndWhile If CInt(long2)=<lk and e<=k err=1 Else err=0 EndIf Return