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