1、VB 机试-试卷 59 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上画一个名称为 Option1 的单选按钮数组(Index 属性从 0 开始)，含 4 个单选按钮，其标题分别为“Iternl”、“Item2”、“Item3”和“Item4”。利用属性窗口设置适当的属性，使“Item3”选中，“Item4”为灰色，程序运行时的窗体界面如图 171 所示。 注意：保存时必须存放在考生文件夹下。窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 F
2、orml 的窗体中，画一个组合框。组合榧的名称为 Comb01，初始内容为空，有“Item1”、“Item2”和“Item3”三个可供选择项，还有一个名称为 Textl 的文本框，内容为空。编写适当的事件过程，使得程序运行时，选择组合框中的某项在文本框中显示出来。程序中不得使用任何变量。程序运行时的窗体界面如图 172 所示。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有文件 sj3vbp 及其窗体文件 sj3frm该程序是不完整的。窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为 Check1
3、和 Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果 Checkl 和 Check2 都不选，单击窗体后，则在文本框中什么都不显示；如果只选中 Checkl，单击按钮，则在文本框中显示“选中 Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中 Item2”；如果同时选中 Checkl 和 Check2单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图 1-3 所示。 注意：请在有“?”的地方填入正确内容然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时：不得改变文件和文件名。(2)
4、在考生文件夹下有一个工程文件 sj4vbp，要求程序运行后，如果多次单击列表框List1 中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框 List2 中输出所有选中的列表项，如图 1-4 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的，请将程序补充完整。在名称为 Forml 的窗体上有两个命令按钮，其名称分别为 Command1 和 Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为 Optionl 和 O
5、ption2，标题分别为“50150 的素数”和“200350 的素数”；一个文本框，名称为 Text 1，程序运行界面如图 85 所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存入 out5txt 文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块 modebas，其中的 isPrimeNum 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False，而 writeData 过程可以把结果存人指定的文件，考生可以将该模块文件添加到自己的工程中。) （
6、分数：2.00）_VB 机试-试卷 59 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上画一个名称为 Option1 的单选按钮数组(Index 属性从 0 开始)，含 4 个单选按钮，其标题分别为“Iternl”、“Item2”、“Item3”和“Item4”。利用属性窗口设置适当的属性，使“Item3”选中，“Item4”为灰色，程序运行时的窗体界面如图 171 所示。 注意：保存时必须存放在考生文件夹下。窗体文件名为 sjlfrm，工程文件名为 sjlvbp
7、。 (2)在名称为 Forml 的窗体中，画一个组合框。组合榧的名称为 Comb01，初始内容为空，有“Item1”、“Item2”和“Item3”三个可供选择项，还有一个名称为 Textl 的文本框，内容为空。编写适当的事件过程，使得程序运行时，选择组合框中的某项在文本框中显示出来。程序中不得使用任何变量。程序运行时的窗体界面如图 172 所示。（分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一组 Option 控件(4 个)添加到窗体上，其名称都为 Optionl，Index 属性分别为 0，1，2，3，索引为 2 的 Value 属性为 True，索
8、引为 3 的Enable 为 False。单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个 ComboBox 控件和一个 Text 控件添加到窗体上，ComboBox 的名称为 Combol，其 Style 为 2，List 中添加以下 3 项：“Iteml”、“Item2”和“Item3”，Text 的名称为 Textl，Text 属性为空。双击Combo1，进入代码窗口，编写如下代码： Private Sub Combo1_Click() TextlText=Combo1List(Combo1ListIndex) 在 Textl 中显示列表框选中的项 E
9、nd Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹中有文件 sj3vbp 及其窗体文件 sj3frm该程序是不完整的。窗体上有一个名称为 Text1 的文本框；两个复选框，名称分别为 Check1 和 Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果 Checkl 和 Check2 都不选，单击窗体后，则在文本框中什么都不显示；如果只选中 Checkl，单击按钮，则在文本框中显示“选中 Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示
10、“选中 Item2”；如果同时选中 Checkl 和 Check2单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图 1-3 所示。 注意：请在有“?”的地方填入正确内容然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时：不得改变文件和文件名。(2)在考生文件夹下有一个工程文件 sj4vbp，要求程序运行后，如果多次单击列表框List1 中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框 List2 中输出所有选中的列表项，如图 1-4 所示。 （分数：2.00）_正确答案：(正确答案： (1)根据题意，将两个名称分别为 Checkl 和 Che
11、ck2 的复选按钮、一个名称为Textl 的文本框和一个名称为 Commandl 的命令按钮放入到窗体中，复选按钮的 Caption 属性分别为 Iteml和 Item2，Text1 的 Text 属性为空，命令按钮的 Caption 褐性为“选择”。双击 Commandl 进入代码编写窗口，代码如下： Private Sub Commandl_Click() If Checkl Value =1 Then当选中 Checkl 时 If Check2 Value =1 Then选中 Check2 Textl Text =”不能全选” 在 Textl 中显示不能全选 Else没有选中 Check
12、2 Textl Text ”选中 Iteml” 在 Textl 中显示选中 Iteml End If Else当没选中Checkl 时 If Check2 Value =1 Then 选中 Check2 Textl Text =选中 Item2” 显示选中 Item2 Else Textl. Text =“ 不显示 End If End If End Sub 单击 按钮运行程序，并按要求保存。 (2)列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名AddItem“项目”给列表框添加列表项；MultiSelect 属性用于设置是否可在列表项中选择多项，值为 0(缺省
13、设置)表示不允许选择多项，值为 1 表示允许做简单多项选择，值为 2 表示允许配合使用Shift、Ctrl 键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从 0 开始)值为 True 表示被选中，值为 False 表示未被选中；List(Index)属性用于设置或返回指定索引号的列表项的内容；ListCount 属性用来返回列表框中当前的列表项条数。 根据题意，将列表框 List的 MultiSelect 为 1Simple，双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim
14、i As Integer For i=0 To ListlListCount -1 遍历 listl 列表 If Listl Selected(i) =True Then找到选中项 List2 AddItem ListlList(i) 将其加入到 list2 列表框中 End If Next i End Sub 单击图片 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的，请将程序补充完整。在名称为 Forml 的窗体上有两个命令按钮，其名称分别为 Comman
15、d1 和 Command2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为 Optionl 和 Option2，标题分别为“50150 的素数”和“200350 的素数”；一个文本框，名称为 Text 1，程序运行界面如图 85 所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存入 out5txt 文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块 modebas，其中的 isPrimeNum 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 Fal
16、se，而 writeData 过程可以把结果存人指定的文件，考生可以将该模块文件添加到自己的工程中。) （分数：2.00）_正确答案：(正确答案： 素数的判断准则就是看该数是否除了 1 及其本身以外别无其他约数，若是则该数就是素数，否则就不是素数。本题判断素数的标准模块 modebas 已经写好了，只要将它添加到工程中即可。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加“添加模块”，然后在弹出对话框的“现存选项卡中选择“modebas”，单击“确定”按钮即添加成功。补充后的代码如下： Private Sub Commandl Click() Dim min As Integer Dim
17、 max AS Integer Dim i AS Integer If Optionl Value =True Then根据选中的 Option 来设置 For 循环上下限 min=50 max=150 Else min=200 max=350 End If total=0 For i=min To max If isPrimeNum(i)= True Then 调用 modebas 的isPrimeNum 函数判断素数 total=total+i End If Next i TextlText=total End Sub Private Sub Command2 Click() writeD
18、ata(total) 调用 modebas 的 writeData 来进行数据保存 End Sub 标准模块modebas 中的代码如下： 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“AppPath&out5txt“For Output As#1 Write#1，total Close#1 End Function 单击 )解析：
