2. 计算机
  3. 在考生文件夹下有一个工程文件vbsj5．vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为lblName、lblTel和lblPost，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为txtName、txtT

在考生文件夹下有一个工程文件vbsj5．vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为lblName、lblTel和lblPost，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为txtName、txtT

admin2016-01-31  33
问题 在考生文件夹下有一个工程文件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://jikaoti.com/ti/qwJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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