首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
admin
2017-09-22
51
问题
在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtTel和txtPost,初始内容均为空白,如图3.72所示。程序运行后,如果单击“显示第三个记录”命令按钮,则读取考生文件夹下in5.txt文件中的第三个记录,将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件,共有5个记录)。单击“保存”按钮,则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。请编写“显示第三个记录”按钮的Click事件过程,以实现上述功能。
注意:考生不得修改已经存在的程序,必须用“保存”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。
程序源码:
Private Type PalType
Name As String*8
Tel As String*10
Post As Long
End Type
’考生编写如下事件过程的程序
(cmdDisplay_Click)
Private Sub cmdDisplay_Click()
End Sub
Private Sub cmdSave_Click()
Open"out5.txt"For Output As #1
Print #1,txtName.Text,txtTel.Text,
txtPost.Text
Close 1
End Sub
选项
答案
步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表4-44在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口中,编写cmdDisplay_Click事件过程。参考代码: PriVate Sub cmdDisplay_Click() Dim pers As PalType Open"in5.txt"For Random As #1 Len=Len(pers) Get #1,3,pers txtName.Text=pers.Name txtTel.Text=pers.Tel txtPost.Text=pers.Post Close #1 End Sub 步骤3:按
键运行程序,先单击“显示第三个记录”按钮,再单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。
解析
本题需在“显示第三个记录”按钮的单击事件过程中,先声明一个自定义数据类型PalType的变量,然后用Open语句打开文件in5.txt,接着用Get#语句读出记录号为3的记录并赋值给自定义类型变量,最后将该变量各元素的值显示在对应文本框中。
转载请注明原文地址:https://kaotiyun.com/show/TjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是()。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
为了使命令按钮(名称为Command1)右移200,应使用的语句是
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
CommonDialog控件可以显示______种对话框。
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
有如下事件过程: SubABD(x%,y%,z%) z%=X%+y% EndSub PrivateSubCommand1_Click() a%=30:b%=40 CallABD(a%,b%,c%) Pr
随机试题
(2020年青岛)下列表述符合桑代克“联结说”的是()
思维贫乏常见于
只能间断计数是时期指标的特点。()
在签订房地产买卖合同时,房地产经纪人应提示双方注意的细节不包括()。[2010年考试真题]
GPS测量方法主要分为事后差分处理和实时差分处理,()属于事后差分处理方法。
平等主体的自然人、法人、其他组织之间设立、变更、终止民事权利义务关系的协议称为()。
暂扣或者吊销执照属于()。
某投资者李预期甲股票价格将会下跌,于是与另一投资者张订立卖出合约,合约规定有效期限为三个月,李可按每股10元的价格卖给张5000股甲股票,期权价格为0.5元/股。一个月后,甲股票价格果然降至每股8元,李认为时机已到,于是以现货方式买进5000股甲股票,
(1)紧急开关启动(2)投料试车生产(3)出现报警信号(4)产出合格产品(5)险情迅速排除
Clonaid,acompanyassociatedbyagroupthatbelievesextraterrestrialscreatedmankind,announcedFridaythatithadproduced
最新回复
(
0
)