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

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

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

[填空题] 建立随机文件F1.DAT,存放职工姓名和编号,然后把该文件中数据读出显示。请在 【14】 【15】 处将程序补充完整。 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函数定义一个记录类型数据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”。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5627393.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-16
下一篇 2022-12-15

发表评论

登录后才能评论

评论列表(0条)

保存