首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Cornrnand2,标题分别为“写文件”和“读文件”,如图3.131(a)所示。其中“写文件”命令按钮事件过程用来建立
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Cornrnand2,标题分别为“写文件”和“读文件”,如图3.131(a)所示。其中“写文件”命令按钮事件过程用来建立
admin
2019-06-20
28
问题
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Cornrnand2,标题分别为“写文件”和“读文件”,如图3.131(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录,以随机存取方式保存到文件t5.txt中;而“读文件”命令按钮事件过程用来读出文件t5.txt中的每个记录,并在窗体上显示出来。通信录中的每个记录由三个字段组成,结构如下:
姓名(Name) 电话(Tel) 邮政编码(Pos)
LiuMingliang (010)62781234 100082
各字段的类型和长度为:
姓名(Name):字符串15
电话(Tel):字符串15
邮政编码(Pos):长整型(Long)
程序运行后,如果单击“写文件”命令按钮,则可以随机存取方式打开文件t5.txt,并根据提示向文件中添加记录,每写入一个记录后,都要询问是否再输入新记录,,回答“Y”(或“y”)则输入新记录,回答“N”(或“n”)则停止输入;如果单击“读文件"命令按钮,则可以随机存取方式打开文件t5.txt,读出文件中的全部记录,并在窗体上显示出来,如图3.131(b)所示。该程序不完整,请把它补充完整。要求如下:
①去掉程序中的注释符,把程序中的?改为正确内容,使其能正确运行,但不能修改程序中的其他部分。
②文件t5.txt中已有三个记录,如图3.131(1))所示,请运行程序,单击“写文件”命令按钮,向文件t5.txt中添加以下两个记录(全部采用西文方式):
LiDaqing (027)873487654 30065
ChenQingshan (022)26874321 300120
③运行程后,单击“读文件”命令按钮,在窗体上显示全部记录(共5个)。
④用原来的文件名保存工程文件和窗体文件。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: RecNum=RecNum+1 Put #1,RecNum,Pers Loop While UCase(asp) <> "N" RecNum=LOF(1)/Len(Pers) Get #1,i,Pers 步骤2:按
键运行程序,先单击“写文件”按钮,然后在弹出的输入框中依次按照题目要求输入两条记录,再单击“读文件”按钮在窗体上显示结果。 步骤3:按要求将文件保存至考生文件夹中。
解析
在“写文件”命令按钮的Click事件过程中,用Open语句打开考生文件夹下的文件t5.txt,变量RecNurn代表记录个数,在Do…Loop循环中(以输入的不是“N”作为循环条件),用Put语句将记录变量Pers写入随机文件中相应记录号的记录,然后令记录号加1以便下次继续写入。在“读文件”命令按钮的Crick事件过程中,用Open语句打开文件t5.txt,同样使用变量RecNum代表记录个数,然后再一个For循环中依次使用Get语句取出每一个记录并且显示。
转载请注明原文地址:https://jikaoti.com/ti/nVN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-1)*3+j
计算下面分段函数的正确语句是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsStringC=UC
假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=LCase(Mid(S,i,1))+s1NextiFun=S1EndFuncti
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer()StaticflagAs
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSub关于以上定义,以下叙述中错误
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请画两个标签,其名称分别足Label1和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再画两个名称分别为Textl和Text2、初始
(1)有一个名为samp1.accdb的数据库。试修改职工表“employee”的结构,在“职工号”字段后增加“姓名”字段,其数据类型为文本型,长度为6,并对应职工号添加其姓名,见表2.6。(2)判断并设置表“employee”的主键,刚时将上
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
随机试题
依据法定条件和程序,简单的行政许可决定,需要对申请材料的实质内容进行核实的,行政机关可以指派一名工作人员进行核查。
被称为“国际会议之都”的城市是()。
构成发展社会主义市场经济、实现社会主义现代化事业的两个轮子是()
“大头瘟”之病名首次提出见于
施工单位由于现场空间狭小,将雇用来的衣民工的集体宿舍安排在了一栋还没有竣工的楼房里,这种行为()。
关于排除妨害及消除危险请求权的规定,下列说法正确的有()。
已知r(a1,a2,a3)=2,r(a2,a3,a4)=3,证明:a4不能由a1,a2,a3线性表示。
已知某产品生产x个单位时,总收益R的变化率(边际收益)为Rˊ=Rˊ(x)-200-x/100(x≥0)(1)求生产了50个单位时的总收益;(2)如果已经生产了100个单位,求再生产100个单位时的总收益.
[*]通过审题可以发现主要有两个不同点:①判断数值为奇数,可通过a[i]%2进行判断,参考答案的第4条语句;②要求进行比较的元素大于后连续5个数,因此在设置判断条件时,作为比较的两个数之间应该是大于关系,参考答案的第4条语句。
EconomicReforminChinaMoreUSsinologistshaveexpressedconfidenceinChina’seconomicreformandtheprospectsforChi
最新回复
(
0
)