首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下: 窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.
admin
2012-10-09
34
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/cDO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下面的程序段:Fora=1To2 Forb=1Toa ForC=bTo2 I=I+1 Next NextNextPrintI执行上面的三重循环后,I的值为
有如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) If(ButtonAnd3)=3Then Print"OK" EndIf EndSub
下列关于退出VisualBasic系统的方法的描述错误的是
下列不属于结构化分析的常用工具的是
以下关于过程及过程参数的描述中,错误的是
下列语句的输出结果是【】。 PrintFormat$(1256,"000,000.00")
关于VisualBasic"方法"的概念错误的是
下面关于完全二叉树的叙述中,错误的是______。
源程序中应包含一些内部文档,以帮助阅读和理解程序,源程序的内部文档包括选择合适的标识符、注释和
随机试题
患者,女,50岁。体弱多病,形体消瘦,气短乏力,纳食不香,头晕心慌,面色苍白,时嗳气,腹胀,经查诊断为胃下垂。应选
慢性轻度铅中毒的处理原则是
呕吐与呃逆的共同病机是
A、了解病情的轻重和病情的进退B、了解津液的变化C、了解正邪斗争消长的情况D、了解胃气的存亡E、了解病位的深浅从苔质的有根与无根可
患者,男性,65岁,有心房颤动病史。清晨起床自行上厕所时摔倒,家人发现其口角歪斜,自述左侧上下肢麻木。送医院检查,神志清楚,左侧偏瘫,CT见低密度影。最可能的诊断是
非公开发行公司债券,承销机构或自行销售的发行人应当在每次发行完成后五个工作日内向()备案。[2015年9月真题]
对驻守边疆国境的县市、沙漠区等特殊地区,符合随军条件而无法随军的军人家属,应由所在地的( )妥善安置。
Thetechnologyrevolutionmaybecomingtopoorcountriesviathemobilephone,notthepersonalcomputer,asitdidinrichone
RELEASEALL命令的功能是()。
TheStateofMarriageTodayIstheresomethingseriouslywrongwithmarriagetoday?Duringthepast50yearstherateofdiv
最新回复
(
0
)