2013吉林省全国计算机等级考试二级VB笔试试卷及参考答案必过技巧

计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案为帮助同学们复习好二级VB考试科目，大家平时需要多做题多练习。

接下来应届毕业生小编为大家精心准备了计算机二级VB语言程序设计考试题及答案，希望能够给大家带来帮助!1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 62.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext i该事件过程的功能是(C)(单)A.输出n以内的.奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

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希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“”，则在窗体上显示输入错误口令的次数。

全国计算机等级考试二级VB笔试试题(1)一、单项选择题(每小题2分，共70分)1. 设在菜单编辑器中定义了一个菜单项，名为menu1。

为了在运行时显示该菜单项，应使用的语句是( )。

A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False 【答案】： C【解析】：显示是将属性Visual设置为True2. 以下合法的Visual Basic标识符是( )。

A.DoWhileB.DoC.56dD.A#BC【答案】：A【解析】：DoWhile是两个关键字拼接，从而变成非关键字，直接选择A。

B是关键字，丽C 以数字开头，D中间夹带字符“#”，均属于不允许之列。

3. 数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及( )。

A.数据的存储结构B.计算方法C.数据映象D.逻辑存储【答案】：A4. 以下语句正确的是( )。

monDialog.Filter=All Files i*.*IPictures(*.bmp)|*.bmpmonDialog.Fliter="AllFileS"|"*.*"|"Pictures(*.bnlp)|"*.bmp"monDialog.Filter=="AllFiles|*.*|Pictures(*.bmp)|*.bmp"monDialog.Filter={ All Files |*.*| Pictures(*.bmp)|*.bmp}【答案】：C【解析】：这是概念题，答案为C。

可以这样解题：Filter属性要求的是字符串，所以只能从B和C中选择。

不会使用像B那样的混乱方式，由此可以判定应该选择C。

5. 下述关于数据库系统的叙述中正确的是( )。

A.数据库系统中数据的一致性是指数据类型一致B.数据库系统比文件系统能管理更多的数据C.数据库系统减少了数据冗余D.数据库系统避免了一切冗余【答案】：C【解析】：C和D两者的描述对象一样，结果必然在这两者之中。

2013年3月全国计算机等级考试二级VB上机题库题干—1—第八十一套题干104一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为cmdOpen 的命令按钮，标题为"打开文件"，再画一个名称为cdlOpen 的通用对话框。

程序运行后，如果单击命令按钮，则弹出打开文件对话框。

请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题为"打开文件"；设置适当属性，使对话框的"文件类型"下拉式组合框中有二行："文本文件"、"所有文件"(如图1所示)，默认的类型是"所有文件"。

②编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。

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

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

图1(2)在名称为Form1的窗体上画一个图片框(名称为Pic1)、一个垂直滚动条(名称为Vsb1)和一个命令按钮(名称为cmdSet，标题为"设置属性")，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的宽度与图形的宽度相同，图片框的高度任意(如图2所示)。

编写适当的事件过程。

程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：图2Min=100 Max=2400LargeChange=200 SmallChange=20之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。

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

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

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

图3二、简单应用题(1)在考生目录下有一个工程文件vbsj3.vbp，包含了所有控件和部分程序，如图4所示。

计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。

以下程序：Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

