用VB编写一个输入十进制转十六进制的程序怎么做?

用VB编写一个输入十进制整数转十六进制的程序可使用Hex函数完成。

Hex

函数，返回代表十六进制数值的

String。

Hex

函数示例

本示例使用

Hex

函数来得到某数值的

16

进制值。

Dim

MyHex

MyHex

=

Hex(5)

'

返回

5。

MyHex

=

Hex(10)

'

返回

A。

MyHex

=

Hex(459)

'

返回

1CB。

Hex

函数示例

本示例使用

Hex

函数来得到某数值的

16

进制值。

用途：将十进制转化为二 进 制

' 输入：Dec(十进制数)

' 输入数据类型：Long

' 输出：DEC_to_BIN(二 进 制数)

' 输出数据类型：String

' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)

Public Function DEC_to_BIN(Byval Dec As Long) As String

DEC_to_BIN = ""

Do While Dec >0

DEC_to_BIN = Dec Mod 2 &DEC_to_BIN

Dec = Dec \ 2

Loop

End Function

Private Sub Command1_Click()

Dim a As String

Dim b As Long 'b是你要转换的数

a = DEC_to_BIN(b)

End Sub

---