大家好，欢迎来到IT知识分享网。
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
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://haidsoft.com/161520.html
