vb.net八进制转,vb转16进制
VB.NET,八/十六进制转十进制的函数,怎么转?
'此函数用于十进制到二进制
创新互联公司专注于隆安企业网站建设,响应式网站设计,商城网站制作。隆安网站建设公司,为隆安等地区提供建站服务。全流程按需策划设计,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Div_value = (Number Mod 2) Div_value
Number = Int(Number / 2)
Loop Until Number 2
Bin = Number Div_value
End Function
'此函数用于二进制到十进制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))
Exit For
End If
If Cyc 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2
Next Cyc
End Function
'====写入以上函数后转值操作:
'十进制到十六进制:Hex(十进制数值)
'十进制到八进制:Oct(十进制数值)
'十进制到二进制:Bin(十进制数值)
'二进制到十进制:value_Bin(二进制数值)
'八进制到十进制:Val("O" 八进制数值)
'十六进制到十进制:Val("H" 十六进制数值)
比如
msgbox DEC_to_BIN(10)
就会返回一个10转换为十进制后的结果
或者简单点就用
VB自带函数:
十进制转八进制:Oct(num)
十六进制转八进制:oct("H" num)
十进制转十六进制:hex(num)
八进制转十六进制:hex("O" num)
十六进制转换为十进制
Dim str As String
str = Text2.Text
Text10.Text = CLng("H" str)
VB 将八进制转化为二进制
我虽然没有学过VB,但也知道关于八进制及十六进制转换为二进制的要求:
八进制转化为二进制的要求:八进制数中的一个数字用三位的二进制数表示如:
0(八进制)=000(二进制),1(八进制)=001(二进制),2(八进制)=010(二进制),3(八进制)=011(二进制),4(八进制)=100(二进制),
5(八进制)=101(二进制),6(八进制)=110(二进制),7(八进制)=111(二进制)。
十六进制转换为二进制的要求:十六进制数中的一个数字用四位的二进制数表示:0(十六进制)=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(二进制)。
至于VB吗?用的就是这些二进制代码,无非是将这些代码代入VB得公式(格式)中罢了。如果学计算机这些代码在什么地方都能用到。叫你记这些代码的窍门:
记八进制转换为二进制的时候,将这八个数字在十进制数(0到111)中找出只有用(0或1)表示的数字来,凑够二进制的三位就可以(但必须按照数的顺序才可以)。同样十六进制转换为二进制的时候,就是将这十六个数字在十进制数(0至1111)中找出只有用(0或1)表示的的数字就可以了。
如果你还看出巧法:那就是记住八进制中的8个数字在前面加上一个“0”就是十六进制转换为二进制的前八个数字代码了!!!!!!
嘿嘿嘿嘿!慢慢记吧,在计算机中像这样的代码什么地方都用到,只是问法不同而已。祝你好运!!!!!!
VB中的八进制怎么算
Oct
函数
返回
Variant
(String),代表一数值的八进制值。
语法
Oct(number)
必要的
number
参数为任何有效的数值表达式或字符串表达式。
说明
如果
number
尚非整数,那么在执行前会先四舍五入成最接近的整数。
如果
number
为
Oct
返回
Null
Null
Empty
零
(0)
任何其他的数字
最多可到
11
个八进制字符。
可以将适当范围的数前缀以
O
来直接表示八进制数字。例如,八进制表示法的
O10
代表十进制的
8。
Oct
函数示例
本示例使用
Oct
函数将某数值转换为
8
进制表达式。
Dim
MyOct
MyOct
=
Oct(4)
'
返回
4。
MyOct
=
Oct(8)
'
返回
10。
MyOct
=
Oct(459)
'
返回
713。
当前名称:vb.net八进制转,vb转16进制
浏览地址:http://myzitong.com/article/hspggp.html