1、国家二级 VB机试（上机操作）模拟试卷 83及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “框架 ”的窗体上画一个名称为 Framel，且没有标题的框架。框架内含有两个单选按钮，名称分别为 Opt1和 Opt2、标题分别为 “字体 ”、 “大小 ”，如图 3163所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sitl frm。 (2)考生文件夹下的工程文件sjt2 vbp中有一个由直线 Linel、 L,ine2和 L,ine3组成的三角形，直线
2、 Linel、Line2和 Line3的坐标值见表 34：要求画一条直线 Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是 Cmdl、 Cmd2，标题分别为 “显示高 ”、 “隐藏高 ”，如图3164所示。请编写适当的事件过程，使得在运行时，单击 “显示高 ”按钮，则显示三角形的高；单击 “隐藏高 ”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 1)单击 “读数据 ”按钮，则把考
3、生文件夹下 in3 dat文件中的 100个按升序排列的整数读入到数组 a中，同时显示在 Text1文本框中； 2)单击 “查找 ”按钮，则提示用户输入查找的数，并利用二分法在数组 a中查找该数，若查找成功，则在 Text2文本框中显示该数在数组中的位置，否则显示查找失败。提示：二分法查找的思路是，将查找值与有序数组的中间项元素进行比较，若相同则查找结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在 那一半的数组中重复上述查找过程。要求：请将窗体的标题设置为 “二分法查找 ”，并将 “查找 ”命令按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。如图
4、3 109所示的是运行时输入数值 68的查找结果。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp。运行程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图 3 110所示。给出的程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确 的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生的文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。在窗体上有两个命令按钮，其名称分别为 Commandl和
5、 Command2，标题分别为 “写文件 ”和 “读文件 ”，如图 3 77(a)所示。其中 “写文件 “命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件 t5 txt中；而 “读文件 ”命令按钮事件过程用来读出文件 t5 txt中的每个记录，并在窗体上显示出来。通信录中的每 个记录由三个字段组成，结构如下： 姓名 (Name) 电 话 (Tel) 邮政编码 (Pos) LiuMingliang (010)6278 1 234 100082 各字段的类型和长度为： 姓名 (Name)：字符串 15 电话(Tel)：字符串 15 邮政编码 (Pos)：长整型 (Long)程序运行后，
6、如果单击 “写文件 ”命令按钮，则可以随机存取方式打开文件 t5 txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答 “Y”(或 “y”)则输入新记录，回答 “N”(或 “n”)则停止输入；如果单击 “读文件 “命令按钮，则可以随机存取方式打开文件 t5 txt，读出文件中的全部记录，并在窗体上显示出来，如图 3-77(b)所示。该程序不完整，请把它补充完整。要求如下： 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。 文件t5 txt中已有三个记录，如图 3 77(b)所示，请运行程序，单击 “写文件 ”命令按钮
7、，向文件 t5 txt中添加以下两个记录 (全部采用西文方式 )： LiDaqing (027)873487654 30065ChenQingshan(022)2687432l 300120 运行程后，单击 “读文件 ”命令按钮 ，在窗体上显示全部记录 (共 5个 )。 用原来的文件名保存工程文件和窗体文件。 国家二级 VB机试（上机操作）模拟试卷 83答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sj
8、t2 vbp，在窗体中按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Prirate Sub Cmdl C1ick() Line4 Visible=True End Sub Prirate Sub Cmd2 Ctick() Line4 ViSible=FalSe End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题工程文件 sit3 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： m=(10w+high)
9、2 high=m一 1 low=m+1 Loop Until lowhigh rf flag=1 Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小颢 【操作步骤】 步骤 1：打开本题工程文件 sit4 vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Dim Flag As B001 earl Private Sub Form MouseNove(But： ton AS Integer， Shift As Integer， X As Single， Y As Single) Circle (X， Y)， 300 Flag=False 步
10、骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： RecNum=RecNum+1 Put#1， RecNum， Pers Loop While UCase(asp) “N” RecNum=LOF(1) Len(Pers) Get#1， i， Pers 步骤 2：按 键运行程序，先单击 “写文件 ”按钮，然后在弹出的输入框中依次按照题目要求输入两条记录，再单击 “读文件 ”按钮在窗体上显示结果。 步骤 3：按要求将文件保存至考生文件夹中。
