92顺序文件 式 职北技术学晚 Private Sub Command2 Cl icko ′本过程完成将文本框的内容写入文件中 Dim contents, File1 CommonDialog1 show Save 调用 CommandDi al og1控 件的保存对话框,以提供建立文件的文件名 File1=CommonDialog1 filename 0 pen File1For0 utput As#1以写方式打文件 Contents=Text1. Text Text1. Text= 清除文本框中的内容 Print #1, Contents 往文件中写入内容 Close End sub Private Sub Command 3 Click Un load Me 退出程序 End Sub• Private Sub Command2_Click() 本过程完成将文本框的内容写入文件中 • Dim contents，File1 • CommonDialog1.showSave 调用CommandDialog1控 件的保存对话框，以提供建立文件的文件名 • File1=CommonDialog1.filename • Open File1 For Output As #1 以写方式打文件 • Contents=Text1.Text • Text1.Text=  清除文本框中的内容 • Print #1，Contents 往文件中写入内容 • Close 1 • End Sub • Private Sub Command3_Click() • Unload Me 退出程序 • End Sub 9.2 顺序文件