63随机文件读写一随机文件应用示例【返回目录 单击“新建文件”按钮的事件响应代码 Private Sub CmdNew Click Open"address. txt" For Random As #I Len=Len ( ren) n= InputBox("人数?") Fori= l To n Ren. Name= Input Box( Input name:) Ren Tel= InputBox(Input TeL NO: Put #1.i ren 读写随机文件 Next i Close #1 End Sub 新建文件 自加记录 输出记录6.3 随机文件读写－随机文件应用示例 '单击“新建文件”按钮的事件响应代码 Private Sub CmdNew_Click() Open "address.txt" For Random As #1 Len = Len(Ren) n = InputBox("人数?") For i = 1 To n Ren.Name = InputBox("Input name:") Ren.Tel = InputBox("Input Tel.NO:") Put #1, i, Ren Next i Close #1 End Sub 返回目录