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进制
分享URL：http://scyingshan.cn/article/hspggp.html