7,765
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim sj As String
Private Sub Command1_Click()
Dim stra() As String
Dim a() As String
Dim i As Integer
stra = Split(sj, ",")
ReDim a(UBound(stra))
For i = 0 To UBound(a)
a(i) = Val("&H" & stra(i))
'Print a(i)
Next
End Sub
Private Sub Form_Load()
sj = "68,31,00,31,00,68,C9,00,00,5A,46,00,02,70,00,00,01,00,DC,16 "
Text1 = sj
End Sub