1、下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A. 内模式B. 外模式C. 概念模式D. 逻辑模式2、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库3、下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句4、下述关于数据库系统的叙述中正确的是(A)A. 数据库系统减少了数据冗余B. 数据库系统避免了一切冗余C. 数据库系统中数据的一致性是指数据类型的一致D. 数据库系统比文件系统能管理更多的数据5、对长度为N的线性表进行顺序查找，在最坏情况下所需要的比较次数为(B) 注：要牢记A. N+1B. NC. (N+1)/2D. N/26、在关系数据库中，用来表示实体之间联系的是(D)A. 树结构B. 网结构C. 线性表D. 二维表7、下列叙述中正确的是(A)A. 线性表是线性结构B. 栈与队列是非线性结构C. 线性链表是非线性结构D. 二叉树是线性结构8、程序流程图（PFD）中的箭头代表的是(B)A. 数据流B. 控制流C. 调用关系D. 组成关系9、下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致10、在一棵二叉树上第5层的结点数最多是(B) 注：由公式2（k-1）得A. 8B. 16C. 32D. 1511、下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A. 内模式B. 外模式C. 概念模式D. 逻辑模式12、算法一般都可以用哪几种控制结构组合而成(D)A. 循环、分支、递归B. 顺序、循环、嵌套C. 循环、递归、选择D. 顺序、选择、循环13、数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是(D)A. 自顶向下B. 由底向上C. 由内向外D. 由整体到局部14、下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致。

计算机二级vb笔试试题及答案1. 写一个程序，求1到100之间所有偶数的和。

```Dim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和为：" & sum```2. 编写一个程序，判断一个输入的年份是否为闰年。

```Dim year As Integeryear = InputBox("请输入年份：")If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox year & "年是闰年。

"ElseMsgBox year & "年不是闰年。

"End If```3. 编写一个程序，输出1到20之间的所有质数。

```Dim i, j As IntegerFor i = 2 To 20For j = 2 To i - 1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i ThenMsgBox iEnd IfNext i```4. 请简述 VB 中的数组的定义及使用方法。

VB 中的数组可以使用 `Dim` 语句定义，语法为 `DimarrayName(subscripts)`，其中 `arrayName` 为数组名，`subscripts` 为数组的维数和维数的范围。

数组的使用方法包括：- 将值存储到数组中：可以使用 `arrayName(index) = value` 的语法将指定位置的值存储到数组中。

- 获取数组中的值：可以使用 `value = arrayName(index)` 的语法获取数组中指定位置的值。

2013年计算机二级考试VB精选题及答案解析（1）一、选择题【例1】结构化程序设计方法提出于_______。

(考点1)A)20世纪50年代B)20世纪60年代C)20世纪70年代D)20世纪80年代解析：20世纪70年代提出了"结构化程序设计(structuredprogramming)"的思想和方法。

结构化程序设计方法引入了工程化思想和结构化思想，使大型软件的开发和编程得到了极大的改善。

答案：C)【例2】结构化程序设计方法的主要原则有下列4项，不正确的是_______。

(考点1)A)自下向上B)逐步求精C)模块化D)限制使用goto语句解析：结构化程序设计方法的主要原则为：(1)自顶向下：即先考虑总体，后考虑细节;先考虑全局目标，后考虑局部目标。

(2)逐步求精：对复杂问题，应设计一些子目标作过渡，逐步细化。

(3)模块化：把程序要解决的总目标分解为分目标，再进一步分解为具体的小目标，把每个小目标称为一个模块。

(4)限制使用goto语句。

答案：A)【例3】面向对象的开发方法中，类与对象的关系是_______。

(考点2)A)抽象与具体B)具体与抽象C)部分与整体D)整体与部分二、填空题【例1】在面向对象方法中，使用已经存在的类定义作为基础建立新的类定义，这样的技术叫做_______。

(考点2)解析：继承是面向对象方法的一个主要特征。

继承是使用已有的类定义作为基础建立新类的定义技术。

已有的类可当作基类来引用，则新类相应地可当作派生类来引用。

答案：继承【例2】对象的基本特点包括_______、分类性、多态性、封装性和模块独立性好等5个特点。

(考点2)解析：对象具有如下的基本特点：(1)标识惟一性。

对象是可区分的，并且由对象的内在本质来区分;(2)分类性。

可以将具有相同属性和操作的对象抽象成类;(3)多态性。

同一个操作可以是不同对象的行为;(4)封装性。

只能看到对象的外部特征，无需知道数据的具体结构以及实现操作的算法;(5)模块独立性。

