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