2020年计算机二级考试《VB》考前预测：简单综合应用题

国家二级VB机试（综合应用题）模拟试卷3(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，按照要求完成以下操作：在名称为Form1的窗体上添加两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图所示)。

程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1．txt和datain2．txt文件中的各20个整数，分别放人Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个冗素，其结果作为第3个数组的第n个元素。

这里的n为1、2…20)，最后计算第3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout．txt文件中。

须执行一次，最后将修改后的文件以原米的文件名存盘。

正确答案：【操作步骤】步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表3．23。

步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。

参考答案Private Sub C1 C1iCk( ) Call ReadData1’调用过程ReadData1 Call ReadData2’调用过程ReadData2 End Sub Private Sub C2 C1ick( ) Dim Arr3(1 To 20)As Integer Dim sum As Integer sum＝0 For i＝1 To 20’将Arr1中对应于Arr2中的教相减，结果存入Arr3中Arr3(i)＝Arrl(i)－Arr2(i) sum＝sum＋Arr3(i)’将Arr3中的元素累加Next i Print”sum＝”；sum’在窗体打印sum WriteData”dataout．txt”，sum End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

国家二级VB机试（简单应用题）模拟试卷1(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt3．vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。

并给出了两个事件过程，但并不完整，要求：①设置Timer1的属性，使其在初始状态下不计时；②设置Timer1的属性，使其每隔0．1秒调用Timer事件过程一次；③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0．1秒向上移动一次，当到达P2的下方时停止移动，如图所示。

注意：不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

正确答案：[操作步骤]步骤1：按题目要求打开工程文件，设置计时器属性，如图3．14所示。

步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容。

参考代码(画下划线部分是需填入的内容)Private Sub C1 Click( )Timer1．Enabled=True’单击”发射”按钮，则Timer生效End SubPrivate Sub Timer1 Timer( )StatiC a％a=a+1If P1．Top＞P2．Top+P2．HeightThen’判定P1是否接触到P2P1．Move P1．Left，P1．Top—5—a，P1．Width，P1．HeightElseTimer1．Enabled=False’当P1接触到P2时Timer事件停止End IfEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2．在考生文件夹下有一个工程文件sjt3．vbp。

窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。

请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：①圆的顶端距窗体Form1顶端的距离为360；②圆的颜色为红色(红色对应的值为：&H000000FF&或&H=FF&)，如图所示。

国家二级VB机试（综合应用题）模拟试卷21(题后含答案及解析) 题型有：1.1．在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。

并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。

请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第一个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5．tXt文件中。

注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中，否则无成绩。

正确答案：步骤1：打开本题对应工程文件sjt5．vbp。

步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。

参考代码：Private Sub C1_Click( )a％=15000Doa％=a％+1Loop Until isprime(a％)Text1．Text=a％End Sub步骤3：双击窗体Form1上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码。

参考代码：Private Sub C2_Click( )Open App．Path&”＼out5．txt”For Output As#1print：#1，Text1．TextClose#1End Sub步骤4：按要求将文件保存至考生文件夹中。

解析：素数的判断准则就是看该数除了1和其本身外有无其他约数。

程序设计思路：要找出大干15000的第一个素数，可以定义一个初值为15000的整型变量a，通过调用函数isprime(a)，以其返回值是素数(即isprime(a))作为Do循环语句的继续循环条件，在循环体中加入语句：a=a+1，实现每执行循环体一次变量a的值增加1，当循环结束时将a的值在文本框中显示出来。

国家二级VB机试（简单应用题）模拟试卷8(题后含答案及解析) 题型有：1.1．(1)考生文件夹下有一个工程文件sjt3．vbp，其功能是：①单击“读数据”按钮，则将考生文件央下in3．dat文件中的100个0～999的整数读入到数组a中；②单击“计算”按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Texl2中(注：当一个数的值等十该数中的各位数字的立方和时，此数被称为水仙花化数。

如：153＝13＋53＋33，所以153就是一个水仙花数)。

在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。

要求编写“计算”命令按钮的事件过程。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上们的“关闭”按钮结束程序，否则无成绩。

最后，程序按原文件名存盘。

(2)在考生文件央下有一个工程文件sjt4．vbp。

请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这二个数字)；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮，如图所示。

