首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
admin
2018-12-05
24
问题
在考生的文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面关于控件数组的叙述中正确的是()。
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下:PrivateSubCommand1_Click(IndexAsInteger) IfIndex=1Then Print"计算机等级考试" En
以下说法中正确的是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),职员S(职员号,姓名,性别,年龄,学历),工作W(公司号,职员号,工资),则表W的键(码)为
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
结构化程序设计中,下面对goto语句使用描述正确的是
下列说法中,错误的是
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
鼠标拖放控件要触发两个事件,这两个事件是( )。
随机试题
如何坚持和改善马克思主义政党的领导?
患者,女,16岁,反复晕厥入院。查体:胸骨左缘可闻及收缩期杂音,心电图示胸导联冠状T波,心肌酶学不高,疑诊为梗阻性肥厚型心肌病。病史采集中,下列哪项最重要
晚期囊胚透明带消失后,相当于受精后第几日开始着床
某公司2012年年末的长期资金总额为400万元,其中包括普通股300万元,长期债券80万元,保留盈余20万元。它们的资金成本率分别为8%、10%和10.2%。则其综合资金成本率为()。
某企业拟开发一种新产品,需要资本总额为300万元,现有两个筹资组合方案可供选择,两个方案的财务风险都维持在可承受的范围内,具体内容如下:其中向银行借款,借款的利率为10%,每年付息,到期一次性还本,筹资费率为2%,企业所得税税率为25%。经分析,该
浙江省内的民用机场中,属于国际机场的有()。
设Ω=[a,b]×[c,d]×[l,m],证明
ThesizeoftheEskimolanguagespokenbymostwhitesis______.Theauthor’soverallpointisthat______.
当前的微机存储器系统由三部分构成:主存储器、辅助存储器和【】。
I’meager(learn)______asecondlanguage.
最新回复
(
0
)