某人编写了向随机文件中写一条记录的程序，代码如下：
Type RType
Name As String * 10
Tel As String * 20
End Type
Private Sub Command1_Click( )
Dim p As RType
p. Name = InputSox( "姓名" )
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
