[填空題] 建立隨機(jī)文件F1.DAT，存放職工姓名和編號，然后把該文件中數(shù)據(jù)讀出顯示。請?jiān)?u> 【14】 和 【15】 處將程序補(bǔ)充完整。 Type workername As String*10pay 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ù)，分別表示文件號、記錄號、變量。本題文件打開是文件號設(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”。