[填空题] 假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNum As String*20End Type要求

[填空题] 假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求

[填空题] 假定在工程文件中有一个标准模块，其中定义了如下记录类型：

Type Books

Name As String*10

TelNum As String*20

End Type

要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。

Private Sub Command1_Click()

Dim B As Books

open "c:person.txt"For output As#1

B.Name=InputBox(“请输入姓名”)

B.TeINum=InputBoxt“请输入电话号码“)

write#1， (13)

close#1

End Sub

正确答案：

B.Name，B.TelNum

参考解析：

随机访问模式中文件的写 *** 作使用Put命令，Put命令是将一个记录变量的内容写入所打开的磁盘文件中指定的记录位置上；随机访问模式中文件的读 *** 作使用Get命令，Get命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。