vb十进制八进制十六进制二进制相互转换函数.docx
《vb十进制八进制十六进制二进制相互转换函数.docx》由会员分享，可在线阅读，更多相关《vb十进制八进制十六进制二进制相互转换函数.docx（15页珍藏版）》请在冰豆网上搜索。
vb十进制八进制十六进制二进制相互转换函数
vb--十进制_八进制_十六进制_二进制相互转换函数
VB--二进制,十进制，八进制，十六进制，相互转换函数
1.用途:
将十进制转化为二进制
'输入:
Dec（十进制数）
'输入数据类型:
Long
'输出:
DEC_to_BIN（二进制数）
'输出数据类型:
String
'输入的最大数为2147483647,输出最大数为1111111111111（31个1）PublicFunctionDEC_to_BIN（DecAsLong）AsString
DEC_to_BIN=""
DoWhileDec>0
DEC_to_BIN=DecMod2&DEC_to_BIN
Dec=Dec\2
Loop
EndFunction
'2.用途:
将二进制转化为十进制
'输入:
Bin（二进制数）
'输入数据类型:
String
'输出:
BIN_to_DEC（十进制数）
'输出数据类型:
Long
'输入的最大数为1111111111111（31个1）,输出最大数为2147483647PublicFunctionBIN_to_DEC（ByValBinAsString）AsLong
DimiAsLong
Fori=1ToLen（Bin）
BIN_to_DEC=BIN_to_DEC*2+Val（Mid（Bin,i,1））
Nexti
EndFunction
'3.用途:
将十六进制转化为二进制
'输入:
Hex（十六进制数）
'输入数据类型:
String
'输出:
HEX_to_BIN（二进制数）
'输出数据类型:
String
'输入的最大数为2147483647个字符
PublicFunctionHEX_to_BIN（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"
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"
EndSelect
Nexti
WhileLeft（B,1）="0"
B=Right（B,Len（B）-1）
Wend
HEX_to_BIN=B
EndFunction
'4.用途:
将二进制转化为十六进制
'输入:
Bin（二进制数）
'输入数据类型:
String
'输出:
BIN_to_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,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"
EndSelect
Nexti
WhileLeft（H,1）="0"
H=Right（H,Len（H）-1）
Wend
BIN_to_HEX=H
EndFunction
'5.用途:
将十六进制转化为十进制
'输入:
Hex（十六进制数）
'输入数据类型:
String
'输出:
HEX_to_DEC（十进制数）
'输出数据类型:
Long
'输入的最大数为7FFFFFFF,输出的最大数为2147483647
PublicFunctionHEX_to_DEC（ByValHexAsString）AsLong
DimiAsLong
DimBAsLong
Hex=UCase（Hex）
Fori=1ToLen（Hex）
SelectCaseMid（Hex,Len（Hex）-i+1,1）
Case"0":
B=B+16^（i-1）*0
Case"1":
B=B+16^（i-1）*1
Case"2":
B=B+16^（i-1）*2
Case"3":
B=B+16^（i-1）*3
Case"4":
B=B+16^（i-1）*4
Case"5":
B=B+16^（i-1）*5
Case"6":
B=B+16^（i-1）*6
Case"7":
B=B+16^（i-1）*7
Case"8":
B=B+16^（i-1）*8
Case"9":
B=B+16^（i-1）*9
Case"A":
B=B+16^（i-1）*10
Case"B":
B=B+16^（i-1）*11
Case"C":
B=B+16^（i-1）*12
Case"D":
B=B+16^（i-1）*13
Case"E":
B=B+16^（i-1）*14
Case"F":
B=B+16^（i-1）*15
EndSelect
Nexti
HEX_to_DEC=B
EndFunction
'6.用途:
将十进制转化为十六进制
'输入:
Dec（十进制数）
'输入数据类型:
Long
'输出:
DEC_to_HEX（十六进制数）
'输出数据类型:
String
'输入的最大数为2147483647,输出最大数为7FFFFFFFPublicFunctionDEC_to_HEX（DecAsLong）AsString
DimaAsString
DEC_to_HEX=""
DoWhileDec>0
a=CStr（DecMod16）
SelectCasea
Case"10":
a="A"
Case"11":
a="B"
Case"12":
a="C"
Case"13":
a="D"
Case"14":
a="E"
Case"15":
a="F"
EndSelect
DEC_to_HEX=a&DEC_to_HEX
Dec=Dec\16
Loop
EndFunction
'7.用途:
将十进制转化为八进制
'输入:
Dec（十进制数）
'输入数据类型:
Long
'输出:
DEC_to_OCT（八进制数）
'输出数据类型:
String
'输入的最大数为2147483647,输出最大数为PublicFunctionDEC_to_OCT（DecAsLong）AsString
DEC_to_OCT=""
DoWhileDec>0
DEC_to_OCT=DecMod8&DEC_to_OCT
Dec=Dec\8
Loop
EndFunction
'8.用途:
将八进制转化为十进制
'输入:
Oct（八进制数）
'输入数据类型:
String
'输出:
OCT_to_DEC（十进制数）
'输出数据类型:
Long
'输入的最大数为,输出的最大数为2147483647
PublicFunctionOCT_to_DEC（ByValOctAsString）AsLong
DimiAsLong
DimBAsLong
Fori=1ToLen（Oct）
SelectCaseMid（Oct,Len（Oct）-i+1,1）
Case"0":
B=B+8^（i-1）*0
Case"1":
B=B+8^（i-1）*1
Case"2":
B=B+8^（i-1）*2
Case"3":
B=B+8^（i-1）*3
Case"4":
B=B+8^（i-1）*4
Case"5":
B=B+8^（i-1）*5
Case"6":
B=B+8^（i-1）*6
Case"7":
B=B+8^（i-1）*7
EndSelect
Nexti
OCT_to_DEC=B
EndFunction
'9.用途:
将二进制转化为八进制
'输入:
Bin（二进制数）
'输入数据类型:
String
'输出:
BIN_to_OCT（八进制数）
'输出数据类型:
String
'输入的最大数为2147483647个字符
PublicFunctionBIN_to_OCT（ByValBinAsString）AsString
DimiAsLong
DimHAsString
IfLen（Bin）Mod3<>0Then
Bin=String（3-Len（Bin）Mod3,"0"）&Bin
EndIf
Fori=1ToLen（Bin）Step3
SelectCaseMid（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"
EndSelect
Nexti
WhileLeft（H,1）="0"
H=Right（H,Len（H）-1）
Wend
BIN_to_OCT=H
EndFunction
'10.用途:
将八进制转化为二进制
'输入:
Oct（八进制数）
'输入数据类型:
String
'输出:
OCT_to_BIN（二进制数）
'输出数据类型:
String
'输入的最大数为2147483647个字符
PublicFunctionOCT_to_BIN（ByValOctAsString）AsString
DimiAsLong
DimBAsString
Fori=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"
EndSelect
Nexti
WhileLeft（B,1）="0"
B=Right（B,Len（B）-1）
Wend
OCT_to_BIN=B
EndFunction
'11.用途:
将八进制转化为十六进制
'输入:
Oct（八进制数）
'输入数据类型:
String
'输出:
OCT_to_HEX（十六进制数）
'输出数据类型:
String
'输入的最大数为2147483647个字符
PublicFunctionOCT_to_HEX（ByValOctAsString）AsString
DimBinAsString
Bin=OCT_to_BIN（Oct）
OCT_to_HEX=BIN_to_HEX（Bin）EndFunction
'12.用途:
将十六进制转化为八进制
'输入:
Hex（十六进制数）
'输入数据类型:
String
'输出:
HEX_to_OCT（八进制数）
'输出数据类型:
String
'输入的最大数为2147483647个字符
PublicFunctionHEX_to_OCT（ByValHexAsString）AsString
DimBinAsString
Hex=UCase（Hex）
Bin=HEX_to_BIN（Hex）
HEX_to_OCT=BIN_to_OCT（Bin）EndFunction
VB自带函数:
十进制转八进制:
Oct（num）
十六进制转八进制:
oct（"&H"&num）
十进制转十六进制:
hex（num）
八进制转十六进制:
hex（"&O"&num）
十六进制转换为十进制
DimstrAsString
str=Text2.Text
Text10.Text=CLng（"&H"&str）
谣言:
吃太咸了会得病,
导语:
“人体每日摄入食盐不应过多，否则易患多种疾病。
”这是真的吗,
吃太咸了会得病,
一、网友评论:
1、网友:
冰冰23岁行政助理
我就是一个”重口味“的人，但身体很健康啊～
我就是一个特别爱吃咸的人，什么咸菜、咸烧饼都是我的最爱。
大家都说吃太咸对身体不好，可我一点没这么觉得。
前几天我还到医院去体检，各项指标都很正常。
吃咸不会得病的～
2、网友:
小帅34岁销售
邻居家大爷常年吃太咸，结果得了心血管病。
邻居家有个大爷经常吃咸的东西，大家都劝他不要吃这么咸，可他就是不听。
后来他被检查出了心血管疾病，我想这和常年吃咸有很到关系。
世界卫生组织建议每人每天钠盐摄入量不超过5克
二、专家解答:
1、世界卫生组织建议每人每天钠盐摄入量不超过5克。
世界卫生组织（WHO）建议每人每天钠盐摄入量不超过5克，而我国现在每人每日食盐约12克、美国提倡的人均2.3克/天宽松了许多。
2、高盐饮食会导致高血压。
营养专家原表示，高盐饮食是高血压的三大原因之一，高盐饮食是我国高血压的最重要的危险因素。
古人就知道“味过于咸，大骨气劳，短肌，心气抑”，即多食咸会影响血液和血液循环，伤及骨骼，并使心功能受到抑制。
盐摄入平均每增加2克，收缩压和舒张压就分别增加2.0mmHg和1.2mmHg。
“有的人以为‘不吃盐没力气’，这是没有道理的。
”专家表示，人对钠盐的依赖，只是长期以来味觉适应了高盐。
除此之外，吃盐还包括酱料、酱油、零食里的盐，因此不放盐放酱油的做法，也同样会摄取盐分。
我们正常人钠的摄入量和排出量时刻处在一个比较平衡的状态，而且钠的排出主要通过我们的肾脏。
如果在日常生活中摄入过多的盐分，钠的摄入量就会增加，这就给肾脏排除钠的功能增加负担。
如果摄入钠的量过多的话，为了保证肾脏的正常功能，也为了保持钠在血液中的浓度不变，就需要多喝水，不过水喝太多的话就会使得血液中的水分有所增加，这就形成了“水钠潴留”的状态。
这种状态就好比一个装满水的气球，水越多的话，气球产生压力就会越大，久而久之就会导致高血压的出现。
这就是吃得太咸会引发高血压出现的原因，主要是钠在作怪。
与此同时，如果血容量过大，加重心脏负荷，再加上自身的血管狭窄的话，就有引发冠心病的可能。
吃太咸还可能给身体带来多种疾病
3、吃太咸还可能给身体带来多种疾病。
肝肾疾病。
摄入过多盐会超过肝肾代谢的承受力，加重心血管压力，血压越高，肝肾血流量越少，肝肾功能损害越大，易导致慢性疾病。
呼吸道炎症。
高浓度食盐不仅抑制呼吸道细胞活性，降低其抗病能力，还会减少唾液，使口腔内溶菌酶减少，难以抵抗病毒感染。
胃癌。
食盐中的高渗透液会破坏胃黏膜，一些腌菜、盐渍食品中所含亚硝酸盐在胃酸和细菌作用下会转变为亚硝胺，易致胃癌。
皮肤老化。
体内钠离子增加会导致面部细胞失水，皱纹增多。
肥胖。
英国通过对1600多名青少年进行研究发现，吃盐越多，甜饮料喝得越多，很容易带来肥胖问题。
骨质疏松。
食盐主要成分是钠，人体每排泄1000毫克钠，大约会耗损26毫克钙。
吃盐越多，钙越少。
吃黄瓜鸡蛋1周掉10斤饭后吃啥排出体内致癌物这样吃萝卜一冬不生病几种零食一辈子都不要吃吃火锅时少点5类蔬菜防肝癌注意两吃两不吃
升级会员 