私人？Sub？表單_單擊()
暗淡？x？作為？整數
暗淡？n1？作為？整數，？n2？作為？整數，？n3？作為？整數
使不規則化
x？=?Int(Rnd？*?900)?+?100
n1？=?x？\?100
n2？=?(x？Mod？100)?\?10
n3？=?x？Mod？10
打印？x，？n3？*?100?+?n2？*?10?+?n1
結束？子串逆序法:
私人？Sub？表單_單擊()
暗淡？x？作為？整數
暗淡？n1？作為？字符串，？n2？作為？字符串，？n3？作為？線
使不規則化
x？=?Int(Rnd？*?900)?+?100
n1？=?左(x，？1)
n2？=?Mid(x，？2,?1)
n3？=?對(x，？1)
打印？x，？Val(n3？& amp？n2？& amp？n1)
結束？Sub補充了最簡單的直接函數求逆法；
私人？Sub？表單_單擊()
暗淡？x？作為？整數
使不規則化
x？=?Int(Rnd？*?900)?+?100
打印？x，？Val(StrReverse(x))
結束？潛水艇