[填空题] 建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数据读出来显示。 请在空白处填适当的内容,将程序补充完整。 Type Record Student As String

9 查阅

[填空题] 建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数据读出来显示。 请在空白处填适当的内容,将程序补充完整。 Type Record Student As String *20 Score As Single End Type Dim Class As Record Open "Text.dat" For ______ As #1 Len=Len (Class) Class.Student= "LiuMin": Class.Score=596 Put #1,1,Class Close #1 Open "Text.dat" For Random As #1 Len=Len(Class) ______ Print "STUDENT:", Class, Studnet Print "SCORE:",Class.Score Close #1 End

参考答案:

Random

Get#1,1,Class 本题考查随机文件的读写操作。对于第一处空白,首先用Type函数定义一个记录类型数据 Record,然后定义Class变量为Record。用Open语句打开随机文件时,For后面应填Random,表示以随机方式打开文件。 第二处空白处由于要执行读操作,故使用Get#语句。Get#语句后接三个参数,分别表示文件号、记录号、变量。由于这是与上一步Put#语句相反的操作,故参数都一样,分别为1、1、Class。故对于第二处空白处填Get#1,1,Class。

计算机考试