建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数据读出来显示。请在 【10】 和 【11】 处填适当的内容,将程序补充完整,
Type Record
Student As String*20
Score As Single
End Type
Dim Class As Record
Open"TEXT.DAT"For 【10】 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(Class)
【11】
Print"STUDENT:",Class.Student
Print"SCORE:",Class.Score
Close #1
End
参考答案:[10] Random
[11] Get #1,1,Class
解析: 对于[10],首先用Type函数定义一个记录类型数据Record,然后定义Class变量为Record。用Open语句打开随机文件时,For后面应填Random,表示以随机方式打开文件。
[11] 处由于要执行读操作,故使用Get#语句。Get#语句后接三个参数,分别表示文件号、记录号、变量。由于这是与上一步Put#语句相反的操作,故参数都一样,分别为1、 1、Class。故对于[11]处填Get#1,1,Class。