| 发表于:2007-08-07 20:54:324楼 得分:0 |
给你个简单的列子 参考吧 private filenum as integer private sub command1_click() for x = 1 to 10 '随机输入10个数 savetofile filenum, cstr(rnd * 100) next end sub private sub savetofile(filenum as integer, str as string) print #filenum, str end sub private sub form_load() filenum = freefile open "e:\1.txt " for output as #filenum end sub private sub form_queryunload(cancel as integer, unloadmode as integer) close #x end sub | | |
|