2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp和随机文件in5．txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下： 窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”按钮，则从考生文件夹下的in5．

在考生文件夹下有一个工程文件sjt5．vbp和随机文件in5．txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下： 窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”按钮，则从考生文件夹下的in5．

admin2012-10-09  46
问题 在考生文件夹下有一个工程文件sjt5．vbp和随机文件in5．txt，文件中的每个记录包括三个字段，分别为姓名、电话和邮编，其名称、类型和长度如下：

窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”按钮，则从考生文件夹下的in5．txt文件中读入所有记录并显示在文本框中(每条记录占一行，数据项的顺序是姓名、电话、邮编，如图1-160所示，可使用符号常量vbCrLf表示回车换行)；若单击“保存”按钮则把文本框中的内容存入out5．txt文件中。
要求：编写“读入并显示记录”按钮的Click过程。把文本框中所有字母改为大写字母(可手工修改)。单击“保存”按钮把修改后的文本框内容存盘，否则无成绩!(过程已给出，不能修改)。最后以原文件名保存放在考生文件夹下。
选项
答案 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Open App．Path&"＼in5．txt"For Random As #1 Len=Len(pal) For i=1 To 5 Get#l，i，pal Textl．Text=Textl．Text&pal．Name Textl．Text=Textl．Text&pal．Tel Textl．Text=Textl．Text&Str(pal．Post) Textl．Text=Textl．Text+vbCrLf Next Close 1 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按键键运行程序，先单击“读入记录”按钮，然后把文本框中把所有字母改为大写字母，再单击“保存记录”按钮。
解析   用Open语句打开随机文件，其语法格式为：Open FileName for Random as#FileNumber Len=记录长度。记录长度是一条记录实际所占字节数，可用Len()函数获取；Get#语句用于从文件中读出某记录号的记录，格式为：Get#FileNumber,[RecordNuber]，Var Put#语句用于把记录按指定记录号写入文件，格式为：Put撑FileNumber,[RecordNuber]Var。
  在“读入并显示记录”命令按钮的Click事件过程中，用Open语句打开考生文件夹下的文件in5．txt，在For循环中用Get语句读入随机文件中相应记录号的记录，赋值给一个声明的记录变量(如Pal)，并将变量Pal各元素的值显示在文本框中。为使每条记录各占一行，可在每条记录后面加一个回车换行常数vbCrLf。
转载请注明原文地址:https://kaotiyun.com/show/53hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)