点击查看：2015计算机二级《VB》过关习题及答案精选汇总

　　1[简答题]在考生文件夹下有一个工程文件sit5.vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加一个名称为Label1、标题为“回文个数为”的标签和一个名称为Text1，初始内容为空的文本框，如图所示。程序功能如下：

　　①单击“读数据”按钮，则将考生文件夹下in.5.dat文件的内容读到变量s中;

　　②单击“统计”按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字符串)中回文的个数，并将统计的回文个数显示在Textl文本框内(所谓回文是指顺读与倒读都一样的字符串，如“recycer”)。“读数据”和“统计”按钮的Click事件过程已经给出，请完善foundhuiwen过程的功能，实现上述程序功能。

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

　　参考解析：

　　【考点分析】本题考点有：StrReverse()函数、Mid()函数、文件编辑、LOF()函数、Input()函数、For循环语句以及If判断语句。

　　【解题思路】StrReverse()函数用于返回一个字符串，其中一个指定子字符串的字符顺序是反向的。Mid()函数用于取字符子串。

　　【操作步骤】

　　步骤1：打开本题工程文件，按照题目要求建立控件并设置属性，如表3.29所示。

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

　　参考答案

　　Function foundhuiwen(p As String)

　　If StrReverse(P)=P Then foundhuiwen

　　=True'StrReverse函数的功能是将字符串顺序反转

　　End Function

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

　　【易错提示】StrReverse()函数是一个不常见的函数，在运用的时候要了解函数的语法才能应用自如。

　　2[单选题]在编辑VB应用程序时，如果不小心关闭了属性窗口，则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口，这个按钮的图标是

　　A.

　　B.

　　C.

　　D.

　　参考答案：D

　　参考解析：按F4键，或单击工具栏中“属性窗口”钮，或选取“视图”菜单中的“属性窗口”子菜单，均可打开属性窗口。

　　3[单选题] 以下关于键盘事件的叙述中，错误的是(　　)。

　　A.按下键盘按键既能触发KeyPress事件，也能触发KeyDown事件

　　B.KeyDown、KeyUp事件过程中，大、小写字母被视作相同的字符

　　C.KeyDown、KeyUp事件能够识别Shift、Ah,Ctd等键

　　D.KeyCode是KeyPress事件的参数

　　参考答案：D

　　参考解析：当用户按下键盘上的任意键时，会触发当前拥有焦点对象的KeyDown事件，用户松开键盘上任意键时，就会触发KeyUp事件。当用户按下又松开键盘上任意键时，触发KeyPress事件。故A选项正确。

　　KeyDown事件和KeyUp事件均向事件过程返回两个参数KeyCode和Shift。KeyCode参数返回所按键对应的ASCⅡ字符代码的整型数值或键代码常数，大小写字符被看作是相同字符，返回同一个KeyCode值。故B选项正确。

　　Shift参数用于判断用户是否按下Shift、Ctrl和Alt键，若用户按下了对应的键，Shift参数会返回不同的值。根据以上KeyDown和KeyUp事件能识别Shift、Ctrl和Alt键。故c选项正确。

　　KeyPress事件只有一个参数KeyAscii，它可以返回按键对应的Ascii值，大小写字母Ascii值不同。KeyCode不是Key-Press事件的参数。故D选项错误。

　　4[单选题] 有如下数据定义语句：

　　Dim a，b As Integer

　　Dim x%.y as Integer

　　执行上述语旬后，不是整型变量的是

　　A.aB.bC.xD.Y

　　参考答案：A

　　参考解析：在VisualBasic中，变量的定义格式有两种，第一种是：Declare变量名As类型，“Declare”可以是Dim，Static，Redim，Public或Private，“As”是关键字，“类型”可以是基本的数据类型也可以是用户自定义的类型;第二种是用类型说明符来定义变量，即在定义变量名后面加上类型说明符;如果变量名后面没有类型说明符，又不是第一种定义方式的话，则定义的变量是变体变量。

　　5[单选题] 窗体上有一个由两个文本框组成的控件数组，名称为Textl，并有如下事件过程：

　　关于上述程序，以下叙述中错误的是(　　)。

　　A.Index用于标识数组元素

　　B.本程序中Case Else分支的语句永远不会被执行

　　C.向任何一个文本框输入字符，都会在另一个文本框中显示该字符

　　D.下标为0的文本框中显示的字符尺寸将越来越小

　　参考答案：D

　　参考解析：控件数组的Index属性作为控件数组的下标，用于标识数组元素。题目中程序功能是当任一个文本框内容改变时设置第2个文本框的字号是第1个文本框字号的2倍，同时两个文本框显示相同文字。假如用户没有使用控件数组的Index属性的默认值程序将执行到Else分支。

