关于textbox的问题

Question

在textbox里一次输入大量数据后，我想把输入的数据存入一个数组，打个比方：我现在一次输入01 02 03 04 05 06 07 08 09
10 11 12......40 现在我要把这40个数据存入A(40)中去，如何来做？新人请教

Answer 1

而后我处理完数组A（40）的数据后，如何把A（40）里的40个数据还原显示到textbox里去

Answer 2

Form_Load里面的For...Next是模拟你的输入, 否则在这里直接赋值给数组就好了.'添加 Command1Dim i&, aa$, a$(40), s
Private Sub Form_Load()
   For i = 1 To 40
      aa = aa & Format(CStr(i), "00") & " "
   Next i
   aa = Trim(aa)
End SubPrivate Sub Command1_Click()
   s = Split(aa, " ")
   For i = 0 To UBound(s)
      a(i + 1) = s(i)
   Next i
   MsgBox a(1) '只是验证
   MsgBox a(40) '只是验证
End Sub

Answer 3

'添加 Command1  Text1Dim i&, aa$, a$(40), s
Private Sub Form_Load()
   For i = 1 To 40
      aa = aa & Format(CStr(i), "00") & " "
   Next i
   aa = Trim(aa)
End SubPrivate Sub Command1_Click()
   s = Split(aa, " ")
   aa = ""
   For i = 0 To UBound(s)
      a(i + 1) = s(i)
      aa = aa & a(i + 1) & " "
   Next i
   Text1.Text = Trim(aa)
End Sub

Answer 4

很简单的   刚刚帮你调试通过
private s() as string
private aa(40) as string
Private straa As StringPrivate Sub Command1_Click() 
   s = Split((text1), " ")   '这个双引号中要有空格   For i = 0 To UBound(s)-1 
      aa(i) =s(i) 
   Next   For i = 0 To UBound(aa)
      straa = straa +" " + aa(i)
   Next
   Text2.Text = straa 
End Sub

Answer 5

 For i = 0 To UBound(s)-1   应该是 For i = 0 To UBound(s)
不能减 1 。