如果是要將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事件