VB中10进制转换为16进制的函数有哪些？

Question

如题所述

Answer 1

在VB中将十进制转化为十六进制的函数：

输入：Dec(十进制数)' 

输入数据类型：Long' 

输出：D2H(十六进制数)' 

输出数据类型：String' 

输入的最大数为2147483647,

输出最大数为7FFFFFFFPublicFunction D2H(Dec As Long) As String

Dim a As String

D2H = ""

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

D2H = a & D2H

Dec = Dec \ 16     LoopEnd Function

使用VB语言的优点：

1、功能强大，可以与Windows专业开发工具相媲美；

2、VB始终是最高效、开发成本最低的强大的开发工具；

3、简单易学、效率高；使用Windows内部的广泛应用程序接口（API）函数，使用动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件。