[计算机类试卷]VB机试模拟试卷140及答案与解析.doc

1、VB机试模拟试卷 140及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个标签，其名称为 Labell，标题为 “等级考试 ”， BorderStyle属性为 1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为 Commandl，编写适当的事件过程。程序运行后，其界面如图 1-8l(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图1-81(b)所示。注意：存盘 时必须存放在考生文件夹下，工程文件名为 sjtl vbp。窗体

2、文件名为 sjtl frm。 (2)在名称为FormI的窗体上画一个文本框，其名称为 Textl，初始内容为空白；然后再画三个单选按钮，其名称分别为 OPl、 Op2和 OP3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮 Opl，则在文本框中显示 “颐和园 ”；如果选择单选按钮 Op2，则在文本框中显示 “兵马俑 ”；如果选择单选按钮Op3，则在文本框中显示 “西湖 ”。程序的运行情况如图 1-82所示。要求程序中不得使用变量，事件过程中只能 写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、

3、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击 “统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Textl、 Text2中。在给出的窗体文件中有了全部控件 (如图 1-4l所示 )，但程序不完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能。注意：考生不得修改窗

4、体文件已存在的控件和程序，最后将程序原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个标题分别为 “添加 ”和 “退出 ”的命令按钮，一个内容为空的列表框 Listl。请画一个标签，其名称为 Labell，标题为 “请输入编号 ”；再画一个名称为 Textl，初始值为空的文本框，如图 1-42所示。程序功能如下； 系统启动时，自动 向列表框添加一个编号信息 “a0001”。 系统运行时，在文本框。 Textl中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框 Listl已有项目之后：否则，将弹出 “不允许

5、重复输入，请重新输入 l”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 考生文件夹下的工程文件 sjt5 vbp中的窗体如图 1-215所示。考生文件夹下的随机文件 in5 dat中有 20条记录，每条记录含姓名和三个分数 (均为 100以内的正整数 )。在程序中已经定义了类型 Recordtype，此类型变量可以存放一条记录。要求如下： 请为 “计算最大最小值

6、”按钮编写 Click事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval， minval中 (这两个变量已经给出，不得修改 )。 运行程序，单击 “计算最大最小值 ”按钮后再单击 “存盘 ”按钮。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击 “计算最大最小值 ”、 “存盘 ”按钮，否则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 140答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1；新建一个 “标准 EXE”工程，如表2-42在窗体中画出控件并设置

7、其相关属性。步骤 2：在代码编辑窗口编写以下事件过程。 参考代码： PriVate Sub Command1_Click() Commandl Caption=Labell Label1 Visible=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXB”工程，在窗体 Forml上画一个文本框和三个单选按钮，其属性及值如表 2-43所示。步骤 2：在代码编辑窗口。编写三个单选按钮的单击事件过程。 参考代码： Private Sub Op1_Click() Textl=“颐和因 “ End Sub Private

8、Sub Op2_Click() Text1 Text=“兵马俑 “ End Sub Private Sub Op3_Click() Textl Text=“西湖 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 标签控件 (Label)常用于显示用户不能直接改变的信息， Caption属性用来设置其显示的文本。标签的 BorderStyle属性用于设置标签的边框样式，值为 0表示无边框，值为 1表示有固定单边框。 AutoSize属性用来确定是否根据 Caption属性指定的标题自动调整标签的大小，可以设置为 True或 False。 本题需要在窗体上画

9、出控件并相应设置其属性，然后编写命令按钮的单击事件，使得标签的 Visible属性为 False并且改变命令按钮的 Caption属性。 第 2小题 本题只需在三个单选按钮的 Click事件过程中，分别为文本框的 Text属性赋予相应内容即可。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit3 vbp，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If x=m2 Then is_square=flag If a(k)max Then Textl Text=max Text2 Text=num 步骤

10、 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 2-22在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Listl AddItem“a0001“ For i=0 To Listl ListCount-1 LiStl ListIndex=i Listl AddItem Textl Text End 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 Sqr(N)求平方根函数，用于返回 N的算术平方根。 is squ

11、are()函数用于判断参数 x是否为完全平方数，方法是从 1到 x的平方根进行循环，依次判断 x是否能等于循环变量的平方，若等于则退出循环，返回True，若循环结束后都没有等于某个循环变量的平方则返回 False。 求完全平方数的最大值，只需要先预设最大值为 0，然后在循环中每次找到一个完全平方数就将其与最大值比 较，若大于预设最大值则令其为新的最大值，同时令计数器加 1，循环结束后可得最大值与个数。 第 2小题 若要在系统启动时，自动向列表框添加一个编号信息 “a0001”，需要在窗体的Load事件中调用列表框的 Addltem方法向列表框中添加列表项。 在 “添加 ”按钮的单击事件中，需要

12、判断输入的值是否在列表框中已存在，为了实现这个功能，需要遍历整个列表框，其循环条件为 Fori=0 To Listl ListCount-1；在循环中首先令 Listlndex属性值为 i，这样第 i个列表项的内容就是列表框的Text属性值，可以与文本框中的内容进行比较，若已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的 AddItem方法将文本框的内容加入列表框。 在 “退出 ”按钮的单击事件过程中，使用 End语句结束整个程序的运行。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5 vbp，在代码编

13、辑窗口的适当位置编写代码。 参考代码： Private Sub Commandl_Click() Dim S As Recordtype Open“in5 dat“For Random As#1 Len= Len(S) maxval=0 minval=300 For k=1 To 20 Get#1， S sumval=s a1+s a2+s a3 If sumvalmaxval Then maxval= sumval If sumvalminval Then minval= sumval Next k Close #1 End Sub 步骤 2：运行程序，单击 “计算最大最小值 ”命令按钮，然

14、后单击 “存盘 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 Type语句用于在模块级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个或一个以上的成员，每个成员可以被定义为不同的数据类型。声明白定义类型变量后，可通过 “变量名成员名 ”来访问自定义变量中的元素。 用 Open语句打开随机文件，其语法格式为： Open FileName for Random as#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数，可用 Len(记录变量名 )函数获取： Get#语句用于从文件中读出某记录号的记录，格式为： Get撑 FileNum

15、ber,RecordNuber， Var； Put#语句用于把记录按指定记录号写入文件，格式为： Put#FileNumber,RccordNuber， Var。 本题原程序设计思路：在 “计算最大最小值 ”命令按钮的单击事件过程中，先用Open语句打开考生文件夹下的随机文件 in5 txt；然后预定义最大值为 O，最小值为 3000门课程总成绩不可能超过 300)，在 For循环中，依次使用 Get语句取出记录内容到自定义数据类型变量 s，然后将 s的各元素累加起来，并将总分 (s中各元素的累加和 )和预定义的最大值以及最小值进行比较，如果总分大于最大值则将其存入最大值，如果总分小于最小值则将其存入最小值，然后进行下一次循环判断下一条记录。