1、国家二级 VB 机试（上机操作）-试卷 50 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)住名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： Text2 可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1 中输入的字符都显示为“*”。 运行后的窗体如图 2148 所示。注意：存
2、盘时必须存放在考生文件夹下，上程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Forml 的窗体卜画一个图像框，名称为 Imagel，其高、宽分别为 1 900、1700，通过属性窗口把考生文件火下的图像文件 piclbmp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 2-149 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中
3、的正整数且能够被所选除数整除的 5 个数添加到列表框 Listl 中，如图 2-23 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 05秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200 时，再回到窗体顶部，重新向下移动，如图 224 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中
4、的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sit5vbp。窗体中已经给出了所有控件(如图 282 所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在 Text2 中：单击“存盘”按钮，则把找剑的素数存到考生目录下的 out5txt 文件中。 注意：在结束程序运行之前，必须单击“存盘”按钮
5、，把结果存入 out5txt 义件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 50 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)住名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： Text2 可以显示多行文本，且有垂直和水平两个滚
6、动条； 运行时在 Text1 中输入的字符都显示为“*”。 运行后的窗体如图 2148 所示。注意：存盘时必须存放在考生文件夹下，上程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Forml 的窗体卜画一个图像框，名称为 Imagel，其高、宽分别为 1 900、1700，通过属性窗口把考生文件火下的图像文件 piclbmp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 2-149 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工柙，在窗体 Form1 中画
7、两个文本框，并分别设置它们的相关属性，其属性及值如表 379 所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 380 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的 5 个数添加到列表框 Listl 中，如图 2-23 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求
8、：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 05秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200 时，再回到窗体顶部，重新向下移动，如图 224 所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00
9、）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，上掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If OptionlItem(i)=True Then Y=Val(Optionl(i)Caption) Do While i=5 List1AddItem x 步骤2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件sjt4vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为止确的内容。 参考代码： Timer1Interval
10、=500 VScroll1Value=PicturelTop PicturelTop=0 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sit5vbp。窗体中已经给出了所有控件(如图 282 所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在 Text2 中：单击“存盘”按钮，则把找剑的素数存到考生目录下的 out5txt 文件中。 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果
11、存入 out5txt 义件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开木题对应工程文件 sjt5vbp。 步骤 2：双击窗体Form1 上的“计算”按钮，打开代码编辑窗口，在其 Click 事件过程中输入如下代码： 参考代码： Private Sub Coramand2 C1 iCk() a=CInt(TextlText) Do a=a+1 Loop Until isprime(a) Text2Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k=2 flag=True While 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：按要求将文件保存至考生文件夹中。)解析：
