首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
admin
2018-12-05
32
问题
在考生的文件夹下有一个工程文件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
以下说法中正确的是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
下列叙述中正确的是
VisualBasic源程序的续行符为
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:PrivateSubCommand1_Click() Fori=0To
在VisualBasic中,所有标准控件都具有的属性是( )。
随机试题
患者男性,5岁,胸骨左缘第二肋间收缩期杂音,X线检查右室右房扩大,最可能的诊断患者男性,5岁,胸骨左缘第二肋间可闻及明显杂音,超声心动图示左室左房扩大,最可能的诊断
某人因有机磷农药中毒,致使神经纤维末梢释放的乙酰胆碱不能失活而作用加强。患者不会出现的症状是
变异系数越大,说明
法国公民约翰逊在中国境内居留期间,未持有效旅行证件前往不对外国人开放的地区旅行,被当地县公安机关处以7天拘留处罚。约翰逊对此不服,前往当地一家律师事务所进行咨询。以下咨询意见正确的是?()
()对岗位的安全生产负直接责任。其主要职责是接受安全生产教育和培训,遵守有关安全生产规章和安全操作规程,遵守劳动纪律,不违章作业。
A.细菌性肝脓肿B.门静脉炎C.两者均可D.两者均不可急性阑尾炎时可并发
Inordertoworkheretheforeignerneedsaworkpermit,whichmustbeappliedforbyhisprospectiveemployer.Theproblemhere
Parentsareoftenupsetwhentheirchildrenpraisethehomesoftheirfriendsandregarditasasluragainsttheirownthings,
Myfatherseemedtobeinno______tolookatmyschoolreport.
Kerry:Hi,Joanne.How’sitgoing?Joanne:Terrible.IjustfoundoutIhaveachemistrytesttomorrow.Kerry:Yourprofessordi
最新回复
(
0
)