Question

vb中，将文本件“listitem。txt”中内容按每行一项加入combo1中的代码怎么写？

Answer 1

这样写才是对的：
Dim strs as string
Open "c:\dat.txt" for input as #1
Do Whlie Not EOF(1)
Line Input #1,strs
combo1.additem strs
Loop
Close #1

Answer 2

这样写：
dim R as string
open "c:\listitem.txt" for output as #1
do whlie not eof(1)
line input #1,R
combo1.additem R
loop