VBIEEE-75432位单精度浮点数计算源码OptionExplicitPrivateFunctionGetData(TmpHexAsString)AsStringDimTmpBinAsStringDimTmpMiAsIntegerOnErrorResumeNextTmpBin=HexToBin(TmpHex)Label1.Caption=TmpBin长度Len(TmpBin)位,第1位1为负数，0为正数TmpMi=BinToOct(Mid(TmpBin,2,8))-127GetData=Round(BinToOct(1.Mid(TmpBin,10,23))*(2^TmpMi),6)IfLeft(TmpBin,1)=1ThenGetData=-GetDataEndFunctionPrivateFunctionHexToBin(TmpHe...
