［二级VB试题天天练］VB考试试题4

文章作者 100test 发表时间 2007:03:10 17:56:26
来源 100Test.Com百考试题网

练习一下算术运算符：
写出下列各表达式的返回值
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