1、国家二级 VB 机试（上机操作）-试卷 21 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml，标题为“考试”的窗体上画一个名称为 Combol、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图 3 一 188 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sitlfrm。 (2)在名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1、Te
2、xt2，初始内容都为空，显示为三号字，且 Text1 的初始状态为不可用；再画一个名称为 Command1、标题为“开始”的命令按钮，如图 3189 所示。要求：编写适当的事件过程，使得单击“开始”按钮后，Text1 文本框变为可用状态，且在 Text1 文本框中输入字母串时，Text2 文本框中用大写字母形式显示 Text1 文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为 sit2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 s
3、it3vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的 5 个数添加到列表框 Ifistl 中，如图 3-23 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sic4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 05 秒移动一次。当图片顶端移动到距窗体的下边界的距离
4、少于 200 时，再回到窗体顶部，重新向下移动，如图 324 所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1 中输入一个大于 2 的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24 可以分解为 5 和 19，也可以分解为 11 和 13，要求取含有最小素数的组合，如图 3124 所示)。（分数：
5、2.00）_国家二级 VB 机试（上机操作）-试卷 21 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml，标题为“考试”的窗体上画一个名称为 Combol、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图 3 一 188 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sitlfrm。 (2)在名称为 Forml 的窗体上画两个文本框，其名称分别为 Tex
6、t1、Text2，初始内容都为空，显示为三号字，且 Text1 的初始状态为不可用；再画一个名称为 Command1、标题为“开始”的命令按钮，如图 3189 所示。要求：编写适当的事件过程，使得单击“开始”按钮后，Text1 文本框变为可用状态，且在 Text1 文本框中输入字母串时，Text2 文本框中用大写字母形式显示 Text1 文本框中的内容。程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为 sit2frm。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准
7、EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写 Textl 的 Change 事件过程和命令按钮的单击事件过程。 参考代码： Private Sub Commandl Click() TextlEnabled=True End Sub PriVate Sub Textl Change() Text2Text=UCase(Text1Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数
8、：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的 5 个数添加到列表框 Ifistl 中，如图 3-23 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sic4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之
9、移动，每 05 秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200 时，再回到窗体顶部，重新向下移动，如图 324 所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： IfOptionlItem(i)=True Then y=Val(Optionl(i)Caption) Do While i=5 ListlAddItem x 步骤 2：按要求将文件保存至考生文件夹中。 第 2
10、小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt4vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符”，将问号“?”改为正确的内容。参考代码： TimerlInterval=500 VScrolllValue=PicturelTop PicturelToD=0 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1 中输入一个大于 2 的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一
11、个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24 可以分解为 5 和 19，也可以分解为 11 和 13，要求取含有最小素数的组合，如图 3124 所示)。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 05vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码! Dim i As Ititeger Dim n As Integer n=Val(Text1Text) If n Mod 20 Then NsgBox“请输入偶数!” Exit Sub End If For i=2 To n2 If TSPrime(i)And Isprime(ni)Then Labe11CaDtiOil=i Labe12CalotiOFt=n 一 i Exit For End If Next 步骤 2：按F5键运行程序，在文本框中输入 23456，单击“分解为”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
