[其它考试]计算机考试二级VB机试文档.doc

1． 综合应用题 在窗体Form1上建立3个菜单（名称分别为vbRead、vbCalc和vbSave，标题分别为读数、计算和存盘），然后绘制一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2），如下图所示。 图66-5 程序运行后，如果执行读数命令，则读入in45.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行计算命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行存盘命令，则把所求得的和存入考生文件夹下的out45.txt文件中。 在考生文件夹下有一个工程文件sj5.vbp，考生可以装入该文件。窗体文 件sj5.frm中的ReadData过程可以把in45.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中（整数值通过计算求得，文件名为out45.txt）。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5.vbp，窗体文件名仍为sj5.frm。 1.打开题目所给工程文件； 2.执行工具菜单中的菜单编辑器命令，打开菜单编辑器；在标题栏中输入读数，在名称栏中输入vbRead；单击下一个按钮，在标题栏中输入计算，在名称栏中输入vbCacl；单击下一个按钮，在标题栏中输入存盘，在名称栏中输入vbSave； 3.单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名为Text1,Multiline属性值为Turn,ScrollBars属性设置为2； 4.打开代码窗口输入如下代码： PrivateSubvbCalc_Click() Text1.Text= For i=1 To 100 Step 2 Text1.Text=Text1.TextArr(i)Space(5) temp=temp+Arr(i) Nexti Printtemp EndSub PrivateSubvbRead_Click() ReadData EndSub PrivateSubvbSave_Click() WriteDataout45.txt,temp EndSub 5.按要求保存文件即完成本题。 2．三、综合应用题 在考生的文件夹下有一个工程文件sj5.vbp，相应的窗体文件为sj5.frm。在窗体Form1上有两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为文件写入和文件读出，如下图所示。其中文件写入命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文件out57.txt中；而文件读出命令按钮事件过程用来读出文件out57.txt中的每个记录，并在窗体上显示出来。通讯录中的每个记录由3个字段组成，结构如下： 姓名（Name）电话（Tel）　　邮政编码（Pos）　　 Abcd　　　　　(010100065 　┇　　　　　　　　┇　　　　　┇ 各字段的类型和长度为： 姓名（Name）：字符串　　　　　15 电话（Tel）：　字符串　　　　　15 邮政编码（Pos）长整型（Long）程序运行后，如果单击文件写入命令按钮，则可以随机存取方式打开文件out57.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答Y（或y）则输入新记录，回答N （或n）则停止输入；如果单击文件读出命令按钮，则可以随机存取方式打开文件out57.txt，读出文件中的全部记录，并在窗体上显示出来。该程序不完整，请把它补充完整。要求： 1.去掉程序中的注释符，把程序中的问号？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。 2.文件out57.txt中已有3个记录，请运行程序，单击文件写入命令按钮，向文件out57.txt中添加以下2个记录（全部采用西文方式），如下图所示。　 　Abcd　　　　(010　　100065 　Efgh　　　(010　　100044 3.运行程序，单击文件读出命令按钮，在窗体上显示全部记录。 4.用原来的文件名保存工程文件和窗体文件。 图67-5 1.打开题目所给工程文件； 2.将注释语句改为： Rec Num=RecNum+1 Put#1,RecNum,Pers Loop While UCase(asp)=Y Rec Num=LOF(1)/Len(Pers) Get#1,i,Pers 3.按要求保存文件即完成本题。 3．三、 综合应用题 在名为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分