1、VB机试模拟试卷 147及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，其名称为 Textl，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 在文本框中可以显示多行文本； 在文本框中显示垂直滚动条； 文本框中显示的初始信息为 “程序设计 ”： 文本框中显示的字体为三号规则黑体； 窗体的标题为 “设置文本框属性 ”，完成设置后的窗体如图 1-147所示。要求：不编写任何代码。注意：存盘时必须存放 在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 s
2、jtl frm。 (2)在名称为Forml的窗体上画两个命令按钮，如图 1-148(a)所示，其名称分别为 Cmdl和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmdl，则可使该按钮移到窗体的左上角 (只允许通过修改属性的方式实现 )；如果单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图1-148(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文 件名为 sjt2 frm。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 s
3、jt3 frm。其功能是产生 30个 0 1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮 (名称为 Commandl，标题为 “输出最小值 ”)，即可求出其最小值，并在窗体上显示出来 (如图 1-132所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后 把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0
4、1000范围内不能被 7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在 FunctionFun()和 EndFunction之间填入编写的若干语句。最后把修改后的文件按原文件 名存盘。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件 (如图 1-113所示 )。请编写适当的事件过程完成以下功能：单击 “读数 ”按钮，则把考生目录下的 in5 txt文件中的一个整数放入 Textl：单击
5、“计算 ”按钮，则计算出大于该数的第一个素数，并显示在 Text2中；单击 “存盘 ”按钮，则把找到的素数存到考生目录下的 out5 txt文件中。注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名 存盘。VB机试模拟试卷 147答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中画一个文本框，并设置它的相关属性，其属性及值如表 2-82所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建
6、一个 “标准 EXE”工程，如表 2-83在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码： PriVate Sub Cmdl_Click() Cmdl Left=0 Cmdl Top=0 End Sub PriVate Sub Cmd2_Click() Cmd2 Width=Cmd2 Width+Cmd2 Width Cmd2 Height=Cmd2 HeJ ght+Cmd2 Height End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 文本框控件的 MultiLine属性设置文本框是否能以多行显示
7、文本，值为 True表示允许，值为 Falso表示不允许； ScrollBars属性设置文本框是否有水平或垂直 滚动条，它的值为： 0表示没有滚动条 (默认值 )， 1表示只有水平滚动条， 2表示只有垂直滚动条， 3表示有水平和垂直滚动条，设置 0以外的值时 MultiLine属性值必须为 True： Font属性集用来控制文本框中的字体字形等。 本题只需按要求画出控件并设置其相应属性即可。 第 2小题 控件的 Height和 Width属性用于设置控件在屏幕上的大小 (即高和宽 )， Top和Left属性用于设置控件在窗体中的位置。 要在单击 Cmdl按钮时使按钮移到窗体左上角，只需在其单击
8、事件中令 Top属性和 Left属性均为 0；要在单击 Cmd2按钮时使按钮在高、宽方向上各增加一倍，只需在其单击事件中编写设置按钮的 Height和 Width属性值为原来两倍的语句。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码； arrN(i)=Int(Rnd*1000) Min = arrN(1) If arrN(1)0 Then Y=Y+1 End If Next i Fun=Y 步骤 2：按要求将文件保存至考生 文件
9、夹中。 【试题解析】 第 1小题 生成 0 1000范围内随机整数的表达式为： Int(Rnd*1000)。为求出 30个随机整数的最小值，可首先预设数组的第一个元素为最小值 Min，然后通过 For循环语句逐一将数组中的各元素与 Min比较以得到新的最小值。 第 2小题 判断整数 A能被整数 B整除的条件表达式为： A Mod B=0。本题原程序要求编写的 Fun过程需要通过 For循环逐一判断循环变量是否能被 7整除。每找到一个不能被 7整除的数，则将计数器增加 1。 三、综合应用题（ 30分） 3 【正 确答案】 【操作步骤】 步骤 l：打开本题对应工程文件 sjt5 vbp。 步骤 2
10、：双击窗体 Forml上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码： 参考代码： PriVate Sub Cormmand2_Click() a =CInt(Textl Text) Do a =a +l Loop Until isprime(a ) Text2 Text=a End Sub 步骤 3：编写判断素数的函数过 程 isprime，参考代码为： Functioff isprime(a As Ingeger) Dim flag As B00lean k =2 flag=True ffhile k 键运 行程序，先单击 “读数 ”按钮，接着单击 “计算
11、”按钮，最后单击 “存盘 ”按钮。 步骤 5：按要求将文件保存至考生文件夹中。 【试题解析】 过程是构成程序的一个模块，常用来完成一个相对独立的功能。 Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。 Function函数的参数有两种传递方式：按值传递 (Byval)和按址传递 (Byref)，默认为按址传递。调用 Function函数常放在赋值符右端。 For循环通常用于知道次数的循环，在不知 道明确的循环次数的情况下，我们可以用条件来控制循环， While循环和 Do循环就是用条件来控制的循环。 素数的判断准则就是看该数除了 l和其本身外是否别无其他约数。 程序设计思路：要找出大于给定数的最小素数，可以首先将给定数加 1赋值给变量 a，通过调用函数 isprime(a)，以其返回值不是素数作为 Do循环语句的循环条件，在循环体中加入语句： a=a+l实现每执行循环体一次变量 a的值加 1，当循环结束时 a的值即为所求。
