改錯(cuò)題共三個(gè)錯(cuò)誤
(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)倒數(shù)第三行的Exit For 修改為Exit Function