　　6[单选题] 设有如下事件过程：

　　运行程序，输出是

　　A.2B.3C.5D.9

　　参考答案：B

　　参考解析：本题程序中内层For循环是统计具有相同值素的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第1个具有相同值的元素个数最多的那个元素值。数组组中元素值为3的元素有5个，元素值为5的元素有5个，元素值为6的元素为3个，元素值为2的元素有1个，元素值为4的元素有1个，元素值为9的元素有1个。因此第1个具有相同元素值的最多个的元素值是3。

　　7[单选题] 设有以下定义语句：

　　PrivateTypepoint

　　下面语句中正确的是

　　A.a=12B.a.x=12C.point=12D.point.X=12

　　参考答案：B

　　参考解析：用户可以利用Type语句定义自己的数据类型，其格式如下：

　　Type自定义类型名

　　元素名(下标)As类型名

　　[元素名(下标)As类型名]

　　EndType

　　要表示某个自定义数据类型的变量中某个元素时，形式如下：变量名.元素名。所以选项B.是正确的。

　　8[简答题]在考生文件夹下有一个工程文件sit3.vbp，相应的窗体文件为sit3.frm。其功能是随机产生20个0～1000的整数，放入一个数组中，然后输出这20个整数中小于500的所有整数之和。程序运行后，单击命令按钮(名称为Commandl，标题为“输出小于500的整数之和”)，即可求出这些整数的和，并显示在窗体上(如图所示)。这个程序不完整。请把它补充完整.并能币确运行，

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

　　参考解析：

　　本题要产生随机整数，须使用Rnd函数和

　　Int函数。

　　Int函数是将参数转换成整数。

　　Rnd函数返回小于l，但大于或等于0的值，为了生成某个范围内的随机整数，可使用以下公式：

　　Int((upperbound—lowerbound+1)}Rnd+lowerbound)

　　这里，upperbound是随机数范围的上限，lowerbound则是随机数范围的下限。

　　【操作步骤】

　　步骤l：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码.

　　Option Base l

　　Private Sub Commandl—Click()Dim afrN(20)As IntegerDim Sum As Integer

　　RandomiZe

　　Fori=1 T0 20

　　'arrN(i)=Int(Rnd}?)Nexti

　　'Sum=?

　　Fori=1 T0 20Ⅱ7 Then

　　"sum=?

　　End If。Nexti

　　蹦nt SumEnd Sub

　　程序结束参考答案第1个?处填入：l000

　　第2个?处填入：0

　　第3个?处填入：arrN(i)<500第4个?处填入：Sam+arrN(i)步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　9[简答题]在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生20个0～1000的整数，将其放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出平均值”)，即可求出其平均值，并显示在窗体上(如图所示)。这个程序不完整，请把它补充完整，并能正确运行。

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

　　参考解析：

　　表达式Int(Rnd*1000)可生成o～1000 范围内随机整数。根据题意求出20个随机整数的平均值，须 用For循环语句逐一将数组中的各元素累加到变量Sum，然后 求出平均值。

　　【操作步骤】

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

　　步骤2：分析并编写程序代码。

　　程序提供代码

　　程序结束

　　参考答案

　　第1个?处填入：l000

　　第2个?处填入：0

　　第3个?处填入：Sum+arrN(i)

　　第4个?处填入：Sum/20

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

　　10[简答题] 在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sit4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。

　　要求：请勿改动程序中的任何内容，只在FunctionFun()和EndFunction之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

　　参考解析：

　　【考点分析】本题考点有：Mod运算符、文件编辑、For循环语句、If判断语句以及过程函数。

　　【解题思路】可通过求余运算符Mod来计算某数M能否被7整除，如果MMod7=0，那么M能被7整除;如果MMod7<>0，那么M不能被7整除。可利用For循环语句来逐个判断0～1000范围内的整数能否被7整除，然后用一个变量来统计不能被7整除的整数个数。

　　【操作步骤】

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

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

　　参考答案

　　Function Fun()

　　Dim S As Integer，i As Integer

　　For i=0 To 1000。求0～1000中满足条件的数

　　If i Mod 7<>O Then

　　s=s+1´将满足条件的数的个数累加

　　End If

　　Next i

　　Fun=s’返回结果

　　End Function

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

　　相关推荐：

　　2015计算机二级《C语言》精选练习题及答案汇总

　　2015计算机二级考试《VB》模拟练习题及解析汇总

　　2015年12月计算机等级考试通关分享：如何做题？