vb.net 把十進(jìn)制數(shù)轉(zhuǎn)成十六進(jìn)制數(shù)的函數(shù)有哪些？

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),金昌企業(yè)網(wǎng)站建設(shè),金昌品牌網(wǎng)站建設(shè),網(wǎng)站定制,金昌網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,金昌網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

MsgBox(DEC_to_HEX(255))

End?Sub

Public?Function?DEC_to_HEX(ByVal?Dec?As?Long)?As?String

Dim?a?As?String

DEC_to_HEX?=?""

Do?While?Dec??0

a?=?CStr(Dec?Mod?16)

Select?Case?a

Case?"10"?:?a?=?"A"

Case?"11"?:?a?=?"B"

Case?"12"?:?a?=?"C"

Case?"13"?:?a?=?"D"

Case?"14"?:?a?=?"E"

Case?"15"?:?a?=?"F"

End?Select

DEC_to_HEX?=?a??DEC_to_HEX

Dec?=?Dec?\?16

Loop

End?Function

vb.net 字符串，16進(jìn)制間轉(zhuǎn)換(求代碼)

把字符串“12341168C5B7”轉(zhuǎn)換為16進(jìn)制數(shù)存為string型

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

給分?。?！

12341168C5B7轉(zhuǎn)換成10進(jìn)制數(shù)就是20014839678391。。

而int32的最大值為2,147,483,647。。所以產(chǎn)生錯誤。

所以要用int64，它的最大值為9,223,372,036,854,775,807。也就是16位十六進(jìn)制數(shù)0X7FFFFFFFFFFFFFFF。

難道還有比F靠后的數(shù)？？？？？？

VB.NET，八/十六進(jìn)制轉(zhuǎn)十進(jìn)制的函數(shù)，怎么轉(zhuǎn)?

'此函數(shù)用于十進(jìn)制到二進(jìn)制

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

'此函數(shù)用于二進(jìn)制到十進(jìn)制

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

'====寫入以上函數(shù)后轉(zhuǎn)值操作：

'十進(jìn)制到十六進(jìn)制：Hex(十進(jìn)制數(shù)值)

'十進(jìn)制到八進(jìn)制：Oct(十進(jìn)制數(shù)值)

'十進(jìn)制到二進(jìn)制：Bin(十進(jìn)制數(shù)值)

'二進(jìn)制到十進(jìn)制：value_Bin(二進(jìn)制數(shù)值)

'八進(jìn)制到十進(jìn)制：Val("O" 八進(jìn)制數(shù)值)

'十六進(jìn)制到十進(jìn)制：Val("H" 十六進(jìn)制數(shù)值)

比如

msgbox DEC_to_BIN(10)

就會返回一個10轉(zhuǎn)換為十進(jìn)制后的結(jié)果

或者簡單點就用

VB自帶函數(shù)：

十進(jìn)制轉(zhuǎn)八進(jìn)制：Oct(num)

十六進(jìn)制轉(zhuǎn)八進(jìn)制：oct("H" num)

十進(jìn)制轉(zhuǎn)十六進(jìn)制：hex(num)

八進(jìn)制轉(zhuǎn)十六進(jìn)制：hex("O" num)

十六進(jìn)制轉(zhuǎn)換為十進(jìn)制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

vb.net 如何將十六進(jìn)制字符串轉(zhuǎn)換為十六進(jìn)制變量

numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)

或

numHex = Integer. Parse("H" strHex)

VB編寫進(jìn)制的轉(zhuǎn)換！

你不用理解的 只要將要轉(zhuǎn)換的參數(shù)傳入就可以的了

比如

msgbox DEC_to_BIN(10)

就會返回一個10轉(zhuǎn)換為十進(jìn)制后的結(jié)果

或者簡單點就用

VB自帶函數(shù)：

十進(jìn)制轉(zhuǎn)八進(jìn)制：Oct(num)

十六進(jìn)制轉(zhuǎn)八進(jìn)制：oct("H" num)

十進(jìn)制轉(zhuǎn)十六進(jìn)制：hex(num)

八進(jìn)制轉(zhuǎn)十六進(jìn)制：hex("O" num)

十六進(jìn)制轉(zhuǎn)換為十進(jìn)制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

===========================================

' 用途：將十進(jìn)制轉(zhuǎn)化為二進(jìn)制

' 輸入：Dec(十進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：Long

' 輸出：DEC_to_BIN(二進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647,輸出最大數(shù)為1111111111111111111111111111111(31個1)

Public Function DEC_to_BIN(Dec As Long) As String

DEC_to_BIN = ""

Do While Dec 0

DEC_to_BIN = Dec Mod 2 DEC_to_BIN

Dec = Dec \ 2

Loop

End Function

' 用途：將二進(jìn)制轉(zhuǎn)化為十進(jìn)制

' 輸入：Bin(二進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：BIN_to_DEC(十進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：Long

' 輸入的最大數(shù)為1111111111111111111111111111111(31個1),輸出最大數(shù)為2147483647

Public Function BIN_to_DEC(ByVal Bin As String) As Long

Dim i As Long

For i = 1 To Len(Bin)

BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))

Next i

End Function

' 用途：將十六進(jìn)制轉(zhuǎn)化為二進(jìn)制

' 輸入：Hex(十六進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：HEX_to_BIN(二進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function HEX_to_BIN(ByVal Hex As String) As String

