用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

进制值。

你想的太复杂了，其实雀燃侍很简单的，10进制转化为16进制有专门的函数Hex，呵呵，你自己写了个。

不足8位的段运要加零使期满足8位，那我们就先在前面加0然后再倒着读，不就行了。

控件：

3个TextBox，2个CommondButton。

完整代码如下：

Option

Explicit

Private

Sub

Command1_Click()

Text2.Text

=

Hex(Val(Text1.Text))

'把Text1的10进制转为16进制显示在Text2中

End

Sub

Private

Sub

Command2_Click()

Dim

i

As

Integer,

s

As

String

Text3.Text

=

String(8

-

Len(Text2.Text),

"0")

&

Text2.Text

'给Text2前面加0使其够8位

For

i

=

Len(Text3.Text)

-

1

To

1

Step

-2

'倒着顷吵读出

s

=

s

&

Mid(Text3.Text,

i,

2)

Next

i

Text3.Text

=

s

End

Sub

---