2012年计算机二级VB上机试题及解题思路第九套

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。 再画三个文本框，其名称分别为Text1、Text2和Text3，初始内容均为空白，如图所示。程序运行后，如果单击“显示第三个记录”命令按钮， 则读取考生文

　　件夹下in5.txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件，共有5个记录)。单击“保存”按钮， 则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。

　　请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。

　　注意：

　　考生不得修改已经存在的程序，必须用“保存”按钮存储结果， 否则无成绩。最后，按原文件名把程序存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　在该窗体上画三个标签控件，通过其属性窗口将名称分别设为Label1、Label2和Label3，标题(Caption属性)分别设为“姓名”、“电话号码”和“邮政编码”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，文本内容(Text属性)均设为空。

　　单击“显示第三个记录”按钮(即运行Click事件过程)，在该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

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总