63随机文件读写一随机文件应用示例【返回目录 单击“追加记录”按钮的事件响应代码 Private Sub CmdAppend click Open"address. txt" For Random As #I Len= Len (ren) n=LOF(1)/Len(Ren)'LOF函数返回文件的字节数 m= InputBox("追加几条记录?" For i=1 To m Ren. Name= InputBox(Input name: RenTel = InputBox(Input Tel NO: Put #l n+i ren 写随机文件 Next i Close #1 End Sub 新建文件 追加记录 输出记录6.3 随机文件读写－随机文件应用示例 '单击“追加记录”按钮的事件响应代码 Private Sub CmdAppend_Click() Open "address.txt" For Random As #1 Len = Len(Ren) n = LOF(1) / Len(Ren) 'LOF函数返回文件的字节数 m = InputBox("追加几条记录?") For i = 1 To m Ren.Name = InputBox("Input name:") Ren.Tel = InputBox("Input Tel.NO:") Put #1, n + i, Ren Next i Close #1 End Sub 返回目录