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://vcdvsql.cn/article18/hspggp.html

成都網站建設公司_創新互聯，為您提供網站營銷、微信公眾號、標簽優化、網站內鏈、品牌網站制作、靜態網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