十進(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圖: