感謝兩位大大，寫的真詳細...
小弟只是初學者，參考的是學校的課本。

因為版權的問題我不敢全部轉載上來，我把連結附上，
http://vbex.net/selffunction/isundivnum.html
粉小的程式，適合初學。