1、国家二级 VB机试（上机操作）模拟试卷 174及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl的命令按钮数组，含三个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如 3-63所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一
2、个名称为 Shal的形状控件，然后建立一个菜单，标题为 “形状 ”，名称为 shape0，该菜单有两个子菜单，其标题分别为 “正方形 ”和 “圆形 ”，其名称分别为 shape1和shape2，如图 2 64所示，然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状控件显示为正方形；如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为
3、 sit3 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “添加 ”；有一个文奉框，名称为 Text1，初始内容为窄白；有一个列表框，名称为 List1。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击“添加 ”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 2-195所示。该程序不完整，请补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp，其中
4、的窗体中有一个组合框和一个命令按钮 (如图 2 196所示 )。程序的功能是在运行时，如果在组合框中输入一个项日并单击 “添加 ”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示 “已有此项 ”，然后清除输入的内容。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分 ，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 三、综合应用题 3 数列 1， 1， 3， 5， 9， 15， 25， 41， ，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5 v
5、bp。窗体中已经给出了所有控件，如图 2 106所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值。如果单击“存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 174答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EX
6、E”工程，如表 3 36在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体Form1中画一个名为 Shal的形状控件。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 37所示，设置建立菜 单项。步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： Private Sub Shapel C1 ick() Me Shal Shape=1 End Sub Private Sub Shape2一 Click() Forml Shal=3
7、 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit3 Vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S1=Textl Text Do While Mid(S1， 11， 1)”And 11 =Len(S1) LiStl AddItem S2 S2=” 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit4 vbp。 步骤 2：打开代码编辑窗口，去掉程序
8、中的注释符 “”，将问号 “?”改为正确的内容。 参考代 码： For i=0 To Cbl ListCOunt一 1 If Cbl LiSt(i)=Cbl Text Then Cbl AddItem Cbl Text 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Dim f As Long a(1)=1 a(2)=1 FOr i=3 To Val(Textl Text) f=a(i一 2)+a(i一 1)+1 a(i)=f Next Text2 Text=f End Sub 步骤 3：运行程序，存文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