2013年计算机二级vb考试答案一、选择题1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个函数用于计算一个数的绝对值？A. AbsB. SqrC. RoundD. Int答案：A3. 在Visual Basic中，下列哪个选项表示“或”逻辑运算？A. AndB. OrC. NotD. Xor答案：B4. 如果变量a的值为5，变量b的值为10，那么表达式a > b的值是多少？A. TrueB. FalseC. NullD. Empty答案：B5. 在Visual Basic中，下列哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B二、填空题1. 在Visual Basic中，使用________函数可以将字符串转换为小写。

答案：LCase2. 若要在Visual Basic中声明一个整型变量并初始化为100，应使用语句________。

答案：Dim myVar As Integer = 1003. 在Visual Basic中，使用________语句可以结束当前的过程。

答案：Exit Sub4. 若要在Visual Basic中创建一个名为"myForm"的新窗体，应使用语句________。

答案：Dim myForm As New Form5. 在Visual Basic中，使用________方法可以打开一个文件。

答案：Open三、简答题1. 简述Visual Basic中事件驱动编程的概念。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而非按照预先定义的顺序执行代码。

2. 描述如何在Visual Basic中使用循环结构来遍历一个数组。

国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。

A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。

A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。

答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。

答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。

答案：Dim4. VB中，使用____关键字可以定义一个过程。

答案：Sub5. VB中，使用____关键字可以定义一个函数。

答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。

2021年3月全国计算机二级VB考试真题及答案一、单项选择题。

(1)以下数据构造中，属于非线性构造的是(2)在以下链表中，能够从任意一个结点出发直接访问到所有结点的是(3)以下与栈构造有关联的是(4)下面对软件特点描述不正确的选项是(5)下面属于黑盒测试方法的是(6)下面不属于软件设计阶段任务的是(7)数据库管理系统是(8)在E-R图中，表示实体的图元是(9)有两个关系R和T 如下R TA B C A Ca 1 2 a 2b 4 4 b 4c 2 3 c 3d 3 2 d 2那么由关系R得到关系T的操作是(10)对图书进展编目时，图书有如下属性：ISBN书号，书名，作者，出版社，出版日期。

能作为关键字的是(11)以下关于Visual Basic标准模块的描述中，错误的选项是(12)以下变量名中合法的是(13)表达式 66 \ 8 mod 5 & "avg" 的值是(14)以下能正确计算s=1+2+…… +100的程序段是(15)设有如下程序：Private Sub Form_Click()a = 10:b = 20x = a = bPrint xEnd Sub程序运行后，单击窗体，输出结果为(16)在面向对象的程序设计中，对象可以执行的操作和可被对象识别的动作分别被称为(17)以下说法中，错误的选项是(18)设有如下程序：Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 10i = i + jj = j + 1Next iEnd Sub程序运行后，单击命令按钮Command1，循环执行的次数为(19)设有如下程序：Private Sub Command1_Click()Dim m As Integer, n As Integerm = 1For n = 1 To 5m = m * nIf m > 15 ThenExit ForElsen = n + 1End IfNext nPrint m; nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(20)设有如下程序：Private Sub Form_Click()Dim a, k As IntegerDim n As Integer, s As Integera = Array(1, 1, 1, 2, 2, 2)For k = LBound(a) To UBound(a)n = n + ks = s + a(k)NextPrint n; sEnd Sub程序运行后，如果单击窗体，那么在窗体上输出的内容为：(21)窗体上有一个文本框，用于接收正整数。

计算机二级《VB》考题与答案计算机二级《VB》考题与答案 1单选题(每小题1分共30分)在微机中，1MB准确等于__B__。

A、 1024×1024个字B、 1024×1024个字节C、 1000×1000个字节D、 1000×1000个字十进制整数100化为二进制数是_A___。

A、 1100100B、 1101000C、 1100010D、 1110100 计算机病毒是指___C_ 。

A、带细菌的磁盘B、已损坏的磁盘C、具有破坏性的特制程序D、被破坏的程序计算机的主存储器是指 __C__。

