實現對字符型編號自動加1。
?auto_number('北京001‘)
顯示為：北京002
?auto_number('001‘)
顯示為：002
程序雖隻有兩行，但用到了好幾個內置的字符串函數，還有前導0的處理：
StrReverse：字符串取反
Val：字符串轉數值，取字符串左邊數字，包括空格
Left：取字符串左邊指定個數的子字符串，對應的還有Right,Mid
Len：返回字符串長度
Format：格式化字符串，這裏是返回帶前導0的數值
String：返回重復指定個數的字符的字符串，類似的有Space函數
Function AutoNum(strNum As String) As String
    AutoNum = StrReverse(Val(StrReverse(strNum)))
    AutoNum = Left(strNum, Len(strNum) - Len(AutoNum)) & Format((AutoNum + 1), String(Len(AutoNum), "0"))
End Function