1、国家二级 VB机试（上机操作）模拟试卷 352及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个标签，名称为 L1，标题为“业余爱好”，再画一个名称为 Ch1的复选框数组，含三个复选框，它们的 Index属性分别为 0、1、2，标题依次为“体育”、“音乐“、“美术”，请设置复选框的属性，使其初始状态见表 31。 运行后的窗体如图 383 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上画一个文本框，名称为 Text1
2、；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。运行后的窗体如图 384 所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行后，单击“读入数据”按钮，可把考生文
3、件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到 List1列表框中(如图 3176 所示)。在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上已经画出所有控件，如图 3177 所示。在运行时，如果单击“开始”按钮，则窗体上
4、的汽车图标每 O1 秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。 请完成以下工作： 设置适当控件的适当属性，使得汽车图标每 O1 秒向右移动一次，而初始状态下不移动；请去掉程序中的注释符，把程序中的?改为正确的内容；为两个命令按钮编写适当的事件过程。最后以原文件名存盘。 注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5vbp
5、。窗体中已经给出了所有控件，如图 3192 所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击“计算”按钮，则在 Text2中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40项的值存到考生目录下的 out5txt 文件中。(提示：因数据较大，应使用 Long型变量。) 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 352答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)
6、1.(1)在名称为 Form1的窗体上画一个标签，名称为 L1，标题为“业余爱好”，再画一个名称为 Ch1的复选框数组，含三个复选框，它们的 Index属性分别为 0、1、2，标题依次为“体育”、“音乐“、“美术”，请设置复选框的属性，使其初始状态见表 31。 运行后的窗体如图 383 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上画一个文本框，名称为 Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和Hide，标题分别为“显示”、“隐藏”
7、，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。运行后的窗体如图 384 所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表 451 所示。 步骤 4：
8、按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个文本框，在属性设置窗口中将其 Name属性值设置为 Text1。 步骤 2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 452 中的设置建立菜单项。 )解析：解析：(1)本题只需按要求画出控件数组，并设置其 Value属性。 (2)本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的 Visible属性变化。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行后，单击“读入数据”按钮，可把考生
9、文件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到 List1列表框中(如图 3176 所示)。在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上已经画出所有控件，如图 3177 所示。在运行时，如果单击“开始”按钮，则窗体
10、上的汽车图标每 O1 秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。 请完成以下工作： 设置适当控件的适当属性，使得汽车图标每 O1 秒向右移动一次，而初始状态下不移动；请去掉程序中的注释符，把程序中的?改为正确的内容；为两个命令按钮编写适当的事件过程。最后以原文件名存盘。 注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件夹下的工程文件 sjt3vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： st=st & ch c
11、=Mid(st，k，1) Word=“ 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件sjt4vbp，将计时器 Timerl的 Enabled属性设置为 False，Interval 属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容并编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_Click() TimerlEnabled=True End Sub Private Sub C2_Click() TimerlEnabled=False End Sub Private Sub
12、Timerl_Timer() P1Move P1Left+20 End Sub 步骤3：按要求将文件保存至考生文件夹中。)解析：解析：(1)本题在“读入数据”按钮的单击事件中，首先将 in3txt 文件以 Input方式打开，然后利用 Do循环依次读入文件中的每一个数据，在每一次循环中读入文件中的一个数据并连接至变量 st中，循环结束后 st的值就是文件中所有单词连接而成的字符串。 在“插入列表框”按钮的单击事件中，以空格为单词分隔依据找出每个单词，然后将单词插入列表框中，清空变量 word准备继续寻找下一个单词。 (2)计时器只在设计时可见，计时器是否启用由其 Enabled属性设置，值可取
13、 True或 False。启用后由Interval属性设置间隔多长时间触发一次其 Timer事件，Interval 属性的单位为毫秒，缺省值为 0，此时计时器不启用。 Timerl 用于控制汽车行驶，每触发一次 Timerl的 Timer事件，汽车向右移动 20，即P1Move P1Left+20。三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件，如图 3192 所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数
14、40，单击“计算”按钮，则在 Text2中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40项的值存到考生目录下的 out5txt 文件中。(提示：因数据较大，应使用 Long型变量。) 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹下的工程文件 sjl5vbp。 步骤 2：编写“计算”按钮的单击事件过程。参考代码： Private Sub Command1_Click() Dim f As Long a(1)=1：a(2)=1 F
15、or i=3 To Val(Text1Text) f=a(i-2) +a(i-1)+1 a(i)=f Next Text2Text=f End Sub 步骤 3：运行程序，在文本框中输入 40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤4：按要求将文件保存至考生文件夹中。)解析：解析：根据题意，从数列的第三个数开始，每个数是其前两个数之和加 1，数列第 n项的值可表示为：a(i)=a(i-1)+a(i-2)+1。可以利用 For循环语句(循环变量 i的初值为 3，终值为 Text1Text)，从数列的第三个数开始，逐一计算出该数列第 3n 项的值，计算表达式为 a(i)=a(i-1)+a(i-2)+1。
