63随机文件读写一随机文件应用示例【返回目录 单击“输出记录”按钮的事件响应代码 Private Sub Cmdoutput Click Open"address. txt" For Random As #I Len= Len(ren) i= InputBox("输出第几条记录") Get #l.i. Ren Text1.Text= Ren Name Ren Tel Close #1 读写随机文件 End Sub AA 56782344 新建文件 追加记录 输出记录6.3 随机文件读写－随机文件应用示例 '单击“输出记录”按钮的事件响应代码 Private Sub CmdOutput_Click() Open "address.txt" For Random As #1 Len = Len(Ren) i = InputBox("输出第几条记录") Get #1, i, Ren Text1.Text = Ren.Name + Ren.Tel Close #1 End Sub 返回目录