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