练习一下算术运算符： 
 写出下列各表达式的返回值 
1^2   2^3   3^4   4^0.5 
12345 / 10 / 10 / 10 / 10 
12345  10  10  10  10 
12345 Mod 10  
上面的掌握了，那么把十进制整数12345转换成八进制整数的过程应该如何写呢？ 
如果要转换的是任意十进制整数呢？ 
不妨考虑一下写一个十进制数转换成八进制数的自定义函数吧——
表达式的返回值我就不说了。
下面是使用简单的算术运算符实现的十进制整数转换为八进制整数的的函数，
旨在抛砖引玉——
Option Explicit 
Private Sub Command1_Click()
    Dim i As Long
    i = 12345
    Print Val(Myfun(i))
End Sub
Private Function Myfun(A As Long) As String
    Dim B(50) As Integer
    Dim i As Long
    While A > 0
        B(i) = A Mod 8
        A = A  8
        i = i   1
    Wend
    For i = i - 1 To 0 Step -1
        Myfun = Myfun   Str(B(i))
    Next
End Function