VB编程序实现十进制数转换成2、8、16进制数.docx

VB编程序实现十进制数转换成2、8、16进制数

十进制转二进制

PublicFunctionDECtoBIN(DecAsLong)AsStringDECtoBIN=

DoWhileDec0

DECtoBIN=DecMod2DECtoBINDec=Dec\2

LoopEndFunction

十进制转八进制：

VB自带函数：Oct(num)

十进制转十六进制：

VB自带函数：hex(num)

转换成十六进制Hex()

如：10（十进制）:Hex(10)=A转换成8进制Oct()

如：10（十进制）:Oct(10)=12转换成2进制，使用下面的方法

采用连除2取余数，将一个十进制数转换为二进制数

DimDecAsInteger输入一个十进制数DimBinAsString转换为二进制表示DimresAsInteger

DimiAsInteger

Dec=Val(InputBox(x=))Form1.Print十进制数：;DecDo

res=DecMod2求出除以2的余数

Bin=resBinDec=Dec\2

LoopWhileDec0

Form1.Print转换为二进制数为：;Bin

PrivateSubCommand1_Click()Printbin(Text1.Text)

EndSub

Functionbin(nAsLong)AsStringDoUntiln=0

bin=(nMod2)binn=n\2

Loop

EndFunction

十六进制：Hex(number)或使用H前缀八进制：Oct(number)或使用O前缀

二、八、十六进制转为十进制：

参数sdate为要进行转换的数，stype为此数的类型。

如要将十六进制的7b转为十进制:msgboxOtherToShi(7b,16)

PrivateFunctionOtherToShi(ByValSdateAsString,ByValStypeAsLong)AsStringDimAAsString,KAsLong,PAsLong

Iftrim(sdate)=thenmsgbox请输入要转换的数！:Exitfunction

OnErrorGoToExitsubP=Len(Sdate)

SelectCaseStype

Case2

ForK=1ToP

IfMid(Sdate,K,1)1ThenGoToExitsub

NextCase8

IfIsNumeric(Sdate)=FalseThenGoToExitsubSdate=Round(Sdate)

p=len(sdate)Case16

ForK=1ToP

A=Asc(LCase(Mid(Sdate,K,1)))

IfA48Or(A49AndA97)OrA102ThenGoToExitsub

Next

CaseElse按你说的操作,此句好象可免

MsgBox指定转换的类型不正确，请重新输入！:ExitFunctionEndSelect

K=0

DoWhileKP

K=K+1

A=Mid(Sdate,K,1)IfStype=16Then

SelectCaseLCase(A)Casea

A=10

Caseb

A=11

CasecA=12

CasedA=13

CaseeA=14

CasefA=15

EndSelectEndIf

OtherToShi=LTrim(Str(Val(OtherToShi)+Val(A)*Stype^(P-K)))Loop

ExitFunctionExitsub:

MsgBox要转化为Stype进制的数据不合法,请重新输入！

EndFunction

十进制转为二、八、十六进制:

用法与上类似

PrivateFunctionShiToOther(ByValSdateAsString,ByValStypeAsLong)AsStringDimSAsString

Iftrim(sdate)=thenmsgbox请输入要转换的数！:Exitfunction

IfIsNumeric(Sdate)=FalseThenGoToEx