2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为Text1、Tex

在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为Text1、Tex

admin2018-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全国计算机二级

相关试题推荐
随机试题
最新回复(0)