[填空题] 建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在 【14】 和 【15】 处将程序补充完整。Type worker n

[填空题] 建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在 【14】 和 【15】 处将程序补充完整。

Type worker

name As String*10

pay As Single

End Type

Dim workl AS worker

Open"F1.dat"For Random As#1 Len=Len(workl)

Work1.name="LiuMin"：work1.pay=400#

【14】

Close#1

Open"F1.dat"For Random As#1 Len=Len(work1)

【15】

Print"work1："，workl.name

Print"work1："，workl.pay

C10se#1

[14]Put#1，1，work1 [15] Get#1，1，work1

首先用Type函数定义一个记录类型数据worker，然后定义work1变量为work- er。在[14]处，由于要执行写操作，故使用“Put#”语句。“Put#”语句后接三个参数，分别表示文件号、记录号、变量。本题文件打开是文件号设为1，故“Put#”语句后接的文件号也为1，记录号为1，变量为work1，所以[14]处填“Put #l，1，work1”。 由于要执行读操作，故使用“Get#”语句。“Get #”语句后接三个参数，分别表示文件号、记录号、变量。由于这是与上一步“Put#”y语句相反的操作，故参数都一样，分别为 1、1、work1。故[15]处填“Get #1，1，work1”。