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.net 如何将十六进制字符串转换为十六进制变量

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

或

numHex = Integer. Parse("H" strHex)

vb.net 把十进制数转成十六进制数的函数有哪些？

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

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转换函数 vb转换进制
URL标题：http://myzitong.com/article/hghsis.html