建立随机文件F1.DAT,存放职工姓名和编号,然后把该文件中数据读出显示。请在【 】和【 】处将程序补充完整。 Type worker name As String*10 pay As Single

admin2009-02-13  30

问题 建立随机文件F1.DAT,存放职工姓名和编号,然后把该文件中数据读出显示。请在【  】和【  】处将程序补充完整。
      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#
     【  】
      Close#1
      Open"F1.dat"For Random As#1 Len=Len(work1)
     【  】
      Print"work1:",workl.name
      Print"work1:",workl.pay
      C10se#1

选项

答案Put#1,1,work1 , 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”。
转载请注明原文地址:https://jikaoti.com/ti/ZF80FFFM
0

最新回复(0)