1、VB机试模拟试卷 157及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个名称分别为 Frarnel、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Framel中画两个单选按钮，名称分别为 Optionl、 Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在 Frame2中画一个名称为 Checkl的复选框，标题为 “下划线 ”。运行后的窗体如图 1-34所示。注意：存盘时必 须存放在考生文件夹下，工程文件名为 sj
2、tl vbp，窗体文件名为sjtl frm。 (2)在名称为 Forml的窗体上从上到下画两个文本框，名称分别为 Textl、 Text2；再画一个命令按钮，名称为 Commandl，标题为 “选中字符数是 ”。程序运行时，在 Textl中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则在 Text2中显示选中的字符个数 (如图 1-35所示 )。请编写按钮的 Click事件过程。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sil2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件
3、夹下有一个工程文件 sjt3 vbp，窗体上有两个列表框，名称分别为 List1、 List2，在 List2中已经预设了内容；还有两个命令按钮，名称分别为C1、 C2，标题分别为 “添加 ”、 “清除 ”，如图 1-78所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击 “添加 ”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击 “清除 ”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程 序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
4、 (2)在考生文件夹下有一个工程文件 sjt4 vbp，请在 Forml窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为 “10!”、 “11!”、 “12!”，Index属性分别为 0、 1、 2：再画一个名称为 Cl的命令按钮，标题为 “计算 ”；画一个名称为 Textl的文本框，如图 1-79所示。程序的功能是在选定一个单选按钮并单击 “计算 ”按钮后，可以 计算出相应的阶乘值，在 Textl中显示该阶乘值。请画出上述控件并编写程序。注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。
5、最后按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个文本框，名称分别为Textl、 Text2：还有三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “输入 ”、 “计算 ”、 “存盘 ”(如图 1-210所示 )。并有一个函数过程 isprime(a)可 以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 “输入 ”按钮，就把文件in5 txt中的整数放入 Textl中；单击 “计算 ”按钮，则找出大于 Textl中的整数的第
6、一个素数，并显示在 Text2中；单击 “存盘 ”按钮，则把 Text2中的计算结果存入out5 txt文件中。注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击 “存盘 ”按钮存入 out5 txt文件中。 VB机试模拟试卷 157答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-18在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-19所列在窗体 FormI中画出控件并设置它
7、们的属性。步骤 2；打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Commandl_Click() Text2 Text=Form Textl Sel Length End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 复选框和单选按钮的 Alignment属性用于设置复选框中标题的对齐方式， 0-Left Justify为控件居左标题居右 (默认 )， 1-Right Justify为控件居右标题居左。 本题只需按题目在窗体中画出控件，并设置相关属性即可。 第 2小题 要在 Text2中显示 Textl中选中的字符个数，需编写语句将
8、 Textl的 SelLength属性返回值赋值给 Text2。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题对应工程文件sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： While (k 步骤 2：在代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub C1_Click() Dim k As Integer k=0 While Not Opl(k) Value And k键运行程序，先选中一个选项，接着单击 “计算 ”按钮，然后单击窗体右上角的关
9、闭按钮结束程序。 【试题解析】 第 1小题 列表框的 Text属性用于返回列表框中选择的项目的内容，返回值总与列表框的List(Ifistlndex)属性的。返回值相同。 实现本题两个列表框之间的移出和移回功能，其实就是利用列表框的 Addltem方法和 Removeltem方法添加或删除列表框中的项目。由题中源代码可知，当单击“添加 ”按钮时，利用 While循环语句逐一取出列表框 List2中的各项，并用 If语句判断是否有项目被选中，如果有被选中的项，就将其作为一个项目添加到列表框Listl中，同时将此项从列表框 List2中删除。列表框的 Listlndex属性可返回当前选择的项目的索
10、引号，因此删除选中项目的语句为； List2 Removeltem List2 Listlndex。 而循环的条件应是： kList2 ListCount，判断列表框 List2中某项是否被选中的条件是： List2 Selected(k)=True。 第 2小题 设计本题程序的思路：利用 For循环语句 (循环变量 i的初值为 O，终值为 2)逐一判断单选按钮数组的元素是否选中， If语句的条件表达式为：opt(k) ValueAndk3， 若选中，则求该单选按钮对应整数的阶乘。计算某整数 n的阶乘，可逋过 For循环语句来实现：令循环变量 k的初值为 l，终值为 n，步长为 l。将 k的各
11、次取值通过表达式 t=t*k累积， t的初始值应设置为 1，才能保证计算的正确性。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sit5 vbp，在代码编辑窗口，分别编写命令按钮的单击事件。 参考代码： Private Sub Cl_Click() Open“in5 txt“For Input As#1 Input#1， a Close#1 Textl Text=a End Sub Private Sub C2_Click() a =Text1 Text DO a =a +1 Loop Until isprime(a ) Text2 Te
12、xt=a End S11b Private Sub C3_Click() Open“out5 txt“For Output As#1 Print#1， Text2 Text Close#1 End Sub 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 程序设计思路：在 “输入 ”按钮的单击事件过程中，用 Open语句以Input方式打开数据文件 in5 txt，并用 Input()函数读出所有字符后显示在文本框中；在 “计算 ”按钮的单击事件过程中，调用过程 isprime来求解大于 Textl中整数的第一个素数。 在 “存盘 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件out5 txt，并通 过 For循环用 Print#方法逐一将数组中的元素存入该文件。
