急求VB代码-编程序实现一个十进制数转换成2、8、16进制数。

十进制转二进制 Public Function DECtoBIN(Dec As Long) As String DECtoBIN = "" Do While Dec > 0 DECtoBIN = Dec Mod 2 & DECtoBIN Dec = Dec \ 2 Loop End Function 十进制转八进制： VB自带函数：Oct(num) 十进制转十六进制： VB自带函数：he