十進制轉(zhuǎn)化為二進制vb程序 求vb程序設計將十進制轉(zhuǎn)換成八進制和十六進制的代碼?
求vb程序設計將十進制轉(zhuǎn)換成八進制和十六進制的代碼?VB有轉(zhuǎn)換功能:dim x as longx=1234print“decimal number”xprint“convert to octal”O(jiān)C
求vb程序設計將十進制轉(zhuǎ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é)果八進制是“”,str(DEC到OCT(x))EndSubPublicFunctionDEC到OCT(DecAsLong)AsStringDEC到OCT=“”DoWhileDec>0DEC到OCT=DecMod8&DEC到Octdec=DEC8loopendfunction圖: