如何使文本框显示16进制的字节数组？

[yaya1979]

我需要在文本框里显示16进制数，但是为什么得到的都是乱码？
还有，我希望能在每个数据之间空一个空格，该怎么写？
代码如下：
Private Sub Command1_Click()

Dim BytesToSend(0 To 1) As Byte
Dim j As Integer

BytesToSend(0) = &H4A
BytesToSend(1) = &H23

For j = 0 To 1
Text2.Text = BytesToSend(j)
Next j

end sub

[3661512]

Private Sub Command1_Click()

Dim BytesToSend(0 To 1) As String
Dim j As Long, str As String
BytesToSend(0) = "&H4A"
BytesToSend(1) = "&H23"
For j = 0 To UBound(BytesToSend)
str = str & BytesToSend(j) & Space(1)
Next j
Text2.Text = str
End Sub

[kimurakenshin]

Private Sub Command1_Click()

Dim BytesToSend(0 To 1) As Byte
Dim j As Integer

BytesToSend(0) = &H4A
BytesToSend(1) = &H23

For j = 0 To 1
Text2.Text = tex2.text + " " + Hex(BytesToSend(j))
Next j

end sub

[kimurakenshin]

Hex 函数


返回代表十六进制数值的 String。

语法

Hex(number)

必要的 number 参数为任何有效的数值表达式或字符串表达式。

说明

如果 number 还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。

如果 number 为 所得为
Null Null
Empty 零 (0)
任何其他的数字 最多可到八个十六进制字符。

[yaya1979]

TO 3661512(菜鸟一只) :
你的程序返回的是&H4A &H23,而我需要 4A 23,我在前面加了个right函数,只取了后两位数字,不知道这样强行取数字对不对

To kimurakenshin(浪客):
我是要把16进制的数字前面的&H去掉,而不是把一个数字变为16进制

[rainstormmaster]

Private Sub Command1_Click()
Dim BytesToSend(0 To 1) As Byte
Dim j As Integer
BytesToSend(0) = &H4A
BytesToSend(1) = &H23
Text1.Text = ""
For j = 0 To 1
Text1.Text = Text1.Text + Hex(CStr(BytesToSend(j)))
Next j
End Sub

[yaya1979]

谢谢各位帮忙，问题已解决