选择题 20. 某人编写了向随机文件中写一条记录的程序，代码如下：
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

【正确答案】 A

【答案解析】 记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字Type前可以有。Public(默认)或Private，而如果在窗体模块中定义，则必须在前面加上关键字Private。Open语句中使用For Random表示文件以随机方式存取。Put语句的语法为：Put#文件号，[记录号]，变量。其中“变量”是除对象变最和数组变量外的任何变量。