2013年3月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(6)

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 图3

(2)在考生文件夹下有一个工程文件vbsj4.vbp，请在Form1窗体上建立一个名称为Opt1的单选按钮数组，含有三个单选按钮，其标题分别为\！\、\！\、\！\，Index属性分别为0、1、2；再画一个名称为cmdCalc的命令按钮，标题为\计算\；画一个名称为Txt1的文本框。程序的功能是在选定一个单选按钮并单击\计算\按钮后，可以计算出相应的阶乘值，在Txt1中显示该阶乘值，如图4所示。请画出上述控件并编写程序。

注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。

图4

三、综合操作题

在考生文件夹下有一个工程文件vbsj5.vbp，窗体上有两个标题分别是\读数\和\统计\的命令按钮。请画两个标签，名称分别为Lbl1和Lbl2，标题分别为\出现次数最多的字母是\和\它出现的次数是\；再画两个名称分别为Txt1和Txt2，初始值为空的文本框，如图5所示。程序功能如下：①单击\读数\按钮，则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。②单击\统计\按钮，则自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数，并将出现次数最多的字母显示在Txt1文本框内，它所出现的次数显示在Txt2文本框内。\读数\按钮的Click事件过程已经给出，请为\统计\按钮编写适当的事件过程实现上述功能。

图5

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

第112套题干123

一、基本操作题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1，标题为\框架示例\的窗体上画一个名称为Fra1，且没有标题的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为\字体\和\字号\，如图1所示。

图1

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

(2)在名称为Form1的窗体上画一个名称为lblPwd，标题为\密码\的标签；画一个名称为txtPwd的文本框；再画三考前复习必看资料：PiaoMo整理 —9—

个命令按钮，名称分别为cmdShow、cmdHide、cmdAgain，标题分别为\显示密码\、\隐藏密码\、\重新输入\。程序运

行时，在txtPwd中输入若干字符，单击\隐藏密码\按钮，则只显示同样数量的\如图2所示)；单击\显示密码\按钮，

则显示输入的字符(如图3所示)；单击\重新输入\按钮，则清除txtPwd中的内容，并把光标定位到txtPwd中。 图2 图3

要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在\显示txtPwd\、\隐藏txtPwd\按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题

(1)在考生文件夹下有一个工程文件vbsj3.vbp。程序运行时，单击窗体则显示如图4所示的图案。请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

图-4

(2)在考生文件夹下有一个工程文件vbsj4.vbp，窗体如图5所示。程序功能如下：①单击\读数据\按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Txt1文本框中；②在Txt1中选中一部分文本，并单击\统计\按钮，则以不区分大小写字母的方式，自动统计选中文本中单词\出现的次数，并将统计结果显示在Txt2文本框内。请将\统计\按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。

图5

三、综合操作题

在考生文件夹下有一个工程文件vbsj5.vbp。其窗体中有一个名称为txtRnd的文本框数组，下标从0开始。程序运行时，单击\产生随机数\按钮，就会产生10个3位数的随机数，并放入txtRnd数组中(如图6所示)；单击\重排数据\按钮，将把txtRnd中的奇数移到前面，偶数移到后面(如图7所示)。已经给出了所有控件和部分程序。

图6

图7

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

提示：在\重排数据\按钮的事件过程中有对其算法的文字描述，

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

请仔细阅读。

考前复习必看资料：PiaoMo整理

—10—

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

上机题答案解析

第101套上机答案解析

一、基本操作题

第1小题

【知识点播】①文本框（Text）通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。②控件的Height和Width属性用于设置控件在屏幕上的大小（即高和宽）。③字体大小通过FontSize属性设置，一般格式为：FontSize [=点数]。

【审题分析】要在单击\扩大\按钮时，使文本框在高、宽方向上各增加一倍，只需在\扩大\按钮的Click事件中编写设置文本框的Height和Width属性值为原来2倍的语句。要使文本框中的字体大小扩大到原来的3倍，需编写设置文本框的FontSize属性值为原来3倍的语句。

【操作步骤】

步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。

表1

事件过程。

参考代码：

Private Sub cmdRed_Click()

