2017计算机二级《VB》考试巩固习题及答案

相关推荐

　　“一分耕耘一分收获”只要我们肯付出汗水付出努力，那么我们会得到学习中最大的快乐。以下是百分网小编整理的2017计算机二级《VB》考试巩固习题及答案，欢迎学习!

2017计算机二级《VB》考试巩固习题及答案

　　一、基本操作题

　　(1)在名称为Forml的窗体上画两个标签(名称分别为Labell和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2，初始内容均为空)和一个命令按钮(名称为Commandl，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

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

　　(2)在名称为Forml的窗体上画一个图片框，其名称为Picturel，一个水平滚动条，名称为HScrolll，一个命令按钮，名称为Commandl，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为piel.jPg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：

　　Minl00

　　Maxl500

　　LargeChangel00

　　SmaUChangel0

　　之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。

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

　　二、简单应用题

　　(1)在考生文件夹下有一个工程文件sit3.vbp(相应的窗体文件名为sit3.frm)，在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个);如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。

　　要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

　　(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。

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

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

　　三、综合应用题

　　在窗体上建立三个菜单(名称分别为Read、Cale和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Textl，MuhiLine属性设置为True，ScrollBars属性设置为2(如图所示)。程序运行后，如果执行“读人数据”命令，则读入考生文件夹下datainl.txt文件中的100个整数，放人一个数组中，数组的下界为1;如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来;如果单击“存盘”按钮，则把所求得的和存入考牛文件夹下的dataout.txt文件中。

　　在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

　　注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sit5.vbp，窗体文件名仍保存为sjt5.frm。

　　参考答案及解析：

　　一、基本操作题

　　(1)【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“&”和“+”运算符以及Print方法。

　　【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。

　　【操作步骤】

　　步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3.16所示。

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

　　参考答案

　　PrivateSubCommandl_Click()

　　Forml.PrintTextl.Text&"，现年"&

　　Text2.Text&"岁"

　　EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　(2)【考点分析】本题考点有：水平滚动条的Name、Max、Min、LargeChange、SmallChange和Value属性，图片框的Width、Name和Picture属性以及命令按钮的Name和Caption属性。

　　【解题思路】在设计阶段通过Picture属性为图片框指定显示的图片，通过Wi&h属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头问区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。

　　【操作步骤】

　　步骤1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表3.17。

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

　　参考答案

　　PrivateSubCommandl_Click()

　　HScrolii.Max=1500´设置滚动条的最大值、最小

　　值、最大改变值、最小改变值

　　HSCro111.Min=100

　　HScrolll.LargeChange=100

　　HScrolll.SmaliChange=10

　　EndSub

　　PrivateSubHScrolii_Change()

　　Picturel.Width=HScrolii.Value´将图片的width与滚动条的Value保持一致EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　二、简单应用题

　　(1)【考点分析】本题考点有：列表框的Name、List和ListCount属性，文本框的Name和Text属性，Removehem方法，InputBox函数，For循环语句以及If判断语句。

　　【解题思路】当在窗体上按下鼠标键时将触发其Mouse-Down事件，该事件过程的参数Button值为1时表示当前按下的是鼠标左键;当Button值为2时表示当前按下的是鼠标右键。向列表框添加项目使用Addhem方法，删除列表项使用Removehem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。

　　程序中用到了InputBox()函数，其格式为：

　　InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])

　　其中常用参数为prompt和title。prompt是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。

　　title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题区。

　　【操作步骤】

　　步骤1：打开本题工程文件，按表3.18所列在窗体画出控件并设置其属性。

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

　　参考答案(横线部分是需考生填入的内容)

　　PrivateSubForm_MouseDown(ButtonAsInte-ger，ShiftAsInteger，XAsSingle，YAsSingle)

　　IfButton=lThen

　　Textl.Text=InputBox("请输入要添加的项目")

　　Listl.AddItem__________´将Textl中的内容加入列表

　　EndIf

　　IfButton=2Then

　　Textl.Text=InputBox("请输入要删除的项目")

　　´列表总数用LiStCount求得

　　Fori=0To__________

　　´判断列表项是否为要删除的项

　　IfListl.List(i)=__________

　　Then

　　´删除i所对应的项

　　Listl.RemoveItem__________

　　EndIf

　　Nexti

　　EndIf

　　EndSub

　　程序结束

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】列表数组List(i)下标从0开始，列表项的循环上限应为ListCount-1，要注意InputBox语句的格式。

　　(2)【考点分析】本题考点有：Array()函数，UBound()函数，LBound()函数，Val()函数，Print方法，CInt()函数，For循环语句以及If判断语句。

　　【解题思路】文本框里的内容(包括数字)默认都是当做字符串来处理的，如果需要参与数据运算，则需先用Val()函数将其转化为数字(例如Val(Textl.Text))。CInt函数将数值转换为整型。

　　这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。

　　在本题的FindMin过程中，用变量Min记录最小值，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果小于Min的值则与之交换，依次类推，最终Min的值就是数组各元素中的最小值。在窗体上打印信息可以通过Print方法来实现，其形式为：

　　[对象.]Print要显示的内容

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，

　　将问号改为正确的内容。

　　参考答案(阴影部分是需考生填入的内容)

　　OptiOnBase1

　　PrivateFunctionFindMin(a()AsInteger)

　　DS_mStartAsInteger

　　DimFinishAs2nteger，iAsInteger

　　Start=__________(a)´求数组下界值

　　Finish=__________求数组上界值

　　Nin=__________(Start)´将第一个数赋给最小值进行比较

　　Fori=StartToFinish锯环判断找最小值

　　Ifa(i)__________NJ_nThenNin=__________

　　Nexti

　　FindNin=Min

　　EndFunctioil

　　PrivateSubCommandl_Click()

　　Dimarrl

　　Dimart2(4)AsInteger

　　arrl=Array(Val(Textl.Text)，Val

　　(Text2.Text)，Val(Text3.Text：)，Val(Text4.Text))´申请arrl数组并初始化

　　Fori=1To4

　　art2(i)=CInt(arrl(i))´CTnt函数将

　　arrl中的数值转换为整型

　　Next;i

　　M=FindNin(__________)

　　Print"最小值是：";M

　　EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】0ptionbase在模块级别中使用，用来声明数组下标的默认下界，optionbase后面只能是0或者l，默认值为0。

　　三、综合应用题

　　【考点分析】本题考点有：文本框的Name、MultiLine、SerollBars和Text属性，文件操作，菜单编辑器的使用(名称、标题、内缩符号)，Art()函数以及Space()函数。

　　【解题思路】根据题意在“读人数据”命令的Click事件过程中，通过调用ReadData过程将数据从datainl.txt文件读入到数组Arr(窗体变量)中;在“计算并输出”命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Art中下标为偶数的元素显示在文本框中，并将其值累加到变量sum;在“存盘”命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件dataout.txt中。

　　【操作步骤】

　　步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Forml中绘制一个文本框，其相关属性及其值见表3.19和表3.20。

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

　　参考答案

　　´需要考生编写的内容

　　DimSl.1mAsinteger

　　考生编写程序结束

　　´需要考生编写的内容

　　PrivateSubCalc_Click()

　　Textl.Text=""

　　Fori=2Tol00Step2’从2开始循环，以2为步长的下标都是偶数

　　Textl.Text;=Textl.Text&Art(i)&