1、国家二级 VB机试（上机操作）模拟试卷 191及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 lblName和 1blAge，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 txtName和 txtAge， Text属性均为空白 )和一个命令按钮 (名称为 cmdDisplay，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮 ，则在窗体上显示两个文本框中的内容，如图 2
2、32所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件名为 vbsj1 fm。 (2)在名称为 F0nnl的窗体上画一个文本框，名称为 txtlnput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 2-33所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件 名为 vbsi2 vbp，窗体文件名为 vbsj2 frm 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit
3、3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 20个整数读入数组 a中，同时显示在Text1文本框中； 单击 “变换 ”按钮，则数组 a中元素的位置自动对调 (即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调 ) ，并将位置调整后的数组显示在文本框 Text2中。 在窗体文件中已经给出了全部控件 (如图 2 190所示 )，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行 “变换 ”操作，且必须用窗体右上角的 “关闭 ”按钮结束程序，否则无成绩
4、。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个标题分别为 “读数据 ”和 “统计 ”的命令按钮：两个名称分别为 Text1和 Text2、初始值为空的文本框，如图 2 191所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空格 )显示在 Text1文本框中： 在 Text1文本框中选中内容后，单击 “统计 ”按钮，则自动统计选中文本中从未出现过的字母 (统计过程中不区分大小写 )，并将这些字母以大写形式显示在 Text2文本框内。 请将 “统计 ”按钮的 Click事件过程中的注释
5、符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗口有 2个名称分别为 Commandl和Command2、标题分别为 “读数据 ”和 “排序 ”的命令按钮，有 2个标题分别为 “数组A”和 “数组 B”的标签。请将窗体标题设置为 “完全平方数排序 ”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 2 47所示。程序功能如下： 1)单击 “读数据 ”按钮，则把考生文件夹下：in5
6、 dat文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中； 2)单击 “排序 ”按钮，则首先将这 100个数中的所有完全平方数放入数组 B中，并将它们按降序排列显示在 Text2文本框中。 提示：一个整数若是另一个整数的平 方，那么它就是完全平方数。如 144=12，所以 144就是一个完全平方数。 要求：去掉注释符，把 ?改为正确内容，并添加代码使得 “排序 ”命令按钮的 Click事件过程可以实现上述功能。 提示： Sort过程可以把求出的完全平方数进行排序，可以直接调用。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “排序 ”，
7、且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 191答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3-19在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub cmdDisplayClick() Print txtName Text ”，现年 ”一 txtAge Text ”“岁 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤
8、1：新建一个 “标准 EXE”工程，按表 3 20在窗体中画出控件并设置其相关属性 。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub txtInputChange() picoutput Print txtInput Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp 步骤 2：打开代码编辑窗口中编写 “变换 ”按钮的单击事件过程。 参考代码： Private Sub Command2一 Click() -考生编写
9、For i=1 To 10 temp=a(i) a(i)=a(20一 i+1) a(20一 i+1)=temp Next i 以下程序段将已变换的数组元素显示在 Text2 文本框中 For k=1 To 20 Text2=Text2+Str(a(k)+Space(2) Next k End Sub 步骤 3：按 键键运行程序，先单击 “读数据 ”按钮，然后单击 “变换 ”按钮。 步骤 4：单击窗体右上们的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，存代码编辑窗口，去掉程序中的注释符 “”
10、，将问号 “?”改为正确的内容。 参考代码： If s1=0 Then For i=1 To S1 a(n)=a(n)+1 For i=1 To 26 步骤 2：按要求将文件保存争考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： 考生编写的代码 n=0 For k=1 To 100 If a(k)0 Then d=Sqr(a(k) If Int(d)=d Then n=n+1 b(n)=a(k) End If End If Next 考生编写代码结束 步骤 2：在代码编辑窗口中， 去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Call Sort(b， n) 步骤 3：按 键运行程序单击 “读数据 ”按钮，然后单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
