问题 填空题

建立随机文件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。

单项选择题
单项选择题