1、VB机试模拟试卷 192及答案与解析 一、基本操作题（ 30分） 1 在 Form1的窗体上绘制一个名为 Lab1的标签框，设置相关属性，使标签有框架。然后建立一个主菜单，标题为 “操作 ”，名为 vbOp，该菜单有两个菜单项，其标题分别为 “显示 ”和 “隐藏 ”，名称分别为 vbDis和 vbHide。编写适当的事件过程，程序运行后，若单击 “操作 ”菜单中的 “显示 ”命令，则在标签框中显示 VisualBasic；如果单击 “隐藏 ”命令，则隐藏标签框。程序的运行情况如下图所示。注意： 程序中不得使用任何变量；文件必须存放在考生文 件夹中，工程文件名为 execise79.vbp，窗体
2、文件名为 cxecise79.frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个 0 999之间的整数读入到数组 a中。 单击 “计算 ”按钮，则找出这 100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Textl、 Text 2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：所以 153就是一个 水仙花数 ) 在窗体文件中已经给出了全部控件 (如图 494所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数
3、是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，并且必须通过单击窗体右上角的“关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，在名称为。 Forml的窗体上有两个标签与三个文本框，名称分别为 Labell、 Label2， Textl、 Text2、 Text3，其中三个文本框内空，两个标签的标题分别为 “横坐标 ”、 “纵坐标 ”。另设一命令按钮，名称为 Commandl，标题为 “到原点的距离 ”。编写相关程序，要求程
4、序运行时在两个文本框中输入相应的点坐标，单击 “到原点的距离 ”后，可以在 Textl和 Text2中显示该点的坐标，在Text3中显示该点到原点的距离。 注意：请去掉程序中的注释符 “”，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一 个工程文件 execise30.vbp，窗体文件 execise30.frm中的ReadData1和 ReadData2过程可以把 in1.txt和 in2.txt文件中的整数分别读入 Arr1和Arr2数组中；而 WriteData过程可
5、以把计算出的整数值写到考生文件夹指定的文件中 (整数值通过计算求得，文件名为 out.txt)，可直接调用。 请先装入工程文件execise30.vbp，然后完成以下操作：在名为 Form1的窗体上绘制 3个命令按钮，其名称分别为 Cmd1、 Cmd2和 Cmd3，标题分别为 Read、 Calc和 Save，如下图所示。程序运行后，如果 单击 Read按钮，则调用题目所提供的 ReadDate1和ReadDate2过程读入 in301.txt和 in302.txt文件中的各 20个整数，分别放入 Arr1和Arr2两个数组中：如果单击 Cac1按钮，则把两个数组中对应下标的元素相减，其结果放
6、入第 3个数组中 (即：第一个数组的第 n个元素减去第二个数组的第 n个元素，其结果作为第 3个数组的第 n个元素。这里的 n为 1， 2， ， 20)，然后计算第 3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 “Save”按钮，则把所求得的和存入考生文件夹的 out30.txt文件中。运行窗体如图所示。注意： 考生不得修改窗体文件中已经存在的程序，必须把求得的结果用 “Save”按钮存入考生文件夹下的 out30.txt文件中，否则没有成绩。存盘时，工程文件名仍为 execise30.vbp，窗体文件名仍为 execise30.frm。 VB机试模拟试卷 192答案与解析 一
7、、基本操作题（ 30分） 1 【正确答案】 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要是考查变量初值定义、 If判断语句、 For选择语句、Vat()函数、 Fix()函数以及文件操作。按要 求打开代码窗口，在指定位置编写如下代码： Dim i As Integer Dim max As Integer， rain As Integer max=-1 min=1000 For i=1 to 1000 If isnarc(a(i)Then调用 isnarc判断是否为水仙花数 If max=a(i)Then rain=a(i)求水仙花数中的最大值和最小值 End If Next
8、i Textl=max Text2=min 单击按钮运行程序，并按要求保存。 (2)根据题意， Textl、 Text2分别 用于显示输入横坐标和纵坐标的值并显示出来， Text3用于显示该点到原点的距离。由于文本框的 Text属性返回的是字符串，因此要用 Val()函数进行转换。求两点间的距离公式在 VB中的表示格式为： d=Sqr(x2-x1)2+(y2-y1)2)，由于本题原点坐标为 (0，0)，自定义点的坐标为 (a， b)，代入公式即 d=Sqr(a*a十 b*b)。补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim d AS Double a=Val(Textl Text) 横坐标为 Textl输入的值 b=Val(Text2 Text) 纵坐标为Text2输入的值 d=Sqr(a*a+b*b) 到原点的距离， Sqr为求平方根的函数 Text3 Text=d在 Text3中显示距离 End Sub 单击 按钮运行程序并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】
