[单项选择题] 某人编写了向随机文件中写一条记录的程序，代码如下：Type RTypeName As String * 10Tel As String * 20End TypePr

[单项选择题] 某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As String * 10 Tel As String * 20 End Type Pr

[单项选择题] 某人编写了向随机文件中写一条记录的程序，代码如下：

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

正确答案：

A

参考解析：

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