1、VB机试模拟试卷 72及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个名称为 Option1的单选按钮数组 (Index属性从0开始 )，含 4个单选按钮，其标题分别为 “Iternl”、 “Item2”、 “Item3”和 “Item4”。利用属性窗口设置适当的属性，使 “Item3”选中， “Item4”为灰色，程序运行时的窗体界面如图 171所示。 注意：保存时必须存放在考生文件夹下。窗体文件名为sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体中，画一个组合 框。组合榧的名称为 Comb01，初始内容为空，有 “Ite
2、m1”、 “Item2”和 “Item3”三个可供选择项，还有一个名称为 Textl的文本框，内容为空。编写适当的事件过程，使得程序运行时，选择组合框中的某项在文本框中显示出来。程序中不得使用任何变量。程序运行时的窗体界面如图 172所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2.frm工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有文件 sj3 vbp及其窗体文件 sj3 frm该程序是不完整的。窗 体上有一个名称为 Text1的文本框；两个复选框，名称分别为 Check1和Check2，标题分别为 “Item1”和 “Item2”；一个按
3、钮，标题为 “选择 ”。要求程序运行后，如果 Checkl和 Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中 Checkl，单击按钮，则在文本框中显示 “选中 Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示 “选中 Item2”；如果同时选中 Checkl和Check2单击窗体，则在文本框中显示 “不能全选 ”。程序运行时窗体显示如图 1-3所示。 注意： 请在有 “?”的地方填入正确内容然后删除 “?”及代码前的所有注释符(即 “”号 )，但不能修改其他部分。存盘时：不得改变文件和文件名。 (2)在考生文件夹下有一个工程文件 sj4 vbp，要求程
4、序运行后，如果多次单击列表框 List1中的项，则可同时选择这些项。而如果单击 “导出 ”按钮，则在列表框 List2中输出所有选中的列表项，如图 1-4所示。注意：修改列表框 List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后 的把修改后的程序以原来的文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sj5 vbp及其窗体文件 sj5 frm，该程序是不完整的，请将程序补充完整。在名称为 Forml的窗体上有两个命令按钮，其名称分别为Command1和 Comma
5、nd2，标题分别为 “计算 ”和 “保存 ”；两个单选按钮，名称分别为 Optionl和 Option2，标题分别为 “50 150的素数 ”和 “200 350的素数 ”；一个文本框，名称为 Text 1，程序运行界面如图 85所示。如果选中一个单选按钮并单击 “计算 ”按钮，则 计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击 “保存 ”按钮，则把计算结果存入 out5 txt文件中，该文件必须放在考生文件夹中。 (在考生文件夹中有标准模块 mode bas，其中的 isPrimeNum函数可以判断整数 x是否为素数，如果是素数，则函数返回 True，否则返回Fal
6、se，而 writeData过程可以把结果存人指定的文件，考生可以将该模块文件添加到自己的工程中。 ) 注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的 out5 txt文件中，否则没有成 绩。保存程序时必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名为 sj5 vbp。 VB机试模拟试卷 72答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一组 Option控件 (4个 )添加到窗体上，其名称都为 Optionl， Index属性分别为 0， 1， 2， 3，索引为 2的 Value属性为 T
7、rue，索引为 3的 Enable为 False。单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 ComboBox控件和一个 Text控 件添加到窗体上， ComboBox的名称为 Combol，其 Style为 2， List中添加以下 3项： “Iteml”、 “Item2”和 “Item3”， Text的名称为 Textl， Text属性为空。双击Combo1，进入代码窗口，编写如下代码： Private Sub Combo1_Click() Textl Text=Combo1 List(Combo1 ListIndex) 在 Textl中显示列表
8、框选中的项 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将两个名称分别为 Checkl和 Check2的复选按钮、一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮放入到窗体中，复选按钮的 Caption属性分别为 Iteml和 Item2， Text1的 Text属性为空，命令按钮的Caption褐性为 “选择 ”。双击 Commandl进入代码编写窗口，代码如下： Private Sub Commandl_Click() If Checkl Value =1 Then当选中 Checkl时 If Ch
9、eck2 Value=1 Then选中 Check2 Textl Text =”不能全选 ” 在 Textl中显示不能全选 Else没有选中 Check2 Textl Text”选中 Iteml” 在 Textl中显示选中 ItemlEnd IfElse当没选中 Checkl时 If Check2 Value=1 Then 选中 Check2 Textl Text=选中Item2” 显示选中 Item2ElseTextl.Text=“ 不显示 End IfEnd IfEnd Sub单击 按钮运行程序，并按要求保存。 (2)列表框控件用于显 示可供单一或多个选择的列表项。在程序运行时可通过代码：
10、列表框名 AddItem“项目 ”给列表框添加列表项；MultiSelect属性用于设置是否可在列表项中选择多项，值为 0(缺省设置 )表示不允许选择多项，值为 1表示允许做简单多项选择，值为 2表示允许配合使用 Shift、Ctrl键做多项选择； Selected(Index)属性用于设置或返回指定索引号的列表项选择状态 (索引号从 0开始 )值为 True表示被选中，值为 False表示未被选中；List(Index)属性用于设置或返回指定索引号的列表项的内容； ListCount属性用来返回列表框中当前的列表项条数。根据题意，将列表框 List的 MultiSelect为 1Simple
11、，双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl ListCount-1 遍历 listl列表 If Listl Selected(i)=True Then找到选中项 List2 AddItem Listl List(i) 将其加入到list2列表框中 End If Next i End Sub单击图片 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 素数的判断准则就是看该数是否除了 1及其本身以外别无其他约数，若是则该数就是素数，否则就
12、不是素数。本题判断素数的标准模块 mode bas已经写好了，只要将它添加到工程中即可。在 “工程 ”窗口中单击右键，在弹出的快捷菜单中选择 “添加 “ 添加模块 ”，然后在弹出对话框的 “现存 选项卡中选择“mode bas”，单击 “确定 ”按钮即添加成功。补充后的代码如下： Private Sub Commandl Click() Dim min As Integer Dim max AS Integer Dim i AS Integer If Optionl Value=True Then根据选中的 Option来设置 For循环上下限 min=50 max=150 Else min=
13、200 max=350 End If total=0 For i=min To max If isPrimeNum(i)=True Then 调用 mode bas的 isPrimeNum函数判断素数 total=total+i End If Next i Textl Text=total End Sub Private Sub Command2 Click() writeData(total) 调用 mode bas的 writeData来进行数据保存 End Sub标准模块 mode bas中的代码如下： Function isPrimeNum(num As Integer)As Boolean isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function Function writeData(total As Long) Open“App Path&out5 txt“For Output As#1 Write#1， total Close#1 End Function单击 按钮运行程序，并按要求保存。
