首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了部分控件和部分程序。程序运行时,请在窗体上画三个标签,其名称分别为Label1、Label2和Label3,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为Text1、Tex
在考生文件夹下有一个工程文件sjt5.vbp,已给出了部分控件和部分程序。程序运行时,请在窗体上画三个标签,其名称分别为Label1、Label2和Label3,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为Text1、Tex
admin
2018-10-29
33
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了部分控件和部分程序。程序运行时,请在窗体上画三个标签,其名称分别为Label1、Label2和Label3,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为Text1、Text2和 Text3,初始内容均为空白,如图1-59所示。程序运行后,如果单击“显示第三个记录”按钮,则读取考生文件夹下in5.txt 文件中的第三个记录,将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件,共有5个记录)。单击“保存”按钮,则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt 中。请编写“显示第三个记录”按钮的Click事件过程,以实现上述功能。
注意:考生不得修改已经存在的程序,必须用“保存”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件如表2-8在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口中,编写Command1_Click事件过程。 参考代码: Private Sub Command1_Click() Dim Pal As Paltype Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal) Get #1, 3, Pal Text1.Text = Pal.Name Text2.Text = Pal.Tel Text3.Text = Str(Pal.Post) Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键键运行程序,先单击“显示第三个记录”按钮,再单击“保存”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/AtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
有下面程序代码:PrivateSubCommand1_Click()Fork=5To1Step-1x=k+x*10NextkPrintxEn
窗体上有一个名称为VScroll1的滚动条,当用鼠标拖动滚动条中的滚动块时,触发的事件是( )。
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)( )。
下列叙述中正确的是
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
下列说法中,错误的是
鼠标拖放控件要触发两个事件,这两个事件是( )。
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
随机试题
人民法院审理行政案件()对行政机关未予处罚的当事人直接给予行政处罚。
位于胸腹和盆腔内的器官通称为内脏。
小肠分节运动的作用在于
男性,68岁,进行性无痛性黄疸1个月,上腹胀痛,体重减轻。检查:巩膜及周身皮肤黄染,P90次/分,BP140/70mmHg,血清总胆红素为70μmol/L,Courvoisier征阳性。为进一步确诊应首先选用
A、发病率B、治愈率C、不良反应发生率D、转化为货币的用药结果E、病人对治疗结果的满意程序效用是
胎儿娩出后胎盘多长时间尚未娩出者,称为胎盘滞留
商业银行为房地产开发公司提供贷款属于其银行业务中的()。
下列资料中,属于砌筑工序交接证明书必须具备的有()。
参观教学法可以分为()。
以下关于项目整体变更控制的描述中,正确的是(26)。
最新回复
(
0
)