IEEE-754-32位单精度浮点数计算VB源码.doc

《IEEE-754-32位单精度浮点数计算VB源码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBIEEE-75432位单精度浮点数计算源码OptionExplicitPrivateFunctionGetData(TmpHexAsString)AsStringDimTmpBinAsStringDimTmpMiAsIntegerOnErrorResumeNextTmpBin=HexToBin(TmpHex)Label1.Caption=TmpBin&"长度"&Len(TmpBin)&"位,第1位1为负数，0为正数"TmpMi=BinToOct(Mid(TmpBin,2,8))-127GetData=Roun

2、d(BinToOct("1."&Mid(TmpBin,10,23))*(2^TmpMi),6)IfLeft(TmpBin,1)="1"ThenGetData="-"&GetDataEndFunctionPrivateFunctionHexToBin(TmpHexAsString)AsStringDimnAsIntegerDimIAsIntegerDimTmpBinAsStringOnErrorResumeNextForn=1ToLen(TmpHex)I=Val("&H"&Mid(TmpHex,n,1))TmpBi

3、n=""WhileI>0TmpBin=CStr(IMod2)&TmpBinI=I2WendHexToBin=HexToBin&Right("0000"&TmpBin,4)NextnEndFunctionPrivateFunctionBinToOct(TmpBinAsString)AsDoubleDimnAsIntegerDimTmpS()AsStringOnErrorResumeNextTmpS=Split(TmpBin,".")Forn=1ToLen(TmpS(0))IfMid(TmpS(0),n,1)="1

4、"ThenBinToOct=BinToOct+(2^(Len(TmpS(0))-n))NextnIfUBound(TmpS)=1ThenForn=1ToLen(TmpS(1))IfMid(TmpS(1),n,1)="1"ThenBinToOct=BinToOct+(2^(-1*n))NextnEndIfEndFunction