十进制转化为二进制vb程序 求vb程序设计将十进制转换成八进制和十六进制的代码？

求vb程序设计将十进制转换成八进制和十六进制的代码？VB有转换功能：dim x as longx=1234print“decimal number”xprint“convert to octal”OC

求vb程序设计将十进制转换成八进制和十六进制的代码？

VB有转换功能：

dim x as long

x=1234

print“decimal number”x

print“convert to octal”OCT（x）

print“convert to hexadecimal”hex（x）

code:privatesubcommand1 uclick（）dimxaslongx=Val（InputBox（“please enter a decimal number:”）打印“转换为”的结果八进制是“”，str（DEC到OCT（x））EndSubPublicFunctionDEC到OCT（DecAsLong）AsStringDEC到OCT=“”DoWhileDec>0DEC到OCT=DecMod8&DEC到Octdec=DEC8loopendfunction图：