发布网友 发布时间:2024-09-28 17:33
共1个回答
热心网友 时间:2024-09-30 11:38
不知道你是怎么写的,但是我用你的写的,改了下是可以用的。窗口:form1模块:mole1模块里:publictypea_typea(10)asintegerb(10)asintegerendtypepublicaasa_type窗体里:(我加了个text1用来输入想保存的文件内容,commond1用来确定保存文件内容)PrivateSubCommand1_Click()DimrecordAsIntegerOpen"shuju.dat"ForRandomAs#1Len=Len(a)record=LOF(1)/Len(a)+1Put#1,record,Text1.TextClose#1EndSub保存下工程,运行下选择记事本打开那个文件夹下的shuju。dat就可以看见你在text1中写的文件内容了。