首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有一个工程文件Vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
admin
2017-09-22
55
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
关系R和S进行自然连接时,要求R和S含有一个或多个公共______。
数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
下列代码运行后输出结果是DefstrB-EPrivateSubCommand1_Click()B$="123"C="456"PrintB+C$EndSub
一个完整的程序必须完成3个层次的过程,它们分别是编码、测试和【】。
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsString,cAsIntegera=1234:
随机试题
关于Diffie-Hellman算法描述正确的是()
施工企业授权某采购员到乙公司采购钢材,但该采购员用盖有甲施工企业公章的空白合同文本与乙公司订立了购买水泥的合同,则该合同()。
The"standardofliving"ofanycountrymeanstheaverageperson’sshareofthegoodsandserviceswhichthecountryproduces.
开发建设单位申请在某城市中心E进行旧区改造,建设商贸、办公建筑项目。该地段西侧为风貌性建筑,集中成片,并有小游园一处,现已批准公布为“保护近代西式住宅风貌为主的历史街区”的重点保护区。拟改造规划可用地面积约3hm2,为历史街区保护的建设控制地带,其中有几幢
下面各项中,不是《消费者权益保护法》立法目的的是()。
南京地貌特征属宁镇扬丘陵地区,以丘陵为主。()
有个人发现图书馆的那本《大英百科全书》的第21、42、64.65、121、137、138、190页对他有用,便把这几页偷偷地撕下带走了。那他一共撕去了()。
[*]
A、Showtheadd/dropformtoProfessorSmith.B、GoonattendingProfessorSmith’sclass.C、Cometotheregistrationofficewitht
OnefeatureofnewfoundwealthinthedevelopingworldhasbeentheembraceofWesternluxurylabels.Butsincetheglobalecono
最新回复
(
0
)