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

19 查阅

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

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命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。

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