分享免费的编程资源和教程

网站首页 > 技术教程 正文

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

goqiw 2024-10-13 05:00:39 技术教程 49 ℃ 0 评论

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

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

最近发表
标签列表