A、RAM和磁盘B、ROMC、ROM和RAMD、硬盘和控制器下列描述中不正确的是_B___。

A、多媒体技术最主要的两个特点是集成性和交互性B、所有计算机的字长都是固定不变的，都是8位C、通常计算机的存储容量越大，性能就越好D、各种高级语言的翻译程序都属于系统软件在_C___视图下可以插入页眉和页脚。

A、普通B、大纲C、页面D、主控文档8.关于Word的常用工具栏，下面说法正确的是( C )。

A.不包括文档建立B.不包括打印预览C.不包括自动滚动D.不能设置字体9、在Windows的回收站中，可以恢复 __A__。

A、从硬盘中删除的文件或文件夹B、从软盘中删除的文件或文件夹C、剪切掉的文档D、从光盘中删除的文件或文件夹10、为获得WINDOWS帮助，必须通过下列途径__D_。

A、在“开始”菜单中运行“帮助”命令B、选择桌面并按F1键C、在使用应用程序过程中按F1键D、A和B都对11、在WORD中查找和替换正文时，若操作错误则__A__。

A、可用“撤消”来恢复B、必须手工恢复C、无可挽回D、有时可恢复，有时就无可挽回12、在Word中，___B___用于控制文档在屏幕上的'显示大小。

A、全屏显示B、显示比例C、缩放显示D、页面显示13、Word在正常启动之后会自动打开一个名为___D___的文档。

2013年计算机二级vb考试答案一、单项选择题（每题1分，共20分）1. VB中，以下哪个函数用于计算字符串的长度？A. LenB. UCaseC. LCaseD. Mid答案：A2. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A3. VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A4. 在VB中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. KeyDown5. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. TrimD. StrComp答案：A6. 在VB中，以下哪个关键字用于循环遍历数组中的每个元素？A. For EachB. ForC. Do WhileD. Do Until答案：A7. VB中，以下哪个控件用于选择一个日期？A. LabelB. TextBoxC. Date PickerD. ComboBox答案：C8. 在VB中，以下哪个事件用于响应文本框内容的变化？A. ClickB. ChangeC. KeyPressD. KeyDown答案：B9. VB中，以下哪个函数用于获取当前日期？B. DateC. TimeD. Year答案：B10. 在VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. FunctionD. Sub答案：B11. VB中，以下哪个控件用于显示图像？A. PictureBoxB. LabelC. TextBoxD. ComboBox答案：A12. 在VB中，以下哪个事件用于响应表单的加载？A. LoadB. ClickC. ChangeD. KeyDown答案：A13. VB中，以下哪个函数用于获取系统时间？A. NowB. DateC. Time答案：C14. 在VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. DimD. Const答案：B15. VB中，以下哪个控件用于选择多个选项？A. CheckBoxB. RadioButtonC. ComboBoxD. ListBox答案：D16. 在VB中，以下哪个事件用于响应鼠标按下？A. ClickB. MouseDownC. MouseUpD. MouseMove答案：B17. VB中，以下哪个函数用于去除字符串两端的空格？A. TrimB. UCaseC. LCaseD. Mid答案：A18. 在VB中，以下哪个关键字用于声明函数？A. FunctionB. SubC. DimD. Const答案：A19. VB中，以下哪个控件用于选择一个范围的值？A. LabelB. TextBoxC. TrackBarD. ComboBox答案：C20. 在VB中，以下哪个事件用于响应鼠标移动？A. ClickB. MouseDownC. MouseMoveD. MouseUp答案：C二、填空题（每题2分，共20分）1. VB中，使用________关键字可以声明一个变量。

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。

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

(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。

运行时的窗体如图所示。

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

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

二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。

窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。

计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。

2013年3月全国计算机等级考试二级VB上机题库第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

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

图1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

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

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

图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。

请编写适当的事件过程，使得在运行时，单击"确定"按钮后实现下面的操作：①根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。