vb--十进制-八进制-十六进制-二进制相互转换大全.doc

VB--十进制,八进制,十六进制,:将十进制转化为二进制'输入:Dec(十进制数)'输入数据类型:Long'输出:DEC_to_BIN(二进制数)'输出数据类型:String'输入的最大数为2147483647,输出最大数为11111111111111111111**********(31个1)PublicFunctionDEC_to_BIN(DecAsLong)AsStringDEC_to_BIN=""DoWhileDec>0DEC_to_BIN=DecMod2&DEC_to_BINDec=Dec\2LoopEndFunction':将二进制转化为十进制'输入:Bin(二进制数)'输入数据类型:String'输出:BIN_to_DEC(十进制数)'输出数据类型:Long'输入的最大数为11111111111111111111**********(31个1),输出最大数为2147483647PublicFunctionBIN_to_DEC(ByValBinAsString)AsLongDimiAsLongFori=1ToLen(Bin)BIN_to_DEC=BIN_to_DEC*2+Val(Mid(Bin,i,1))NextiEndFunction':将十六进制转化为二进制'输入:Hex(十六进制数)'输入数据类型:String'输出:HEX_to_BIN(二进制数)'输出数据类型:String'输入的最大数为2147483647个字符PublicFunctionHEX_to_BIN(ByValHexAsString)AsStringDimiAsLongDimBAsStringHex=UCase(Hex)Fori=1ToLen(Hex)SelectCaseMid(Hex,i,1)Case"0":B=B&"0000"Case"1":B=B&"0001"Case"2":B=B&"0010"Case"3":B=B&"0011"Case"4":B=B&"0100"Case"5":B=B&"0101"Case"6":B=B&"0110"Case"7":B=B&"0111"Case"8":B=B&"1000"Case"9":B=B&"1001"Case"A":B=B&"1010"Case"B":B=B&"1011"Case"C":B=B&"1100"Case"D":B=B&"1101"Case"E":B=B&"1110"Case"F":B=B&"1111"EndSelectNextiWhileLeft(B,1)="0"B=Right(B,Len(B)-1)WendHEX_to_BIN=BEndFunction':将二进制转化为十六进制'输入:Bin(二进制数)'输入数据类型:String'输出:BIN_to_HEX(十六进制数)'输出数据类型:String'输入的最大数为2147483647个字符PublicFunctionBIN_to_HEX(ByValBinAsString)AsStringDimiAsLongDimHAsStringIfLen(Bin)Mod4<>0ThenBin=String(4-Len(Bin)Mod4,"0")&BinEndIfFori=1ToLen(Bin)Step4Select