请编写适当的事什过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计箅5000以内能够被该数整除的所有数之和，并放入Text1中。

最后，按原文件名存盘。

提示：由丁计算结果较大，应使用长整型变量。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。

并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。

正确答案：(1)【操作步骤】步骤1：按照题日要求打开工程文件。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Dim i As Integer Dim max As Integer，min As Integer max＝－1 min＝1000 For i＝1 To 100 If isnare(a(i))Then ‘调用isnarc判断是否为水仙花教If max＜＝a(i)Then max＝a(i) If min＞＝a(i)Then min＝a(i)’求水仙花数中的最大值与最小值End If Next i Text1＝max Text2＝min 步骤3：按照题口要求调试并运行程序，如图3．18所示。

2020 年计算机二级VB 模拟试题及答案1. 在待排序的元素序列基本有序的前提下，效率的排序方法是（C）A）冒泡排序B）选择排序C）快速排序D）归并排序 2.非空的循环单链表head的尾结点（由p所指向），满足（A）A)p->next==NULLB)p==NULLC)p->next=headD)p=head3. 线性表的顺序存储结构和线性表的链式存储结构分别是（C）A）顺序存取的存储结构、顺序存取的存储结构B）随机存取的存储结构、顺序存取的存储结构C）随机存取的存储结构、随机存取的存储结构D）任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是（D）A）输入、处理、输出B）树形、网形、环形C）顺序、选择、循环D）主程序、子程序、函数5.下列不属于软件调试技术的是（D）A）强行排错法B）集成测试法C）回溯法D）原因排除法6.软件生命周期中花费时间最多的阶段是（B）A）详细设计B）软件编码C）软件测试D）软件维护7.软件设计中，有利于提升模块独立性的一个准则是（A）A）低内聚低耦合B）低内聚高耦合C）高内聚低耦合D）高内聚高耦合8.数据库的故障恢复一般是由（D）A）数据流图完成的B）数据字典完成的C）DBA完成的D）PAD图完成的9.下列关系运算的叙述中，准确的是（B）A）投影、选择、连接是从二维表行的方向实行的运算B）并、交、差是从二维表的列的方向来实行运算C）投影、选择、连接是从二维表列的方向实行的运算D）以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的元组个数将（A）A）等于原来关系中的元组个数B）大于原来关系中的元组个数C）小于原来关系中的元组个数D）不能确定元组个数11.以下不具有Picture 属性的对象是（B）A）窗体B）图片框C）图像框D）文本框12.双击窗体中的对象后，Visual Basic 将显示的窗口是（D）A）项目（工程）窗口B）工具箱C）代码窗口D）属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14. 要使目录列表框( 名称为Dirl) 中的目录随着驱动器列表框( 名称为Drivel) 中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x) 的值为-1 ，则表示x 的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不准确的是(B)A)变量名的长度不能超过255个字符B)变量名能够包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic 变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6八2)+Abs(-6八2)+Int(-6八2) 的输出结果是(BD)A)-36B) 1C)-1D)-7219. 下面说法中，不准确的是(D)A)Cls 清除由Print 方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B) 当前窗体是用Picture 属性装入的图形时，也能够用Cls 方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls 方法中的对象，能够是窗体或图片框，如果省略则清除当前窗体中显示的内容20. 假定在图片框Picturel 中装入了一个图形，为了清除该图形( 注意，清除图形，而不是删除图片框) ，应采用的准确方法是(D)A)选择图片框，然后按Del键B)执行语句P icturel. picture二Load Picture(””)C)执行语句Picturel.picture二""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键。

这些题型是本套全国计算机等级考试VB所常见的。

