VB中各种进制的转换.doc

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

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

2、      DEC_to_BIN=DecMod2&DEC_to_BIN        Dec=Dec2    LoopEndFunction'用途：将二进制转化为十进制'输入：Bin(二进制数)'输入数据类型：String'输出：BIN_to_DEC(十进制数)'输出数据类型：Long'输入的最大数为(31个1),输出最大数为PublicFunctionBIN_to_DEC(ByValBinAsString)AsLong    DimiAsLong    Fori=1ToLen(Bin)    

3、    BIN_to_DEC=BIN_to_DEC*2+Val(Mid(Bin,i,1))    NextiEndFunction'用途：将十六进制转化为二进制'输入：Hex(十六进制数)'输入数据类型：String'输出：HEX_to_BIN(二进制数)'输出数据类型：String'输入的最大数为个字符PublicFunctionHEX_to_BIN(ByValHexAsString)AsString    DimiAsLong    DimBAsString        Hex=UCase(

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

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

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

7、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,4)            Case"0000":H=H&"0"            Case"0001":H=H&

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