Question

VB中给Byte数组赋值

将十六进制数Text1.text="FF0012005600FF00FF00FF78" 赋值给一个 dim a() as Byte

Answer 1

 Private Sub Command1_Click()
Dim a() As Byte, i, 哗哪n As Integer
Text1.Text = "FF0012005600FF00FF00FF78"
For i 册睁= 1 To Len(Text1.Text) Step 2
ReDim Preserve a(n)
a(n) 乱姿码= Val("&H" & Mid(Text1.Text, i, 2))
n = n + 1
Next
End Sub

Answer 2

只祥洞知道每四个字耐滑母或数字分为一组，但是赋值的具体规则是什么呢？没说清楚昌宴腊。比如FF78这个数肯定小于0了，但是VB中Byte的范围是0~255，所以你还是具体说一下规则。

追问

FF78=1111111101111000

Answer 3

Private Sub Command1_Click()
Dim i As Integer
Dim a() As Byte
Text1.Text = "FF0012005600FF00FF00FF78"陵孝知
ReDim a(Len(Text1.Text) / 2)
For i = 0 To Len(Text1.Text) / 2 - 1
a(i) = "尺消慎租&H" & Mid(Text1.Text, i * 2 + 1, 2)
Next i
End Sub

Answer 4

Private Sub Command1_Click()
Dim a() As Byte
a = StrConv("悉饥枣FF0012005600FF00FF00FF78"睁拆肢模, vbFromUnicode)

End Sub