便将此整理一下，以供大学考前使用。

祝大家能顺利通过二级。

谢谢。

上机第1套一、基本操作题（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为"框架示例"，高度为2000，宽度为3500；在框架中绘制一个文本框。

名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为"文本框示例"二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。

程序功能：在运行时，如果选中一个单选按钮后，单击"显示"按钮，则根据单选按钮的选中情况，在窗体上显示"你所在的城市是北京"、"你所在的城市是上海"或"你所在的城市是天津"。

要求：①请利用属性窗口，为单选按钮依次添加标题："北京"、"上海"和"天津"，设初始选取中的是"北京"，再添加一个标题为"显示"的命令按钮，如图1-3所示。

②删除程序中语句前面的注释符"'"，把程序中的问号"？"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。

最后，将修改后的文件按原文件名保存在原文件夹中。

程序源码：Private Sub Cmd1_Click()For i = 0 To 2If Opt1(i).Value = True ThenPrint "你所在的城市是" + Opt1(i).CaptionEnd IfNextEnd Sub上机第2套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

国家二级VB机试（上机操作）模拟试卷100(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Chl的复选框数组，含三．个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态见表3一1。

运行后的窗体如图3-11所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

(2)在名称为Forml的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。

运行后的窗体如图3-12所示。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：第1小题本题只需按要求画出控件数组，并设置其Value属性。

【操作步骤】步骤1：新建一个“标准EXE”工程。

步骤2：在窗体Forml中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。

步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．5所示。

步骤4：按要求将文件保存至考生文件夹中。

第2小题本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的visible属性变化。

【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。

国家二级VB机试（综合应用题）模拟试卷9(题后含答案及解析) 题型有：1.1．以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。

在考生文件夹下有一个工程文件sjt5．vbp。

窗体中已经给出了所有控件：如图所示。

请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。

注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。

最后把修改后的文件按原文件名存盘。

正确答案：【操作步骤】步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Command1_Click( ) Dim a( )As Long Dim i As Integer Dim n As Integer ‘Opl．Count是单选按钮数目，这里用的是控件数组For i＝0 To Op1．Count－1 ‘判断哪一项被选择，把它后面的数值赋给n，确定n值If Opl(i)．Value＝True Then n＝Val(Opl(i)．Caption) Exit For End If Next ReDim a(n)’重新申请空间，这里是动态申请a(1)＝1 a(2)＝1’数列第一项、第二项值确定For i＝3 To n a(i)＝a(i－1)＋a(i－2)’后一项值是前两项值之和Next Text1．Text＝a(n) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2．在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。

国家二级VB机试（简单应用题）模拟试卷9(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt4．vbp(相应的窗体文件名为sjt4．frm)，其功能是通过调用过程FindMin求数组的最小值。

程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

正确答案：[操作步骤]步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容。

参考代码(画下划线部分是需填入的内容)Option Base 1Private Function FindMin(a( )As Integer)Dim Start As IntegerDim Finish As Integer，i As IntegerStart=LBound(a)’求数组下界值Finish=UBound(a)’求数组上界值Min=a(Start)’将第一个数赋给最小值进行比较For i=Start To Finish’循环判断找最小值If a(i)＜Min Then Min=a(i)Next iFindMin=MinEnd FunctionPrivate Sub Command1_Click( )Dim arr1Dim arr2(4)As Integerarr1=Array(Val(Text1．Text)，Val(Text2．Text)，Val(Text3．Text)，Val(Text4．Text))’申请arrl数组并初始化For i=1 To 4arr2(i)=CInt(arr1(i))’CInt函数将arr1中的数值转换为整型Next iM=FindMin(arr2)Print”最小值是：”；MEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。

组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。

运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。

(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。

再画两个标题分别为“椭圆”和“圆”的命令按钮。

如下图所示。

要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。

程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。

二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。

窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。

程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。

运行窗体如图所示。

要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序。

最后程序按原文件名存盘。