vb编程 将十进制数转换为二进制和十六进制 用do while编程

vb编程，用do-while循环实现十进制转二进制和十六进制： 1、十进制转为二进制： Sub DecimalToBinary()Dim intNumber As IntegerDim intRemainder As IntegerDim strRemainder As StringDim strBinaryNumber As StringintNumber = CInt(InputBox("Enter number in decimal:", "DECIMAL TO BIN