[填空題] 建立隨機文件F1.DAT，存放職工姓名和編號，然后把該文件中數(shù)據(jù)讀出顯示。請在 【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函數(shù)定義一個記錄類型數(shù)據(jù)worker，然后定義work1變量為work- er。在[14]處，由于要執(zhí)行寫操作，故使用“Put#”語句。“Put#”語句后接三個參數(shù)，分別表示文件號、記錄號、變量。本題文件打開是文件號設為1，故“Put#”語句后接的文件號也為1，記錄號為1，變量為work1，所以[14]處填“Put #l，1，work1”。 由于要執(zhí)行讀操作，故使用“Get#”語句?！癎et #”語句后接三個參數(shù)，分別表示文件號、記錄號、變量。由于這是與上一步“Put#”y語句相反的操作，故參數(shù)都一樣，分別為 1、1、work1。故[15]處填“Get #1，1，work1”。