可以在form的unload事件内写:open app.path & "\combo.dat" for output as #1dim I as integerfor i=0 to combo1.listcount-1print #1,combo1.list(i)nextclose #1在form的load事件内写: on error resume nextopen app.path & "\combo.dat" for input as #1dim str1 as stringdoline input #1,str1combo1.additem str1loop while not eof(