改错题共三个错误

(1)s=str(i)修改为  s=cstr(i)

(2)If  Mid(s,i+1,1)-Mid(s,i,1)<1  then 修改为:If  Mid(s,i+1,1)-Mid(s,i,1)<=1 

(3)倒数第三行的Exit For 修改为Exit Function