- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
16.3 实战练习
一、选择题
1.以下叙述中不正确的是______ 。
A.顺序文件结构简单
B.存储在顺序存取文件中的记录不允许任意存取
C.能同时对顺序文件进行读写操作
D.顺序文件的数据以字符(ASCII码的形式存储)
2.要在D盘的Temp 目录下建立一个名为Name.dat 的顺序文件,应使用______ 语句。
A. Open Name. dat For Output As #1
B. Open Name. dat For Input As #1
C. Open D:\Temp\Name.dat For InputAs #1
D. Open D:\Temp\Name.dat For Output As #1
3.用来设置文件中下一个读写位置的语句是______ 。
A.Skip B.Seek C.FileAttr D.Select
4.下列语句中______ 是顺序文件操作和随机文件操作中都有的。
A.Print B.Get C.Put D.Close
5.要向Data.dat 文件中添加数据,下面语句中正确的是______ 。
A. Open Data.dat For OutputAs #1
B. Open Data.daf For InputAs #1
C. Open Data.dat For OutputAs #I
D. Open Data.dar For Append As #1
6.在用Open 语句打开文件时,如果省略了“For 方式”,则打开文件的存取方式是 ______ 。
A.顺序输入方式 B.随机存取方式
C.二进制方式 D.顺序存取方式
7.下列文件函数中,作用为以整数形式返回Open 语句可以使用的下一个有效的文件号的是______ 。
A.Lof B.FileAttr C.FreeFile D.FileLen
8.当发生Form_ Click 事件后,下面这段程序代码的执行结果为在窗体中输出______ 。
Option Explicit
Private Sub Form Click ()
Dim num As String * 1, n As Integer
Open C:\ Check. txt For Random As #10
For n = 1 To 6
num = Chr(n + 64)
Put %10, n, num
Next n
Seek #10, 3: Get #10, , num
Print Loc(10); Seek(10)
End Sub
A.3 4 B.4 5 C. 5 3 D. 3 3
9.判断是否到达文件尾和返回文件字节数的函数是______ 。
A.EOF END B.END CLOSE
C.EOF LOF D.END LOF
10.在窗体上画一个名称为CommonDialog1的通用对话框和一个名为Command1的命令按钮。要求实现这样一个功能:单击命令按钮后,打开一个通用对话框用于保存文件,其窗口标题为“保存”,默认文件名为Data,在“文件类型”栏中显示*.txt。下列程序中能实现以上功能的是______ 。
A. Private Sub Command1_ Click()
CommonDialog1. FileName = Data
CommonDialog1. Filter = All Files|*.|* |(*.txt)|(*.doc)|*.doc
CommonDialog1. Filterlndex = 2
CommonDialog1. DialogTitle = “保存”
CommonDialog1. Action = 2
End Sub
B. Private Sub Command1_ Click()
CommonDialog1. FileName = Data
CommonDialog1. Filter = All Files|*.*|(*.txt)|(*.doc)|*.doc
CommonDialog1. FilterIndex = 2
CommonDialog1.
您可能关注的文档
最近下载
- 小学二年级数学一单元检测卷.doc VIP
- 2025中国农业银行秋招发布时间笔试备考题库及答案解析.docx VIP
- 三级医院评审医技组药事检查手册.ppt VIP
- 2024年昆仑物流有限公司秋季高校毕业生招聘45人笔试参考题库附带答案详解.pdf
- yc-ii22 路十路口说明书.doc VIP
- 北京恒安卫士协议书.docx VIP
- T_CPSS 1003-2023 直流散热风扇通用性能测试规范 .docx VIP
- 10.2 我们与法律同行 课件(共22张PPT)2025年统编版道德与法治七年级下册.pptx VIP
- 护理查房制度理论知识考核试题及答案.docx VIP
- 房屋市政工程安全生产标准化指导图册(2025版).pptx
原创力文档


文档评论(0)