1、国家二级 VB 机试（上机操作）-试卷 86 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 Commandl 的命令按钮数组，含三个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 300、800。窗体的标题为“按钮窗口”。运行后的窗体如 3-63 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sjtlfr
2、m。 (2)在名称为 Forml 的窗体上画一个名称为 Shal 的形状控件，然后建立一个菜单，标题为“形状”，名称为 shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为 shape1 和 shape2，如图 264 所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00
3、)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sit3frm。在窗体上有一个命令按钮，其名称为 Command1，标题为“添加”；有一个文奉框，名称为 Text1，初始内容为窄白；有一个列表框，名称为 List1。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击“添加”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 2-195 所示。该程序不完整，请补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
4、盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，其中的窗体中有一个组合框和一个命令按钮(如图2196 所示)。程序的功能是在运行时，如果在组合框中输入一个项日并单击“添加”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示“已有此项”，然后清除输入的内容。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，
5、每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件，如图 2106 所示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按钮，则在 Text2 中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40 项的值存到考生目录下的 out5txt 文件中。(提示：因数据较大，应使用 Long 型变量。) 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 86 答案解析(
6、总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 Commandl 的命令按钮数组，含三个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 300、800。窗体的标题为“按钮窗口”。运行后的窗体如 3-63 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上画一个名称为 S
7、hal 的形状控件，然后建立一个菜单，标题为“形状”，名称为 shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为 shape1 和 shape2，如图 264 所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 336 在窗体中用
8、“复制”和“粘贴”画出控件数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，在窗体 Form1 中画一个名为 Shal 的形状控件。 步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 337 所示，设置建立菜单项。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sit3frm。在窗体上有一个命令按钮，其名称为 Command1，标题为“添加”；有一个文奉框，名称为 Text1，初始内容为窄白；有一个列表框，名称为 List1
9、。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击“添加”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 2-195 所示。该程序不完整，请补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp，其中的窗体中有一个组合框和一个命令按钮(如图2196 所示)。程序的功能是在运行时，如果在组合框中输入一个项日并单击“添加”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中
10、；如果有此项，则弹出提示“已有此项”，然后清除输入的内容。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit3Vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： S1=TextlText Do While Mid(S1，11，1)”And 11 =Len(S1) LiStlAddItem S2 S2=” 步骤3：按
11、要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit4vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： For i=0 To CblListCOunt 一 1 If CblLiSt(i)=CblText Then CblAddItem CblText)解析：三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件，如图 2106 所
12、示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按钮，则在 Text2 中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40 项的值存到考生目录下的 out5txt 文件中。(提示：因数据较大，应使用 Long 型变量。) 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit5vbp。 步骤 2：编写“计算”按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Dim f As Long a(1)=1 a(2)=1 FOr i=3 To Val(TextlText) f=a(i 一 2)+a(i 一 1)+1 a(i)=f Next Text2Text=f End Sub 步骤 3：运行程序，存文本框中输入 40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
