建立随机文件F1.DAT 存放职工姓名和编号 然后把该文件中数据读出显示。请在【 】和【 】处将程序
建立随机文件F1.DAT,存放职工姓名和编号,然后把该文件中数据读出显示。请在【 】和【 】处将程序补充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open"F1.dat"For Random As1 Len=Len(workl) Work1.name="LiuMin":work1.pay=400 【 】 Close1 Open"F1.dat"For Random As1 Len=Len(work1) 【 】 Print"work1:",workl.name Print"work1:",workl.pay C10se1
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:Put#11work1 Get#11work1
首先用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”。
相似问题
假定有以下当循环: While Not条件 循环体 Loop 则执行循环体的“条件”是【 】。请帮忙
假定有以下当循环: While Not条件 循环体 Loop 则执行循环体的“条件”是【 】。请帮忙给出正确答案和分析,谢谢!
下列程序功能是 产生10个0-100的随机数 输出其中的最大值。请将程序补充完整。 Private
下列程序功能是,产生10个0-100的随机数,输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As
在用Ⅵsual Basic开发应用程序时 一般需要建立可视用户界面 设置对象属性和【 】3步。请帮忙
在用Ⅵsual Basic开发应用程序时,一般需要建立可视用户界面、设置对象属性和【 】3步。请帮忙给出正确答案和分析,谢谢!
为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program” 应使用的
为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program”,应使用的语句为【 】。请帮忙给出正确答案和分析,谢谢!
下列程序的功能是计算两个自然数的最大公约数 界面如下图所示。给定的程序不完整 将程序补充完整。 P
下列程序的功能是计算两个自然数的最大公约数,界面如下图所示。给定的程序不完整,将程序补充完整。 Private Sub Command1_Click() Dim x As L
