如果是要将textbox 资料一次切割存到a阵列,先将vbcrlf replace成” “ 再用 split对空白切a=split(replace(Text1.Text, vbcrlf, " "), " ")
DIM B() For i = 0 to Ubound(A) IF i>0 thenredim preserve B(i) , B(i) = OOXX另UI拉二个TEXTBOX,一个BUTTON,一个LIST二个TEXT 分别输入名子和成积,BUTTON 确定加入LIST最后你只要处理LIST的资料,和UI TEXT的KEYIN ENTER事件