A.Ptivate Sub Commandl_Click() DimB As Books Open"c:/Person.txt"For Output As#1
B.Name=InputBox(“输入姓名”)
C.Private Sub Conullandl_CHCk() DimBAs Books Open"c:/Person.txt"For Ouputut As#1 Name=hputBox(“输入姓名”) Temum=InputBox(“输入电话号码”) Whte#1,B Close#1 End Sub D.Privam Sub Commnandl_Click() DimBAsBook Open"C:/Person.tx