VB十进制八进制十六进制二进制相互转换大全Word格式.docx
- 文档编号:19608200
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:9
- 大小:15.35KB
VB十进制八进制十六进制二进制相互转换大全Word格式.docx
《VB十进制八进制十六进制二进制相互转换大全Word格式.docx》由会员分享,可在线阅读,更多相关《VB十进制八进制十六进制二进制相互转换大全Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
Loop
EndFunction
2.用途:
将二进制转化为十进制
Bin(二进制数)
BIN_to_DEC(十进制数)
PublicFunctionBIN_to_DEC(ByValBinAsString)AsLong
DimiAsLong
Fori=1ToLen(Bin)
BIN_to_DEC=BIN_to_DEC*2+Val(Mid(Bin,i,1))
Nexti
3.用途:
将十六进制转化为二进制
Hex(十六进制数)
HEX_to_BIN(二进制数)
PublicFunctionHEX_to_BIN(ByValHexAsString)AsString
DimBAsString
Hex=UCase(Hex)
Fori=1ToLen(Hex)
SelectCaseMid(Hex,i,1)
Case"
0"
:
B=B&
"
0000"
1"
0001"
2"
0010"
3"
0011"
4"
0100"
5"
0101"
6"
0110"
7"
0111"
8"
1000"
9"
1001"
A"
1010"
B"
1011"
C"
1100"
D"
1101"
E"
1110"
F"
1111"
EndSelect
WhileLeft(B,1)="
B=Right(B,Len(B)-1)
Wend
HEX_to_BIN=B
4.用途:
将二进制转化为十六进制
BIN_to_HEX(十六进制数)
PublicFunctionBIN_to_HEX(ByValBinAsString)AsString
DimHAsString
IfLen(Bin)Mod4<
>
0Then
Bin=String(4-Len(Bin)Mod4,"
)&
Bin
EndIf
Fori=1ToLen(Bin)Step4
SelectCaseMid(Bin,i,4)
H=H&
WhileLeft(H,1)="
H=Right(H,Len(H)-1)
BIN_to_HEX=H
5.用途:
将十六进制转化为十进制
HEX_to_DEC(十进制数)
PublicFunctionHEX_to_DEC(ByValHexAsString)AsLong
DimBAsLong
SelectCaseMid(Hex,Len(Hex)-i+1,1)
B=B+16^(i-1)*0
B=B+16^(i-1)*1
B=B+16^(i-1)*2
B=B+16^(i-1)*3
B=B+16^(i-1)*4
B=B+16^(i-1)*5
B=B+16^(i-1)*6
B=B+16^(i-1)*7
B=B+16^(i-1)*8
B=B+16^(i-1)*9
B=B+16^(i-1)*10
B=B+16^(i-1)*11
B=B+16^(i-1)*12
B=B+16^(i-1)*13
B=B+16^(i-1)*14
B=B+16^(i-1)*15
HEX_to_DEC=B
6.用途:
将十进制转化为十六进制
DEC_to_HEX(十六进制数)
PublicFunctionDEC_to_HEX(DecAsLong)AsString
DimaAsString
DEC_to_HEX="
a=CStr(DecMod16)
SelectCasea
10"
a="
11"
12"
13"
14"
15"
DEC_to_HEX=a&
DEC_to_HEX
Dec=Dec\16
7.用途:
将十进制转化为八进制
DEC_to_OCT(八进制数)
PublicFunctionDEC_to_OCT(DecAsLong)AsString
DEC_to_OCT="
DEC_to_OCT=DecMod8&
DEC_to_OCT
Dec=Dec\8
8.用途:
将八进制转化为十进制
Oct(八进制数)
OCT_to_DEC(十进制数)
PublicFunctionOCT_to_DEC(ByValOctAsString)AsLong
Fori=1ToLen(Oct)
SelectCaseMid(Oct,Len(Oct)-i+1,1)
B=B+8^(i-1)*0
B=B+8^(i-1)*1
B=B+8^(i-1)*2
B=B+8^(i-1)*3
B=B+8^(i-1)*4
B=B+8^(i-1)*5
B=B+8^(i-1)*6
B=B+8^(i-1)*7
OCT_to_DEC=B
9.用途:
将二进制转化为八进制
BIN_to_OCT(八进制数)
PublicFunctionBIN_to_OCT(ByValBinAsString)AsString
IfLen(Bin)Mod3<
Bin=String(3-Len(Bin)Mod3,"
Fori=1ToLen(Bin)Step3
SelectCaseMid(Bin,i,3)
000"
001"
010"
011"
100"
101"
110"
111"
BIN_to_OCT=H
10.用途:
将八进制转化为二进制
OCT_to_BIN(二进制数)
PublicFunctionOCT_to_BIN(ByValOctAsString)AsString
SelectCaseMid(Oct,i,1)
OCT_to_BIN=B
11.用途:
将八进制转化为十六进制
OCT_to_HEX(十六进制数)
PublicFunctionOCT_to_HEX(ByValOctAsString)AsString
DimBinAsString
Bin=OCT_to_BIN(Oct)
OCT_to_HEX=BIN_to_HEX(Bin)
12.用途:
将十六进制转化为八进制
HEX_to_OCT(八进制数)
PublicFunctionHEX_to_OCT(ByValHexAsString)AsString
Bin=HEX_to_BIN(Hex)
HEX_to_OCT=BIN_to_OCT(Bin)
VB自带函数:
十进制转八进制:
Oct(num)
十六进制转八进制:
oct("
&
H"
&
num)
十进制转十六进制:
hex(num)
八进制转十六进制:
hex("
O"
十六进制转换为十进制
DimstrAsString
str=Text2.Text
Text10.Text=CLng("
str)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 十进制 八进制 十六进制 二进制 相互 转换 大全