资源描述：
《VB--十进制-八进制-十六进制-二进制相互转换大全.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB--十进制，八进制，十六进制，二进制相互转换大全1.用途：将十进制转化为二进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_BIN(二进制数)'输出数据类型：String'输入的最大数为,输出最大数为(31个1)PublicFunctionDEC_to_BIN(DecAsLong)AsStringDEC_to_BIN=""DoWhileDec>0DEC_to_BIN=DecMod2&DEC_to_BINDec=Dec2LoopEndFunction'2.用途：将二进制转化为十进制'输入：Bin(二进制数)'输入数据类型：Str
2、ing'输出：BIN_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为(31个1),输出最大数为PublicFunctionBIN_to_DEC(ByValBinAsString)AsLongDimiAsLongFori=1ToLen(Bin)BIN_to_DEC=BIN_to_DEC*2+Val(Mid(Bin,i,1))NextiEndFunction'3.用途：将十六进制转化为二进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_BIN(二进制数)'输出数据类型：String'输入的最大数为个字符Publi
3、cFunctionHEX_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"C
4、ase"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'4.用途：将二进制转化为十六进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_HEX(十六进制数)'输出数据类型：String
5、'输入的最大数为个字符PublicFunctionBIN_to_HEX(ByValBinAsString)AsStringDimiAsLongDimHAsStringIfLen(Bin)Mod4<>0ThenBin=String(4-Len(Bin)Mod4,"0")&BinEndIfFori=1ToLen(Bin)Step4SelectCaseMid(Bin,i,4)Case"0000":H=H&"0"Case"0001":H=H&"1"Case"0010":H=H&"2"Case"0011":H=H&"3"Case"0100":H=H&"4"Case"0
6、101":H=H&"5"Case"0110":H=H&"6"Case"0111":H=H&"7"Case"1000":H=H&"8"Case"1001":H=H&"9"Case"1010":H=H&"A"Case"1011":H=H&"B"Case"1100":H=H&"C"Case"1101":H=H&"D"Case"1110":H=H&"E"Case"1111":H=H&"F"EndSelectNextiWhileLeft(H,1)="0"H=Right(H,Len(H)-1)WendBIN_to_HEX=HEndFunction'5.用途：将十六进制转
7、化为十进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为7FFFFFFF,输出的最大数为PublicFunctionHEX_to_DEC(ByValHexAsString)AsLongDimiAsLongDimBAsLongHex=UCase(Hex)Fori=1ToLen(Hex)SelectCaseMid(Hex,Len(Hex)-i+1,1)Case"0":B=B+16^(i-1)*0Case"1":B=B+16^(i-1)*1Case"2":B=B+16^(i-
8、1)*2Case"3":B=B+16^(i-1)*3
