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

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

admin2010-09-02  47
问题 在考生文件夹下有一个工程文件sjt5．vbp，己给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Labell、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框，其名称分别为Textl、Text2和Text3，初始内容均为空白，如图l-94所示。程序运行后，如果单击“显示第三个记录”按钮，则读取考生文件夹下ins．txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件，共有5个记录)。单击“保存”按钮，则把该记录(三个字段)保存到考生文件夹下的顺序文件outs．txt中。请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。
注意：考生不得修改已经存在的程序，必须用“保存”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
选项
答案 【操作步骤】 步骤l；打开考生文件中的本题工程文件sjt5．vbp，如表2-52在窗体中画出控件并设置其相关属性。 [*] 步骤2：在代码编辑窗口中，编写Commandl_Click事件过程。 参考代码： PriVate Sub Commandl_Click() Dim Pal As Paltype Open App．Path&"＼in5．txt"For Random As#l Len=Len(Pal) Get#1，3，Pal Textl．Text=Pal．Name Text2．Text=Pal．Tel Text3．Text=Str(Pal．Post) Close 1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按键键运行程序，先单击“显示第三个记录”按钮，再单击“保存”按钮。
解析     ①Type语句用于在模块级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个至一个以上的成员，每个成员可以被定义为不同的数据类型。声明白定义类型变量后，可通过“变量名．成员名”来访问自定义变量中的元素。②用Open语句打开随机文件，其语法格式为；Open FileName for Random as#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数，可用Len(记录变量名)函数获取；Get#语句用于从文件中读出某记录号的记录，格式为：Get#FileNumber,【RecordNuberl】，Van Put#语句用于把记录按指定记录号写入文件，格式为：Put#FileNumber,[RecordNuberl．Vat。③LOF函数可返回一个用Open语句打开的文件的大小。该大小以字节为单位，返回值为Long数据类型。
    本题需在“显示第三个记录”按钮的单击事件过程中，先声明一个自定义数据类型PalType的变量，然后用Open语句打开文件in5．txt，接着用Get#语句读出记录号为3的记录并赋值给自定义类型变量，最后将该变量各元素的值显示在对应文本框中。
转载请注明原文地址:https://kaotiyun.com/show/SUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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