vb中我的文本框中有一组数据，我想把这一组数据加入到数组中来，请问怎么解决？？请高手指教 在线等

Question

vb中我的文本框中有一组数据如（16进制）：1 3 2 F A3 FD CD；它们之间都有空格间隔，我想把它们赋值到一个数组中（如data(0)=1.data(1)=3等等）这个问题怎么解决啊？请vb高手指教

Answer 1

dim data() as string
data = split(Text1.text," ")

Answer 2

Split函数 把字符串 按空格进行拆分 成数组
给数组每个元素 拼接上 &H
循环 使用 Val函数 把 数组 每个 元素 转成数值

Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, " ")
Dim i As Integer
Dim n As Integer
Dim a() As Long
n = UBound(s) - LBound(s) + 1
ReDim a(n) As Long
For i = LBound(s) To UBound(s)
a(i) = Val("&H" & s(i))
Debug.Print a(i)
Next
End Sub