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

9 查阅

[填空题] 建立随机文件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。

计算机考试