首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
在考生的文件夹下有一个工程文件vbsj5.vbp,相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮,其名称分别为cmdWrite和cmdRead,标题分别为“写通信录”和“读通信录”,如图1-251所示。其中“写通信录”命令按钮事件过程用来建立一
admin
2018-12-05
34
问题
在考生的文件夹下有一个工程文件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全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
窗体上有1个Timerl计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.Enab
设a=4,b=5,c=6,执行语句Printa<bAndb<c后,窗体上显示的是( )。
窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序:PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Cl
下面有关标准模块的叙述中,错误的是( )。
以下选项中,不合法的VisualBasic的变量名是( )。
VisualBasic集成环境由若干窗口组成,其中不能隐藏(关闭)的窗口是( )。
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( )。
以下说法中正确的是
随机试题
“一国两制”中的一个国家的含义是( )。
含特殊药品复方制剂的品种包括()
口服葡萄糖耐量试验判断糖尿病标准为
一直径为50mm的圆管,运动黏滞系数v=0.18cm2/s、密度ρ=0.85g/cm3的油在管内以v=10cm/s的速度做层流运动,则沿程损失系数是()。
初诊接待求助者时,咨询师应有的仪态包括()。
保障粮食安全是保障民生工作的基本任务。()
下列不属于同盟会领导的是()。
酸性爵士
下列叙述中正确的是
A、 B、 C、 B本题的关键词是threepeople。
最新回复
(
0
)