第36练 随机文件 《Visual Basic程序设计（电工版）》 （第6版） 一课一练 （内蒙古）

【编写说明】依托三阶支架资源编写方案，《一课一练》明确基础层具象化支架定位，作为课堂同步配套资源，其内容与课堂教学深度绑定，并且精准匹配中职学生知识基础与学习特质，遵循“由浅入深、循序渐进”的认知规律，聚焦基础性与实效性核心，通过拆解知识点、简化认知难度，切实降低学习门槛，为后续知识巩固与能力提升筑牢根基，是优质课后作业首选。本卷是《Visual Basic程序设计（电工版）》（第6版）《一课一练》第36练，内容是随机文件。 《Visual Basic程序设计（电工版）》（第6版）一课一练 第36练 随机文件 一、单选题 1. 随机文件以______为单位进行存取（ ） A. 字符 B. 字节 C. 记录 D. 行 2. 定义记录类型使用______语句（ ） A. Dim B. Type C. Struct D. Record 3. 向随机文件写入记录使用______语句（ ） A. Print # B. Write # C. Put # D. Get # 4. 从随机文件读取记录使用______语句（ ） A. Input # B. Line Input # C. Get # D. Put # 5. 随机文件打开时指定的模式是（ ） A. Input B. Output C. Append D. Random 6. 随机文件中，Put #语句的参数包括（ ） A. 文件号、记录号、变量 B. 文件号、变量 C. 变量、记录号 D. 文件号 7. LOF函数的功能是（ ） A. 返回文件号 B. 返回文件长度 C. 返回记录数 D. 返回文件名 二、填空题 8. 定义记录类型的语句关键字是______ 9. 随机文件中定位记录号的语句是______ 三、程序填空题 10. 以下程序的功能是以下程序的功能是向随机文件写入和读取学生记录。请填空。 Private Type Student name As String * 10 score As Integer End Type Private Sub Command1_Click() Dim s As 【1】 Open "student.dat" For Random As #1 Len = Len(s) s.name = "张三" s.score = 85 【2】 #1, 1, s Get #1, 1, s Print s.name; s.【3】 Close #1 End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 【编写说明】依托三阶支架资源编写方案，《一课一练》明确基础层具象化支架定位，作为课堂同步配套资源，其内容与课堂教学深度绑定，并且精准匹配中职学生知识基础与学习特质，遵循“由浅入深、循序渐进”的认知规律，聚焦基础性与实效性核心，通过拆解知识点、简化认知难度，切实降低学习门槛，为后续知识巩固与能力提升筑牢根基，是优质课后作业首选。本卷是《Visual Basic程序设计（电工版）》（第6版）《一课一练》第36练，内容是随机文件。 《Visual Basic程序设计（电工版）》（第6版）一课一练 第36练 随机文件 一、单选题 1. 随机文件以______为单位进行存取（ ） A. 字符 B. 字节 C. 记录 D. 行 【答案】C 【解析】随机文件以记录为单位存取数据 2. 定义记录类型使用______语句（ ） A. Dim B. Type C. Struct D. Record 【答案】B 【解析】用Type语句定义用户自定义记录类型 3. 向随机文件写入记录使用______语句（ ） A. Print # B. Write # C. Put # D. Get # 【答案】C 【解析】Put #语句向随机文件写入记录 4. 从随机文件读取记录使用______语句（ ） A. Input # B. Line Input # C. Get # D. Put # 【答案】C 【解析】Get #语句从随机文件读取记录 5. 随机文件打开时指定的模式是（ ） A. Input B. Output C. Append D. Random 【答案】D 【解析】Random模式用于打开随机文件 6. 随机文件中，Put #语句的参数包括（ ） A. 文件号、记录号、变量 B. 文件号、变量 C. 变量、记录号 D. 文件号 【答案】A 【解析】Put #文件号,记录号,变量名 7. LOF函数的功能是（ ） A. 返回文件号 B. 返回文件长度 C. 返回记录数 D. 返回文件名 【答案】B 【解析】LOF返回文件的字节长度 二、填空题 8. 定义记录类型的语句关键字是______ 【答案】Type 【解析】用Type...End Type定义记录结构 9. 随机文件中定位记录号的语句是______ 【答案】Seek 【解析】Seek语句设置下次读写操作的记录位置 三、程序填空题 10. 以下程序的功能是以下程序的功能是向随机文件写入和读取学生记录。请填空。 Private Type Student name As String * 10 score As Integer End Type Private Sub Command1_Click() Dim s As 【1】 Open "student.dat" For Random As #1 Len = Len(s) s.name = "张三" s.score = 85 【2】 #1, 1, s Get #1, 1, s Print s.name; s.【3】 Close #1 End Sub 【答案】 【1】Student 【2】Put 【3】score 【解析】【1】处填Student声明记录类型变量；【2】处填Put写入记录；【3】处填score输出成绩字段 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $