首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击”读入并显示记录”按钮,则从考生文件夹下的in5.
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击”读入并显示记录”按钮,则从考生文件夹下的in5.
admin
2013-10-18
31
问题
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下:
窗体中有一个文本框和两个命令按钮。程序运行后,如果单击”读入并显示记录”按钮,则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中(每条记录占一行,数据项的顺序是姓名、电话、邮编,如图2-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 #1,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:按<F5>键键运行程序,先单击”读入记录”按钮,然后把文本框中把所有字母改为大写字母,再单击”保存记录”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/dTQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
在设计窗体时双击窗体的任何地方,可以打开的窗口是
下列叙述中正确的是
(1)在名称为Forml的窗体中画一个名称为Textl的文本框,其标题为“0”;再添加一个名称为Timerl的计时器。请设置适当的控件属性,并编写适当的事件过程.使得在运行时,每隔1秒钟文本框中的数字加1,当达到10时,在窗口上打印“10”,然后重新从O开
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load()Show
下列说法错误的是______。
分布式数据库系统不具有的特点是
下面不属于软件工程的3个要素的是______。
随机试题
1kg气体温度升高(或降低)1K所吸收(或放出)的热量称为()。
简述欧洲联盟委员会的主要职能。
为了保证计划目标得以实现,就需要有控制职能,控制的实质就是使()
下列哪项药物的用量不正确
对看涨期权而言,若市场价格低于协定价格,期权的买方将放弃执行期权,为虚值期权。()
下列有关纳税人办理一般纳税人登记的表述中,不正确的是()。
设f(x)连续,且求f(0).
若要从学生表中检索出jg并去掉重复记录,可使用如下SQL语句SELECT______jgFROMstudent请选出正确的选项完成该语句
对建立良好的程序设计风格,下面描述正确的是()。
A、Takesomemedicine.B、Haveagoodrest.C、Betreatedinhospital.D、Takeaninjection.B对话中女士提出自己感觉身体不舒服,男士建议女士好好休息一下,这样就会感觉好些
最新回复
(
0
)