设计一程序，实现将任意一个十进制整数转换为2-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