首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.
admin
2012-10-09
40
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,pAsIntegerm=3:n=5:p=OCallY(m,n,p)
非空的循环单链表head的尾结点(由p所指向),满足
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:PrivatexASIntegerPrivateSubCommand1_Click(
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click(
有如下程序:PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimopAsIntegerk=4:m=1op:PPC(k,m):Printop;
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
“年龄在18-25之间”这种约束是属于数据库当中的
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
随机试题
两性溶剂适用于滴定
A.A型药品不良反应B.B型药品不良反应C.C型药品不良反应D.新的药品不良反应长期用药后致心血管疾病属于
宅基地使用权的权利取得方式是()。
带传动的主要失效形式之一是带的()。
当干路设计车速为50km/h时,互通式立交最小净距值为()
目前,我国不可以开展基金份额登记工作的机构是()。
工会和雇主可以达成协议的情况是()。
教师课堂总结形式一般有()。
蚁族“蚁族”指的是那些聚居于城中村,收入不高、工作不稳定的“高校毕业生低收入聚居群体”。据统计,仅北京一地就有至少10万“蚁族”,而在全国这一群体拥有上百万规模和数量。在这群怀揣理想、面对现实的“蚂蚁”面前,讲励志故事谈成功之道,没有多少意义,因
concert
最新回复
(
0
)