7,762
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Dim a() As Byte
Dim strData As String
Dim i&, k As Long
' 假设你的“文本框”输入的“16进制数据” 字符数为偶数个
strData = Text1.Text
k = Len(strData) \ 2&
ReDim a(1 To k) ' 你确定“数组下标”要从1开始?
For i = 1& To k
a(i) = Val("&H" & Mid$(strData, i + i - 1&, 2&))
Next
End Sub