首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
admin
2016-01-31
54
问题
在考生文件夹下有一个工程文件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
′考生编写如下事件过程的程序(cmdDisplay_Click)
Private Sub cmdDisplay_C1ick()
End SUb
Private Sub cmdSave_CliCk()
Open"out5.txt"For Output As #1
Print #1, txtName.Text,txtTe1.Text,
txtPoSt.Text
C1ose 1
End Sub
选项
答案
审题分析 本题需在“显示第三个记录”按钮的单击事件过程中,先声明一个自定义数据类型PalType的变量,然后用Open语句打开文件in5.txt,接着用Get#语句读出记录号为3的记录并赋值给自定义类型变量,最后将该变量各元素的值显示在对应文本框中。 操作步骤 步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表4-22在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口中,编写cmdDisplay_Click事件过程。 参考代码: PriVate Sub cmdDisplay_Click() Dim pers As PalType ODen"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/1uLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl_Click()S=0Fori=1To15x=2*i-1
若想使时钟控件每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为()。
执行下面的程序段后,x的值为()。x=50Fori=1To20Step2x=X+i\5Nexti
只能用来显示字符信息的控件是()。
当标签的标题内容太长,需要根据标题自动调整标签的大小时,应设置标签的()属性为True。
语句DimArr(-3To5)AsInteger定义的数组的元素个数是()。
用Print方法在Form1窗体中显示出4个#号的正确代码为()。
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()ForI=1To2ForJ=1ToIPrintString(I,"Hello");NextJPrintN
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()Dima(5)Fori=0To4A(i)=i+1t=i+1
随机试题
19世纪中叶以前,心理学是作为()的一个分支出现的,直到()心理学才开始成为一门独立的学科,它的独立是经德国心理学家()建立世界上第一个()为标志的。
阅读下列材料,并回答问题。年轻的张老师是某名牌大学的优秀毕业生,现任教于一所中学,工作之初,他刻苦钻研教育教学理论,认真备好每一节课,全身心地投入到班级管理中。由于他平时对学生不苟言笑,在班级管理中要求非常严格,,学生对他敬而远之。渐渐地,张老师发现自己
10个月小儿,阵发性哭闹,伴呕吐,黏液血便,右下腹可触及腊肠样包块,最可能的诊断:()
构成胎盘胎儿部分的是
A.白癜风B.银屑病C.天疱疮D.鱼鳞病E.系统性红斑狼疮与表皮脂代谢异常相关的是
斜刺的角度应为
(2008年)下列各物质的化学键中,只存在σ键的是()。
设备、管道的绝热按用途可分为( )等类型。
Readingaloudandsilentreadingaretwodifferenttypesofreadingpracticecommonlyfoundinclassrooms.Eachhasafunction
その話は、どうやら事実______。
最新回复
(
0
)