2013贵州省WORD全国计算机等级考试二级VB试题及答案

计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

x = Int(a(i) / 100) y = Int((a(i) - x * 100) / 10) z = a(i) - x * 100 - y * 10 If a(i) = x ^ 3 + y ^ 3 + z ^ 3 Then
sum = sum + a(i) n=n+1 End If Next txtResult.Text = Int(sum / n) 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按<F5>运行程序，先单击"读数"按钮，接着 单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程 序。
【审题分析】本题只需按要求画出控件并设置相关属 性即可。
【操作步骤】 步骤1：新建一个"标准EXE"工程，按表1在窗体中画 出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。
第2小题 【知识点播】①在程序设计时通过属性设置窗口中的 Font属性可设置控件标题文本的字体、字号、字形等。② FontName属性用于设置程序运行时在控件中显示文本的字 体 ， FontSize 属 性 、 FontBold 属 性 、 FontItalic 属 性 、 FontStrikethru属性和FontUnderline属性可分别用来设置字 体的大小和样式。 【审题分析】要实现本题所要求的功能，应在水平滚 动条的Change事件过程中，通过代码设置文本框的FontSize 属性值等于水平滚动条的Value属性值。 【操作步骤】 步骤1：新建一个"标准EXE"工程，按表2在窗体中画 出控件并设置其相关属性。
【主要考点】计时器控件。 第2小题 【知识点播】①列表框的MultiSelect属性用于设置是 否可在列表项中做多个选择，值为0（缺省设置）表示不允 许做多项选择，值为1表示允许做简单多项选择，值为2表 示允许配合使用Shift、Ctrl键做多项选择；Selected(Index) 属性用于设置或返回指定索引号（从0开始）列表项的选择 状 态 ， 值 为 True 表 示 被 选 中 ， 值 为 False 表 示 未 被 选 中 ； ListIndex可用于设置或返回在列表框中当前选择项目的索 引号。②列表框的Selected(Index)属性用于设置或返回指定 索引号列表项的选中状态，值为True时表示被选中，值为 False时表示未被选中，Index（索引号）值从0开始。List(Index) 属性用于设置或返回指定索引号列表项的内容。ListCount 属性用来返回列表框中当前的列表项项数。 【审题分析】程序设计思路：在"显示"按钮的单击事 件过程中，使用For循环语句逐一判断列表框中的各项是否 被选中，If语句的条件表达式为：lstItem.Selected(i) = True， 用Print方法将选中的列表项显示在窗体上。为与列表框的项 目索引号保持一致，循环变量的初始值应为0，终值应为 lstItem.ListCount-1。为使列表框在运行时可以多选，应将其 MultiSelect属性值设置为1-simple。 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp， 将列表框的MultiSelect属性值设置为1-simple。 步骤2：在代码编辑窗口，去掉程序中的注释符"'"， 将问号"？"改为正确的内容。 参考代码：

更多精品文档第四十一套题干206一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在Form1的窗体上画一个文本框，名称为Text1。

画一个命令按钮，名称为C1，标题为"显示"，TabIndex 属性为0。

请为C1设置适当的属性，使得按Esc 键时，可以调用C1的Click 事件，该事件过程的作用是在文本框中显示"等级考试"，程序运行结果如图1所示。

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

程序中不得使用任何变量。

图1(2)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op ，该菜单有两个子菜单，其标题分别为"显示"和"隐藏"，名称分别为Dis 和Hid ，编写适当的事件过程。

程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"等级考试"；如果单击"隐藏"命令，则隐藏文本框。

程序的运行情况如图2所示。

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

程序中不得使用任何变量。

图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp ，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。

在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。

在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆明"。

2013年4月全国计算机等级考试二级VB笔试试卷(含参考答案)一、选择题（每题2分，共70分）（1）下列叙述中正确的是( )A)对长度为n的有序链表进行查找，最坏情况下需要比较次数为nB)对长度为n的有序链表进行对分查找，最坏情况下需要比较次数为（n/2）C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（log2n）D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n）（2）算法的时间复杂是指( )A)算法的执行时间B)算法所处理的数据量C)算法程序中的语句或指令条数D)算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是( )A)编辑软件B)操作系统C)教务管理系统D）浏览器（4）软件（程序）调试的任务是( )A)诊断和改正程序中的错误B)进肯能多的发现程序中的错误C)发现并改正程序中的所有错误D)确定程序中错误的性质（5）数据流程图（DFD图）是( )A)软件概要设计的工具B)软件详细设计的工具C)机构化方法的需求分析工具D)面向对象方法的需求分析工具（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。

详细设计属于( )A)定义阶段B)开发阶段C)维护阶段D)上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计阶段C）概念设计阶段D）物理设计阶段（10）有两个关系R和T如下：则由关系R得到关系T的操作是A）选择B）投影C）交D）并（11）在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（12）设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）xD）-x（13）设窗体文件中有下面的事件过程：Private Sub Command1_Click（）Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）TextB）CaptionC）LeftD）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBox "VB"B）x=MsgBox（"VB"）C）MsgBox（"VB"）D）Call MsgBox "VB"（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick（Index As Integer）…End Sub下面关于此过程的参数Index的叙述中正确的是A）Index为1表示单选按钮被选中，为O表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A）这3个事件都会触发B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C）标准模块中可以包含一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown 事件过程的过程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正确使用动态数组的是A）Dim arr() As Integer…ReDim arr(3,5)B）Dim arr() As Integer…ReDim arr(50)As StringC）Dim arr()…ReDim arr(50) As IntegerD）Dim arr(50) As Integer…ReDim arr(20)（22）下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer, ByVal y As Integer ) As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A）Print gcd(8,12)，gcd(12,16)，gcd(16,8)B）Print gcd(8,12,16)C）Print gcd(8)，gcd(12)，gcd(16)D）Print gcd(8,gcd(12,16))（23）有下面的程序段，其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i=1 To 3For j=1 To 5A(i,j)=i+jPrint a(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A）For i=1 To 5For j=1 To 3Print a（j,i）;NextPrintNextB）For i=1 To 3For j=1 To 5Print a（j,i）;NextPrintNextC）For j=1 To 5For i=1 To 3Print a（j,i）;NextPrintNextD）For i=1 To 5For j=1 To 3Print a（i,j）;NextPrintNext（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Commandl_Click（）Dim nIf Text1.Text<>"23456"Thenn=n＋1Print "口令输入错误"& n & "次"End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“”，则在窗体上显示输入错误口令的次数。