单选题 某人编写了向随机文件中写一条记录的程序，代码如下：
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
该程序运行时有错误，修改的方法是______。

• A.在类型定义“Type RType”之前加上“Private”
• B.Dim p As RType必须置于窗体模块的声明部分
• C.应把Open语句中的For Random 改为 For Output
• D.Put语句应该写为Put #1,p.Name,p.Tel