在考生的文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“写文件”和“读文件”，如图3-77(a)所示。其中“写文件”命令按钮事件过程用来建立一个通

admin2019-05-14 34

问题在考生的文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm。在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“写文件”和“读文件”，如图3-77(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件t5．txt中；而“读文件”命令按钮事件过程用来读出文件t5．txt中的每个记录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下：
姓名(Name)
电话(Tel)
邮政编码(Pos)
LiuMingliang
(010)62781234
100082
各字段的类型和长度为：
姓名(Name)：字符串15
电话(Tel)：字符串15
邮政编码(Pos)：长整型(Long)
程序运行后，如果单击“写文件”命令按钮，则可以随机存取方式打开文件t5．txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入；如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5．txt，读出文件中的全部记录，并在窗体上显示出来，如图3-77(b)所示。该程序不完整，请把它补充完整。要求如下：
①去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。
②文件t5．txt中已有三个记录，如图3-77(b)所示，请运行程序，单击“写文件”命令按钮，向文件t5．txt中添加以下两个记录(全部采用西文方式)：
LiDaqing (027)873487654 30065
ChenQingshan (022)26874321 300120
③运行程后，单击“读文件”命令按钮，在窗体上显示全部记录(共5个)。
④用原来的文件名保存工程文件和窗体文件。

选项

答案审题分析在“写文件”命令按钮的Click事件过程中，用Open语句打开考生文件夹下的文件t5．txt，变量RecNam代表记录个数，在Do…Loop循环中(以输入的不是“N”作为循环条件)，用Put语句将记录变量Pers写入随机文件中相应记录号的记录，然后令记录号加1以便下次继续写入。在“读文件”命令按钮的Click事件过程中，用Open语句打开文件t5．txt，同样使用变量RecNum代表记录个数，然后再一个For循环中依次使用Get语句取出每一个记录并且显示。操作步骤步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。参考代码： RecNum=RecNum+1 Put #1，RecNum，Pers Loop While UCase(asp) <> "N" RecNum=LOF(1)／Len(Pers) Get #1，i，Pers 步骤2：按键运行程序，先单击“写文件”按钮，然后在弹出的输入框中依次按照题目要求输入两条记录，再单击“读文件”按钮在窗体上显示结果。步骤3：按要求将文件保存至考生文件夹中。考点链接随机文件、Do循环和While循环。

解析

转载请注明原文地址:https://www.kaotiyun.com/show/pTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类