首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
admin
2018-12-05
42
问题
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一个通信录,以随机存取方式保存到文件out5.txt 中;而“读通信录”命令按钮事件过程用来读出文件out5.txt 中的每个记录,并在窗体上显示出来。
通信录中的每个记录由3个字段组成,结构如下:
姓名(Name)电话(Tel)邮政编码(Pos)
LiMingXiang (010)62483772 100095
各字段的类型和长度为:
姓名(Name):字符串 15
电话(Tel):字符串 15
邮政编码(Pos):长整型(Long)
程序运行后,如果单击“写通信录”命令按钮,则可以随机存取方式打开文件out5.txt,并根据提示向文件中添加记录,每写入一个记录后,都要询问是否再输入新记录,回答“Y”(或“y”)则输入新记录,回答“N”(或“n”)则停止输入;如果单击“读通信录”命令按钮,则可以随机存取方式打开文件out5.txt,读出文件中的全部记录,并在窗体上显示出来,如图1-252所示。该程序不完整,请把它补充完整。
要求:
①去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。
②文件out5.txt 中已有3个记录,请运行程序,单击“写通信录”命令按钮,向文件out5.txt中添加以下两个记录(全部采用西文方式):
LiuXiaoqiang (028)87348765 430065
DengQinghua (021)26874321 300120
③运行程序,单击“读通信录”命令按钮,在窗体上显示全部记录(共5个)。④用原来的文件名保存工程文件和窗体文件。
程序源码:
Private Type Tele
Name As String * 15
Tel As String * 15
Pos As Long
End Type
Dim Pers As Tele
Dim RecNum As Integer
Private Sub cmdRead_Click()
Open "out5.txt" For Random As
#1 _
Len = Len(Pers)
RecNum = LOF(1) / Len(Pers)
Do
Pers.Name = InputBox("请输入姓名
")
Pers.Tel = InputBox("请输入电话号
码")
Pers.Pos = InputBox("请输入邮政编
码")
’RecNum = ?
’Put #1, ?
asp=
InputBox("More(Y/N)?")
’Loop While UCase(asp) ?
Close 1
End Sub
Private Sub cmdWrite_Click()
Open "out5.txt" For Random As
#1 _
Len = Len(Pers)
’RecNum = ?
Cls
For i = 1 To RecNum
’Get #1, ?
Print Pers.Name; Pers.Tel;
Pers.Pos
Next i
Close 1
End Sub
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: RecNum = RecNum + 1 Put #1, RecNum, Pers Loop While UCase(asp) = "Y" RecNum = LOF(1) / Len(Pers) Get #1, i, Pers 步骤2:运行程序,单击“写通信录”命令按钮,按照提示依次输入: LiuXiaoqiang (028)87348765 430065 DengQinghua (021)26874321 300120 步骤3:运行程序,单击“读通信录”命令按钮,在窗体上显示全部记录(共5个)。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/skFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"<=Chr(KeyAscii)A.ndC
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是(
下面属于白盒测试方法的是()。
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是( )。
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
一个工作人员可以使用多台计算机,而一台计算机可被多个人使用,则实体工作人员与实体计算机之间的联系是( )。
下列说法中,错误的是
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
下列选项中不属于结构化程序设计原则的是( )。
随机试题
简述行政道德具体规范中热情待人,协调行政的内涵与其对行政机关及其工作人员的要求。
A.肾脓肿B.血行转移C.骨转移D.肺转移E.淋巴转移膀胱肿瘤易发生的转移类型为
充填前牙楔状缺损的材料有多种,除外
甲科研所是一家从事地质灾害预防研究的中央级事业单位(以下称甲单位),所属预算单位包括一家研究院。除财政拨款收入外,甲单位存在培训、咨询服务等其他收入。甲单位有关预算编制、政府收入分类、会计处理以及绩效评价的情况如下:(1)甲单位在预算编制过程中,通过“二
根据《中华人民共和国票据法》的规定,下列选项中,属于因时效而致使票据权利消灭的情形有()。
如果被审计单位管理层拒绝就其责任的履行情况提供书面声明,下列做法中,注册会计师认为错误的是()。
社会工作者小李所服务的社区基础设施老化陈旧,居民楼经常发生下水道堵塞、水压不足等问题。为了有效解决这些问题,小李准备制订一个服务方案。在问题的认识和分析阶段,小李采用“问题认识工作表”的方法进行科学分析,其分析的主要内容包括()
请在【答题】菜单下选择【进入考生文件夹】命令,并按照题目要求完成下面的操作。注意:以下的文件必须都保存在考生文件夹下。小王是某出版社新人职的编辑,刚受领主编提交给她关于《计算机与网络应用》教材的编排任务。请你根据考生文件夹下“《计算机与
Americanthisyearwillswallow15,000tonsdrugsofaspirin,oneofsafestandmosteffectiveinventedbyman.【M1】______
Thesecretaryworkedlateintothenight,(prepare)______alongspeechforthepresident.
最新回复
(
0
)