Question

【求助】用VB编写一个程序

编写程序，将任意一个十进制数n分别转换成2进制、8进制或16进制数。
要求：利用Sub过程实现十进制数的转换。
提示：将十进制数不断除以2（8或16）取余数，注意正确处理余数的高位与低位问题。

Answer 1

十进制转换为二进制
Public sub DEC_to_BIN(Byval Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End sub
十进制转换为十六进制
Public sub DEC_to_HEX(Byval Dec As Long) As String
DEC_to_HEX=HEX(Dec)
End sub

十进制到八进制

Public sub DEC_to_OCT(Byval Dec As Long) As String
DEC_to_OCT = ""
Do While Dec > 0
DEC_to_OCT = Dec Mod 8 & DEC_to_OCT
Dec = Dec \ 8
Loop
End sub