Private Sub Command1_Click() Dim B As Books Open"c:/Perso txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write #1,Name,TelNum Close #1 End Sub Private Sub Command1_Click() Dim B As Books Open"c:/Persotxt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1. Nam TelNum Close #1 End Sub Private Sub Command1_Click() Dim B As Books Open" c:/Perso txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write #1, B Close #1 End Sub Private Sub Command1_Click() Dim B As Books Open" c:/Perso txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, Name, TelNum Close #1 End Sub