VB中各种进制的转换

《VB中各种进制的转换》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB中各种进制的转换发表于2007-3-216:31:39'-------------------------------------------------'用途：将十进制转化为二进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_BIN(二进制数)'输出数据类型：String'输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)PublicFunctionDEC_to_BIN(DecAsLong)AsString

2、    DEC_to_BIN=""    DoWhileDec>0        DEC_to_BIN=DecMod2&DEC_to_BIN        Dec=Dec2    LoopEndFunction'用途：将二进制转化为十进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647PublicFunctionBI

3、N_to_DEC(ByValBinAsString)AsLong    DimiAsLong    Fori=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

4、(ByValHexAsString)AsString    DimiAsLong    DimBAsString        Hex=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"         

5、   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&"1

6、100"            Case"D":B=B&"1101"            Case"E":B=B&"1110"            Case"F":B=B&"1111"        EndSelect    Nexti    WhileLeft(B,1)="0"        B=Right(B,Len(B)-1)    Wend    HEX_to_BIN=BEndFunction'用途：将二进制转化为十六进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_

7、HEX(十六进制数)'输出数据类型：String'输入的最大数为2147483647个字符PublicFunctionBIN_to_HEX(ByValBinAsString)AsString    DimiAsLong    DimHAsString    IfLen(Bin)Mod4<>0Then        Bin=String(4-Len(Bin)Mod4,"0")&Bin    EndIf        Fori=1ToLen(Bin)Step4        SelectCaseMid(Bin,i

8、,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"0