VB中各种进制的转换.doc

VB中各种进制的转换.doc

ID:59548078

大小:25.50 KB

页数:7页

时间:2020-11-10

VB中各种进制的转换.doc_第1页
VB中各种进制的转换.doc_第2页
VB中各种进制的转换.doc_第3页
VB中各种进制的转换.doc_第4页
VB中各种进制的转换.doc_第5页
资源描述:

《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"

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。