Question

vb中如何把在文本框中输入的数据添加到列表list1中？

在对话框中输入数据，用逗号隔开，怎样设计command1 的代码来执行这个操作？

Answer 1

Private Sub cmd1_Click()
dim temp as string
dim ls() as string
dim i as integer
temp=inputbox("Input please!")
ls=split(temp,",")
for i=lbound(ls) to ubound(ls)
list1.additem ls(i)
next
msgbox "Ok,Over!"
End sub