首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、11blTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txt
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、11blTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txt
admin
2016-12-29
25
问题
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、11blTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtTel和txtPost,初始内容均为空白,如图2.36所示。程序运行后,如果单击“显示第三个记录”命令按钮,则读取考生文件夹下in5.txt文件中的第三个记录,将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件,共有5个记录)。单击“保存”按钮,则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。请编写“显示第三个记录”按钮的Click事件过程,以实现上述功能。
注意:考生不得修改已经存在的程序,必须用“保存”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表3—22在窗体中画出摔什并设置其相关属性。 [*] 步骤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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/Lby0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
没有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准是模块的()。
在数据库设计中,将E—R图转换为关系模式的过程属于()。
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommandlClick()CommonDialogl.Filter=“AllFiles(*.*)丨*.
VisualBasic对象可以分为两类,分别为_________和________。
下列程序的执行结果为()。PrivateSubCommandlClick()DimXAsInteger,YAsIntegerx=12:y=20CallValue(x,y)Pri
没有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
用下面语句定义的数组的元素个数是()。DimA(-3To5)AsInteger
随机试题
疝修补术后出院指导正确的是()。
关于急性胃炎,下列错误的是
妇女带下色白,清稀如涕,无臭味,多属()
在爆炸性粉尘环境内()采用绝缘导线或塑料管明设。
控制电缆的额定电压宜选用()。
近年来,某国在经济快速发展的同时,也出现了投资增长加速(尤其一些地区房地产投资过大),货币信贷增长过快现象,形成煤、电、油、运等供应紧张,物价增长加快的趋势。对此,中央银行采取了一系列货币政策措施加以调控,并已取得良好成效。根据上述资料,回答下列问题:
开发利用出版信息资源的方法和途径包括()等。
小明今年a岁,芳芳明年(a-4)岁,再过c年,他们相差()。
新到一个工作岗位,其他同事不理睬你,你怎么办?
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click() X=5:Y=3
最新回复
(
0
)