VB 十进制数据转换十六进制 vb10进制转16进制代码

VB在工控领域应用广泛，用VB做上位机控制与下位机进行通讯时，需要用到数据转换，今天就将10进制转换16进制代码示例如下：

Public Function DEC_to_HEX(Dec As String) As String '10进制转换16进制

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