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