某人编写了向随机文件中写一条记录的程序,代码如下: Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click() Dim p As RType p.Name = InputBox(" 姓名 ") p.Tel = InputBox(" 电话号 ") Open "Books.dat" For Random As #1 Put #1 , , p Close #1 End Sub 该程序运行错误,修改的方法是 ________ 。