请问在vb中，如何将textbox中的内容，是16进制的数放到数组中？？？

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:43:41
例如text1中的16进制数为010f00000002放到数组d()里面，
即：我想得到的是，d(0)=&h01,d(1)=&h0f,d(2)=&h00,d(3)=&h00,d(4)=&h00,d(5)=&h02.
请各位高手帮忙！！！谢谢！！

Private Sub Command1_Click()
Dim l, i, d()
l = Len(Text1.Text) \ 2
ReDim d(l - 1)
For i = 0 To l - 1
d(i) = "&h" & Mid(Text1.Text, 2 * i + 1, 2)
Next
Dim x
For Each x In d
Print x
Next
End Sub

Private Sub Command1_Click()
Dim D() As String
Dim I As Integer
ReDim D(1 To Len(Text1.Text) / 2)
For I = 1 To Int(Len(Text1.Text) / 2)
D(I) = "&H" & Mid(Text1.Text, (I * 2 - 1), 2)
MsgBox D(I)
Next
End Sub