vb 各种进制相互转换大全

《vb 各种进制相互转换大全》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB各种进制相互转换大全VB各种进制相互转换大全1推荐'用途：将十进制转化为二进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_BIN(二进制数)'输出数据类型：String'输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)PublicFunctionDEC_to_BIN(DecAsLong)AsStringDEC_to_BIN=""DoWhileDec>0DEC_to_BIN=DecMod2&DEC_to_BINDec=Dec2LoopEndFunction'用途：将二进制转化为十进制

2、'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647PublicFunctionBIN_to_DEC(ByValBinAsString)AsLongDimiAsLongFori=1ToLen(Bin)BIN_to_DEC=BIN_to_DEC*2+Val(Mid(Bin,i,1))NextiEndFunction'用途：将十六进制转化为二进制'输入：Hex(十六进制数)'输入数据类型：String'输

3、出：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&

4、"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_t

5、o_HEX(十六进制数)'输出数据类型：String'输入的最大数为2147483647个字符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"Cas

6、e"0100":H=H&"4"Case"0101":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'用途：将十

7、六进制转化为十进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为7FFFFFFF,输出的最大数为2147483647PublicFunctionHEX_to_DEC(ByValHexAsString)AsLongDimiAsLongDimBAsLongHex=UCase(Hex)Fori=1ToLen(Hex)SelectCaseMid(Hex