用VB编写程序,把任意一个十进制N转换成分别用二进制,八进制和十六进制的数（用sub实现数值转换）

VB进制转换大全 ' 用途：将十进制转化为二 进 制 ' 输入：Dec(十进制数) ' 输入数据类型：Long ' 输出：DEC_to_BIN(二 进 制数) ' 输出数据类型：String ' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1) Public Function DEC_to_BIN(Byval Dec As Long) As String D