1、国家二级 VB机试（上机操作）模拟试卷 351及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“滚动条属性设置”的窗体上画 1个名称为 VScrolll的垂直滚动条，设置属性，使得滚动块在最上面时，其位置值为 10；滚动块在最下面时，其位置值为 30；窗体刚显示时，滚动块处在中间位置，如图 327 所示。 (1)在名称为 Form1，标题为“滚动条属性设置”的窗体上画 1个名称为 VScrolll的垂直滚动条，设置属性，使得滚动块在最上面时，其位置值为 10；滚动块在最下面时，其位置值为 30；窗体刚显示时，滚
2、动块处在中间位置，如图 327 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上，画 1个名称为 Label1的标签，其标题为“等级考试“，显示为宋体 10号字，且能根据标题内容自动调整标签的大小，并有凹陷效果，如图 3-28所示。再画 1个名称为 Timerl的计时器控件，通过属性窗口设置有关属性，使其不可用，时间间隔为 1秒。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Form1的窗体上画一个名称为 L1的标签，标题为“口令”；画两个文本框，名称分别为Tex
3、t1、Text2，都没有初始内容；再画三个命令按钮，名称分别为 C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”，在开始运行时，向 Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在 Text1中显示所有字符，再单击“隐藏口令”后，Text1 中的字符不变，但显示的都是“?”，单击“复制口令”后，把 Text1中的实际内容复制到 Text2中，如图 385 所示。 要求：在属性窗口中，把窗体的标题改为“口令窗口”。建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。 存盘时，工程文件名为 sjt3vbp，窗体文件名为sjt3frm
4、 (2)在名称为 Form1的窗体上画一个名称为 P1的图片框，并利用属性窗口把考生目录中的图标文件 Openico 放到图片框中；再画一个通用对话框控件，名称为 CD1，利用属性窗口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word 文档”，初始目录为 C盘根目录。再编写适当的事件过程，使得在运行时，单击 P1图片框，可以打开上述对话框。运行后的窗体如图 386所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于
5、2的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 3一 178所示)。要求编写“分解为”按钮事件过程中“考生编写程序开始“和“考生编写程序结束”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，单击“分解为”按钮，将结果显示在标签中
6、否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 351答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“滚动条属性设置”的窗体上画 1个名称为 VScrolll的垂直滚动条，设置属性，使得滚动块在最上面时，其位置值为 10；滚动块在最下面时，其位置值为 30；窗体刚显示时，滚动块处在中间位置，如图 327 所示。 (1)在名称为 Form1，标题为“滚动条属性设置”的窗体上画 1个名称为 VScrolll的垂直滚动条，设置属性，使得滚动块在最上面时，其
7、位置值为 10；滚动块在最下面时，其位置值为 30；窗体刚显示时，滚动块处在中间位置，如图 327 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上，画 1个名称为 Label1的标签，其标题为“等级考试“，显示为宋体 10号字，且能根据标题内容自动调整标签的大小，并有凹陷效果，如图 3-28所示。再画 1个名称为 Timerl的计时器控件，通过属性窗口设置有关属性，使其不可用，时间间隔为 1秒。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，在窗体 Form1
8、中加入一个垂直滚动条。按表 418 设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中加入一个标签和定时器。按表 419 设置其相关属性。 )解析：解析：(1)根据题目要求，在窗体上添加一个垂直滚动条，并设置其属性。滚动条的 Max属性、Min属性限定了滚动条所能表示的最大值和最小值，也是 Value属性值的取值范围，在程序中改变 Value属性的值，滚动条滑块会随之移动到相应位置。 设置滚动块位于滚动条的中间位置，即把 Value属性设置为Min和 Max平均值。 (2)根据题目要求在单击标签框的时候周期性地增大
9、1个字号，需要在标签的 Click事件代码里面使能定时器 Timerl。在定时器的 Timer事件代码里面将标签的 FontSize增加 1。早单击窗体时，停止增大，说明在窗体的 Click事件代码里面禁用定时器 Timerl。二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Form1的窗体上画一个名称为 L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有初始内容；再画三个命令按钮，名称分别为 C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”，在开始运行时，向 Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，
10、在 Text1中显示所有字符，再单击“隐藏口令”后，Text1 中的字符不变，但显示的都是“?”，单击“复制口令”后，把 Text1中的实际内容复制到 Text2中，如图 385 所示。 要求：在属性窗口中，把窗体的标题改为“口令窗口”。建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。 存盘时，工程文件名为 sjt3vbp，窗体文件名为sjt3frm。 (2)在名称为 Form1的窗体上画一个名称为 P1的图片框，并利用属性窗口把考生目录中的图标文件 Openico 放到图片框中；再画一个通用对话框控件，名称为 CD1，利用属性窗口设置相应属性，即打开对话框时：标
11、题为“打开文件”，文件类型为“Word 文档”，初始目录为 C盘根目录。再编写适当的事件过程，使得在运行时，单击 P1图片框，可以打开上述对话框。运行后的窗体如图 386所示。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，如表 453 在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。参考代码： Private Sub C1_Click() Text1PasSWordChar=“ End Sub Private Sub C2_Click() Text1PassWordChar=“?“ End Sub Pri
12、vate Sub C3_Click() C3ParentText2Text=Text1Text End Sub Private Sub Form Load() Text1PassWordChar=“*“ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，如表 454 在窗体中画出控件并设置其相关属性。 )解析：解析：(1)PasswordChar 属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空。该属性既可以在属性窗口设置，也可以在代码中进行设置。 (2)本题需按要求在图片框的
13、单击事件过程中，通过调用通用对话框的 ShowOpen方法实现。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击“分解为”按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如 24可以分解为 5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 3一 178所示)。要求编写“分解为”按钮事件过程中“考生编写程序开始“和“考生编写程序结束”之间的代码，以
14、实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，单击“分解为”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码。 参考代码： Dim i As Integer Dim n As Integer n=Val(Text1Text) If n Mod 2 0 Then MsgBox
15、请输入偶数!“ Exit Sub End If For i=2 To n2 If IsPrime(i) And IsPrime(ni) Then Label1Caption=i Label2Caltion=n-i Exit For End If Next 步骤 2：按F5键运行程序，在文本框中输入 23456，单击“分解为”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：本题程序设计思路：两个整数之和为 n的组合有：1 和 n-1、2 和 n-2i和 n-i，在 For循环中按前一个加数由小到大的顺序，依次通过调用函数 IsPrime来判断每个组合中的两个加数是否均为素数，第一个找到的素数组合中即含有能够分解出的最小素数。由于 1不是素数，故循环变量的初值从 2开始；由于 i和 n-i的组合与 n-i和 i组合在本题中可被视为相同组合，故循环变量的终值设定为 n2 即可。
