十進(jìn)制轉(zhuǎn)化為二進(jìn)制vb程序 求vb程序設(shè)計(jì)將十進(jìn)制轉(zhuǎn)換成八進(jìn)制和十六進(jìn)制的代碼？
求vb程序設(shè)計(jì)將十進(jìn)制轉(zhuǎn)換成八進(jìn)制和十六進(jìn)制的代碼？VB有轉(zhuǎn)換功能：dim x as longx=1234print“decimal number”xprint“convert to octal”O(jiān)C
求vb程序設(shè)計(jì)將十進(jìn)制轉(zhuǎn)換成八進(jìn)制和十六進(jìn)制的代碼？
VB有轉(zhuǎn)換功能：
dim x as long
x=1234
print“decimal number”x
print“convert to octal”O(jiān)CT（x）
print“convert to hexadecimal”hex（x）
code:privatesubcommand1 uclick（）dimxaslongx=Val（InputBox（“please enter a decimal number:”）打印“轉(zhuǎn)換為”的結(jié)果八進(jìn)制是“”，str（DEC到OCT（x））EndSubPublicFunctionDEC到OCT（DecAsLong）AsStringDEC到OCT=“”DoWhileDec>0DEC到OCT=DecMod8&DEC到Octdec=DEC8loopendfunction圖：