首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
admin
2018-12-05
40
问题
在考生的文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面关于VB数据文件的叙述中错误的是()。
以下变量名中合法的是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为
下列符号常量的声明中不合法的是
下面能够将某个变量声明为局部变量的是
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
下列说法中,错误的是
随机试题
Whichofthefollowingisthemostexpensivefoodonthemenu?
废水的处理以深度而言,在二级处理时要用到的方法为()
患者,女,28岁。口气浊臭,脘腹胀满,不思饮食,呕恶欲吐,大便溏泻,舌质红,舌苔黄厚而腻,脉象滑。用药宜首选()
A.心率B.外周阻力C.每搏量D.大动脉管壁弹性E.循环血量与血管容量的比一般情况下,收缩压的高低主要反映()
()是工程项目管理的前提,也是工程造价管理的前提。
出口销售外汇净收入是指出口商品的FOB价按当时外汇牌价折成人民币的数额。()
甲公司于2017年1月1日以公允价值500000万元购入一项债券投资组合,将其分类为以摊余成本计量的金融资产。2018年1月1日,将其重分类为以公允价值计量且其变动计入其他综合收益的金融资产。重分类日,该债券组合的公允价值为490000万元,已确认的损失准
供应链管理是利用计算机网络技术,全面规划供应链中商流、物流、信息流、资金流等,并进行计划、组织、协调与控制,其核心是()。
根据公司法律制度的规定,上市公司发行无记名股票,下列关于股东大会会议制度的表述中,正确的是()。
甲制药厂正在试制生产某流感疫苗。为了核算此疫苗的试制生产成本,该企业最适合选择的成本计算方法是()。
最新回复
(
0
)