Img1.Picture=LoadPicture(App.Path & \End Sub

Private Sub cmdBlack_Click()

Img1.Picture=LoadPicture(App.Path&\End Sub

Private Sub cmdCls_Click() Img1.Picture = LoadPicture End Sub

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

二、简单应用题

第1小题

【知识点播】①形状控件（Shape）提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。②Move方法用于移动窗体或控件，其语法为：对象名.Move Left,top,width,height。

【审题分析】本题在计时器的Timer事件过程中，Shp1每次上下移动的距离为s（值为负向上移动，值为正向下移动，初值为-40），若Shp1向上移动后其Top属性值小于或等于Lin1的Y1（或Y2）属性值，则s取其相反数，Shp1向下移动。若Shp1向下移动后其Top属性值与其Width属性值之和大于或等于Lin2的Y1（或Y2）属性值，则s再取其相反数，Shp1向上移动。

窗体加载时，计时器启动，Shp1开始在Lin1和Lin2之间运动。

【操作步骤】

步骤1：打开考生文件下的本题工程文件vbsj3.vbp，在窗体上两条水平直线间画一个形状控件，并按表3设置其属性。

表3

步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。

参考代码：

Private Sub cmdDisplay_Click() Txt1.Text = \计算机考试\End Sub

Private Sub cmdEnlarge_Click() Txt1.Width = Txt1.Width * 2 Txt1.Height = Txt1.Height * 2 Txt1.FontSize = Txt1.FontSize * 3 End Sub

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【知识点播】①为图像框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为：图片框.Picture= LoadPicture(\图像文件路径\，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch（自动伸缩）属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。③BorderStyle用于设置图像框的边框类型，值为0表示无边框，值为1表示有边框。

【审题分析】本题需分别在3个命令按钮的Click事件过程中，用LoadPicture()函数为图像框加载不同图片。

【操作步骤】

步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。

表2

步骤2：打开代码编辑窗口，编写3个命令按钮的单击

考前复习必看资料：PiaoMo整理 —11—

步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

Tmr1.Enabled = True

If Shp1.Top <= Lin1.Y1 Then

If Shp1.Top + Shp1.Width >= Lin2.Y1 Then 步骤3：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】本题在\统计\按钮的单击事件过程中，先检查是否选中文本框Txt1中的内容（if语句条件表达式为：sl=0或st=\），若没选择内容则弹出提示信息，否则通过For循环逐一取出选中内容的每个字符（故循环终值为sl），并计算出其中每个字母（大写）在26个字母中的顺序，赋值给变量n，数组元素a(n)则记录顺序号为n的字母出现的次数。再通过For循环逐一检查26个字母（故循环终值为26）的出现次数是否为0（即a(i) = 0），将出现次数为0的字母显示在文本框Txt2中。

【操作步骤】

步骤1：打开考生文件下的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码： If sl = 0 Then

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】

For i = 1 To sl a(n) = a(n) + 1 For i = 1 To 26

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

三、综合操作题

【知识点播】位于矩阵左上到右下主对角线上的元素具有行号等于列号的特点，位于4*4矩阵右上到左下对角线上的元素具有行号与列号之和为5的特点。

【审题分析】cmdMax_Click事件过程设计思路：用变量Max记录数组a中第1个元素的值。然后通过嵌套For循环让数组a中的每一个元素逐一与变量Max比较大小，当有数组元素的值大于变量Max时，将其赋值给变量Max，循环结束时变量Max的值即为矩阵中最大的数，将其显示在标签lblMax中。

cmdSum_Click事件过程设计思路：通过For循环将数组元素a(i,i）累加入变量Sum（初值为0）中，循环结束时将其显示在标签lblSum中。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件vbsj5.vbp，在码编辑窗口的指定位置输入代码：

参考代码：

Private Sub cmdMax_Click() '====考生编写程序开始==== Dim i As Integer Dim j As Integer Dim Max As Integer Max = a(1, 1) For i = 1 To 4 For j = 1 To 4

If Max < a(i, j) Then Max = a(i, j) Next Next

lblMax = Max

'====考生编写程序结束==== '不得修改以下部分 save lblMax End Sub

Private Sub cmdSum_Click()

'====考生编写程序开始==== Dim i As Integer Dim j As Integer Dim Sum As Integer For i = 1 To 4

Sum = Sum + a(i, i) Next

lblSum = Sum

'====考生编写程序结束==== '不得修改以下部分 save lblSum End Sub

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

步骤3：按键运行程序，分别单击\求最大值元素\按钮和\求对角线元素之和\按钮。

步骤2：双击窗体Form1中的\输入\按钮，在打开的代码编辑窗口中，输入如下代码：

参考代码：

Private Sub cmdInput_Click()

txtHeight.Text = InputBox(\请输入身高\txtWeight.Text = InputBox(\请输入体重\End Sub

步骤3：按要求将文件保存至考生文件夹中。 【主要考点】InputBox()函数。 第2小题

【知识点播】①Load(装载)事件：在一个窗体被装载时发生，常用于在程序启动时对属性和变量进行初始化。②列表框的List(Index)属性用于设置或返回指定索引号（从0开始）列表项的内容。ListCount属性用来返回列表框中当前的列表项项数。③使用RemoveItem方法可以在程序运行时删除列表框中的项目，其语法为：列表框.RemoveItem索引值。

【审题分析】在窗体的Load事件过程中，设置列表框lstCourse的List(3)属性值为\英语\； 在窗体的Click事件过程中，使用列表框的RemoveItem方法删除索引号为3的项目。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个列表框，其相关属性设置如表2所示。

表2

第102套上机答案解析

一、基本操作题

第1小题

【知识点播】InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[,Title][,Default])。

其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省文本。

【审题分析】要实现本题功能只需在命令按钮的Click事件过程中，编写两条将输入对话框中用户输入内容赋值给文本框Text属性的语句。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入两个标签、两个文本框和一个命令按钮，其相关属性设置如表1所示。

表1 考前复习必看资料：PiaoMo整理 —12—

步骤2：双击窗体Form1中的\输入\按钮，在打开的代码编辑窗口中，输入如下代码：

参考代码：

Private Sub Form_Load()

lstCourse.List(3) = \英语\End Sub

Private Sub Form_Click() lstCourse.RemoveItem 3 End Sub

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

【考试误区】列表框中项目的索引号是从0开始的，最后一个项目的索引号应等于Lst1.ListCount-1，而非Lst1.ListCount。 二、简单应用题

第1小题

【知识点播】Enabled属性用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效（显示为灰色）。

【审题分析】题目要求在单击\通话开始\按钮时，在\开始时间\右侧的文本框中显示开始时间，故cmdStart_Click事件过程中的？处应改为：Text1(0).Text。

在单击\通话结束\按钮时，先计算通话时长，再计算通话费用。若通话时长在3分钟以上，则通话费用为：0.5+(m-3)*0.15。设置cmdStart的Enabled属性值为True，将使\通话开始\命令按钮变为可用，设置cmdStop的Enabled属性值为Fasle，将使\通话结束\命令按钮不可用。

【操作步骤】

步骤1：打开考生文件下的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

Text1(0).Text = Str(Time())