首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
admin
2016-03-22
74
问题
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtTel和txtPost,初始内容均为空白,如图3-36所示。程序运行后,如果单击“显示第三个记录”命令按钮,则读取考生文件夹下in5.txt文件中的第三个记录,将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件,共有5个记录)。单击“保存”按钮,则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。请编写“显示第三个记录”按钮的Click事件过程,以实现上述功能。
注意:考生不得修改已经存在的程序,必须用“保存”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。
程序源码:
Private Type PalType
Name As String*8
Tel As String*10
Post As Long
End Type
考生编写如下事件过程中的程序(icmdDisplay—Click)
Private Sub cmdDisplay—Click()
End Sub
Private Sub cmdSave Click()
Open”out5.txt”For Output As#1
Print#1,txtName.Text,txtTe1.Text,
txtPost,Text
close 1
End Sub
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表4.22在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口中,编写cmdDisplay_Click事件过程。 参考代码: Private Sub cmdDisplay C1ick() 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://kaotiyun.com/show/pMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序弹出对话框中按钮的个数为【】。MsgBox″确认!″,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,″提示;″
下面程序段执行结果为x=Int(Rnd()+4)SelectCasexCase5Print"excellent"Case4Print"good"Case3Print"pass"CaseElsePrint"
有人编写了如下程序:PrivateSubForm_Click()DimsAsInteger,xAsIntegers=0x=0DoWhiles=10000x=x+1
列表框中的项目保存在一个数组中,这个数组的名字是
下列选项中属于面向对象设计方法主要特征的是
数据库系统的三级模式不包括
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
使用VisualBasic6.0开发的应用程序,最多可以有______个窗体。
将任意一个正的两位数N的个位数与十位数对换的表达式为()。
下列叙述中,不属于测试的特征的是
随机试题
对公务员进行奖惩、培训、辞退以及调整职务、级别和工资的直接或间接的依据是()
E公司2009—2012年有关财务资料如下:要求:根据上述资料分析评价公司的财务发展能力。
数据模型有:
Mymotherremainedatthetopofthehillbecauseshedidnotwanttoclimbthe______ofstairs.
中央型肺癌的特点不包括下列哪项
滥伐森林,必然破坏自然界的______,滥垦草原会造成土地______。
设X~N(1,σ2),Y~N(2,σ2)为两个相互独立的总体,X1,X2,…,Xm与Y1,Y2,…,Yn分别为来自两个总体的简单样本,S12=则服从_______分布。
下图是网络地址转换NAT的一个示例根据图中信息,标号为③的方格中的内容应为()。
ChooseTHREEletters,A-ETheinventionofdifferentgearsonabicycleaffectedwhichTHREEofthefollowing?AWheelsizeBBa
ForgetBrother,CanYouSpareaDime?Thethemesongofthisrecessionmightwellbe"Mother,CanYouWriteaCheck?"Thedistre
最新回复
(
0
)