改錯題共三個錯誤
(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