VB十进制八进制十六进制二进制相互转换大全

Documentserialnumber【LGGKGB-LGG98YT-LGGT8CB-LGUT-LGG08】VB十进制八进制十六进制二进制相互转换大全VB--十进制，八进制，十六进制，二进制相互转换大全1.用途：将十进制转化为二进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_BIN(二进制数)'输出数据类型：StringPublicFunctionDEC_to_BIN(DecAsLong)AsStringDEC_to_BIN=""DoWhileDec>0DEC_to_BIN=DecMod2&DEC_to_BINDec=Dec\2LoopEndFunction'2.用途：将二进制转化为十进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_DEC(十进制数)'输出数据类型：LongPublicFunctionBIN_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(二进制数)'输出数据类型：StringPublicFunctionHEX_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'4.用途：将二进制转化为十六进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_HEX(十六进制数)'输出数据类型：StringPublicFunctionBIN_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"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'5.用途：将十六进制转化为十进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_DEC(十进制数)'输出数据类型：LongPublicFunctionHEX_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-1)*2Case"3":B=B+16^(i-1)*3Case"4":B=B+16^(i-1)*4Case"5":B=B+16^(i-1)*5Case"6":B=B+16^(i-1)*6Case"7":B=B+16^(i-1)*7Case"8":B=B+16^(i-1)*8Case"9":B=B+16^(i-1)*9Case"A":B=B+16^(i-1)*10Case"B":B=B+16^(i-1)*11Case"C":B=B+16^(i-1)*12Case"D":B=B+16^(i-1)*13Case"E":B=B+16^(i-1)*14Case"F":B=B+16^(i-1)*15EndSelectNextiHEX_to_DEC=BEndFunction'6.用途：将十进制转化为十六进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_HEX(十六进制数)'输出数据类型：StringPublicFunctionDEC_to_HEX(DecAsLong)AsStringDimaAsStringDEC_to_HEX=""DoWhileDec>0a=CStr(DecMod16)SelectCaseaCase"10":a="A"Case"11":a="B"Case"12":a="C"Case"13":a="D"Case"14":a="E"Case"15":a="F"EndSelectDEC_to_HEX=a&DEC_to_HEXDec=Dec\16LoopEndFunction'7.用途：将十进制转化为八进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_OCT(八进制数)'输出数据类型：StringPublicFunctionDEC_to_OCT(DecAsLong)AsStringDEC_to_OCT=""DoWhileDec>0DEC_to_OCT=DecMod8&DEC_to_OCTDec=Dec\8LoopEndFunction'8.用途：将八进制转化为十进制'输入：Oct(八进制数)'输入数据类型：String'输出：OCT_to_DEC(十进制数)'输出数据类型：LongPublicFunctionOCT_to_DEC(ByValOctAsString)AsLongDimiAsLongDimBAsLongFori=1ToLen(Oct)SelectCaseMid(Oct,Len(Oct)-i+1,1)Case"0":B=B+8^(i-1)*0Case"1":B=B+8^(i-1)*1Case"2":B=B+8^(i-1)*2Case"3":B=B+8^(i-1)*3Case"4":B=B+8^(i-1)*4Case"5":B=B+8^(i-1)*5Case"6":B=B+8^(i-1)*6Case"7":B=B+8^(i-1)*7EndSelectNextiOCT_to_DEC=BEndFunction'9.用途：将二进制转化为八进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_OCT(八进制数)'输出数据类型：StringPublicFunctionBIN_to_OCT(ByValBinAsString)AsStringDimiAsLongDimHAsStringIfLen(Bin)Mod3<>0ThenBin=String(3-Len(Bin)Mod3,"0")&BinEndIfFori=1ToLen(Bin)Step3SelectCaseMid(Bin,i,3)Case"000":H=H&"0"Case"001":H=H&"1"Case"010":H=H&"2"Case"011":H=H&"3"Case"100":H=H&"4"Case"101":H=H&"5"Case"110":H=H&"6"Case"111":H=H&"7"EndSelectNextiWhileLeft(H,1)="0"H=Right(H,Len(H)-1)WendBIN_to_OCT=HEndFunction'10.用途：将八进制转化为二进制'输入：Oct(八进制数)'输入数据类型：String'输出：OCT_to_BIN(二进制数)'输出数据类型：StringPublicFunctionOCT_to_BIN(ByValOctAsString)AsStringDimiAsLongDimBAsStringFori=1ToLen(Oct)SelectCaseMid(Oct,i,1)Case"0":B=B&"000"Case"1":B=B&"001"Case"2":B=B&"010"Case"3":B=B&"011"Case"4":B=B&"100"Case"5":B=B&"101"Case"6":B=B&"110"Case"7":B=B&"111"EndSelectNextiWhileLeft(B,1)="0"B=Right(B,Len(B)-1)WendOCT_to_BIN=BEndFunction'11.用途：将八进制转化为十六进制'输入：Oct(八进制数)'输入数据类型：String'输出：OCT_to_HEX(十六进制数)'输出数据类型：StringPublicFunctionOCT_to_HEX(ByValOctAsString)AsStringDimBinAsStringBin=OCT_to_BIN(Oct)OCT_to_HEX=BIN_to_HEX(Bin)EndFunction'12.用途：将十六进制转化为八进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_OCT(八进制数)'输出数据类型：StringPublicFunctionHEX_to_OCT(ByValHexAsString)AsStringDimBinAsStringHex=UCase(Hex)Bin=HEX_to_BIN(Hex)HEX_to_OCT=BIN_to_OCT(Bin)EndFunctionVB自带函数：十进制转八进制：Oct(num)十六进制转八进制：oct("&H"&num)十进制转十六进制：hex(num)八进制转十六进制：hex("&O"&num)十六进制转换为十进制DimstrAsStringstr==CLng("&H"&str)