Dim i As Long

Dim B As String

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(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"

End Select

Next i

While Left(B, 1) = "0"

B = Right(B, Len(B) - 1)

Wend

HEX_to_BIN = B

End Function

' 用途：將二進(jìn)制轉(zhuǎn)化為十六進(jìn)制

' 輸入：Bin(二進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：BIN_to_HEX(十六進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function BIN_to_HEX(ByVal Bin As String) As String

Dim i As Long

Dim H As String

If Len(Bin) Mod 4 0 Then

Bin = String(4 - Len(Bin) Mod 4, "0") Bin

End If

For i = 1 To Len(Bin) Step 4

Select Case Mid(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"

End Select

Next i

While Left(H, 1) = "0"

H = Right(H, Len(H) - 1)

Wend

BIN_to_HEX = H

End Function

' 用途：將十六進(jìn)制轉(zhuǎn)化為十進(jìn)制

' 輸入：Hex(十六進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：HEX_to_DEC(十進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：Long

' 輸入的最大數(shù)為7FFFFFFF,輸出的最大數(shù)為2147483647

Public Function HEX_to_DEC(ByVal Hex As String) As Long

Dim i As Long

Dim B As Long

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(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

End Select

Next i

HEX_to_DEC = B

End Function

' 用途：將十進(jìn)制轉(zhuǎn)化為十六進(jìn)制

' 輸入：Dec(十進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：Long

' 輸出：DEC_to_HEX(十六進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647,輸出最大數(shù)為7FFFFFFF

Public Function DEC_to_HEX(Dec As Long) As String

Dim a As String

DEC_to_HEX = ""

Do While Dec 0

a = CStr(Dec Mod 16)

Select Case a

Case "10": a = "A"

Case "11": a = "B"

Case "12": a = "C"

Case "13": a = "D"

Case "14": a = "E"

Case "15": a = "F"

End Select

DEC_to_HEX = a DEC_to_HEX

Dec = Dec \ 16

Loop

End Function

' 用途：將十進(jìn)制轉(zhuǎn)化為八進(jìn)制

' 輸入：Dec(十進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：Long

' 輸出：DEC_to_OCT(八進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647,輸出最大數(shù)為17777777777

Public Function DEC_to_OCT(Dec As Long) As String

DEC_to_OCT = ""

Do While Dec 0

DEC_to_OCT = Dec Mod 8 DEC_to_OCT

Dec = Dec \ 8

Loop

End Function

' 用途：將八進(jìn)制轉(zhuǎn)化為十進(jìn)制

' 輸入：Oct(八進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：OCT_to_DEC(十進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：Long

' 輸入的最大數(shù)為17777777777,輸出的最大數(shù)為2147483647

Public Function OCT_to_DEC(ByVal Oct As String) As Long

Dim i As Long

Dim B As Long

For i = 1 To Len(Oct)

Select Case Mid(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

End Select

Next i

OCT_to_DEC = B

End Function

' 用途：將二進(jìn)制轉(zhuǎn)化為八進(jìn)制

' 輸入：Bin(二進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：BIN_to_OCT(八進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function BIN_to_OCT(ByVal Bin As String) As String

Dim i As Long

Dim H As String

If Len(Bin) Mod 3 0 Then

Bin = String(3 - Len(Bin) Mod 3, "0") Bin

End If

For i = 1 To Len(Bin) Step 3

Select Case Mid(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"

End Select

Next i

While Left(H, 1) = "0"

H = Right(H, Len(H) - 1)

Wend

BIN_to_OCT = H

End Function

' 用途：將八進(jìn)制轉(zhuǎn)化為二進(jìn)制

' 輸入：Oct(八進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：OCT_to_BIN(二進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function OCT_to_BIN(ByVal Oct As String) As String

Dim i As Long

Dim B As String

For i = 1 To Len(Oct)

Select Case Mid(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"

End Select

Next i

While Left(B, 1) = "0"

B = Right(B, Len(B) - 1)

Wend

OCT_to_BIN = B

End Function

' 用途：將八進(jìn)制轉(zhuǎn)化為十六進(jìn)制

' 輸入：Oct(八進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：OCT_to_HEX(十六進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function OCT_to_HEX(ByVal Oct As String) As String

Dim Bin As String

Bin = OCT_to_BIN(Oct)

OCT_to_HEX = BIN_to_HEX(Bin)

End Function

' 用途：將十六進(jìn)制轉(zhuǎn)化為八進(jìn)制

' 輸入：Hex(十六進(jìn)制數(shù))

' 輸入數(shù)據(jù)類型：String

' 輸出：HEX_to_OCT(八進(jìn)制數(shù))

' 輸出數(shù)據(jù)類型：String

' 輸入的最大數(shù)為2147483647個字符

Public Function HEX_to_OCT(ByVal Hex As String) As String

Dim Bin As String

Hex = UCase(Hex)

Bin = HEX_to_BIN(Hex)

HEX_to_OCT = BIN_to_OCT(Bin)

End Function

文章題目：vbnet進(jìn)制轉(zhuǎn)換器 vb進(jìn)制轉(zhuǎn)換函數(shù)
瀏覽路徑：http://chinadenli.net/article32/doddipc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、電子商務(wù)、網(wǎng)頁設(shè)計公司、Google、網(wǎng)站營銷、小程序開發(fā)

廣告

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