2002年4月全国计算机等级考试二级VB程序设计笔试试卷及答案
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
计算机等级考试二级VB笔试模拟试卷1(含答案)
计算机等级考试二级VB笔试试卷（含参考答案）一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是A) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min 和Max属性分别为0和100。
程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键，即按下Alt及字母O 时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&penC) 把Name属性设置为&OpenD) 把Name属性设置为O&pen(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C） Else分支 D) 程序出错(6) 以下关于MsgBox的叙述中，错误的是A） MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A）Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(9) 以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体(10)以下关于文件的叙述中，错误的是A）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回给文件分配的字节数(11) 以下叙述中错误的是A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x(13) 当一个复选框被选中时，它的Value属性的值是A) 3 B) 2 C) 1 D) 0(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6(15) 设x=4,y=8,z=7，以下表达式的值是x<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A） VVV B) Vis C) sic D) 11(17) 设有如下程序段：x=2For i=1 To 10 Step 2Next运行以上程序后，x的值是A) 26 B) 27 C) 38 D) 57(18) 以下叙述中错误的是A) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符资料来源：东方教育网全国计算机等级考试频道 (19) 执行如下两条语句，窗体上显示的是a=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。
全国计算机等级考试二级VB笔试试题及参考答案
全国计算机等级考试二级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两者的描述对象一样，结果必然在这两者之中。
全国计算机等级考试二级VB笔试全真模拟试卷(答案解析)
一、选择题(每小题2分，共35题，70分)在下列各题的A)、B)、c)、D)四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
1)下列关于算法复杂度描述正确的是。
A)算法的时间复杂度是指算法执行的时间B)算法的空间复杂度是指执行这个算法所需的内存空间C)一个算法的空间复杂度大，则其时间复杂度必定大D)一个算法的空间复杂度大，则其时间复杂度必定小答案：B) 【解析】算法的时间复杂度是指执行算法所需的计算工作量。
算法的空间复杂度是指执行这个算法所需的内存空间。
在一个算法的空间复杂度大的情况下，其时间复杂度可能会很大，具体视情况而定；反之亦然。
（2）下列数据结构中属于非线性结构的是A)列队B）线性表C)二叉树D)栈答案：（C) 【解析】线性结构满足两个条件：有且只有一个根结点；每个结点最多只有一个前件，也最多只有一个后件、列、线性表都属于线性结构，二叉树是一种非线性结构，因为除叶子结点外，每个结点都有两个后件，不满足线性结构的条件。
(3)算法的有穷性是指——。
A)算法程序的运行时间是有限的B)算法程序所处理的数据量是有限的C)算法程序的长度是有限的D)算法只能被有限的用户使用答案：(A) 【解析】算法具有5个特性。
①有穷性：一个算法必须(对任何合法的输入值)在执行有穷步之后结束；且每一步都可在有限时间内完成，即运行时间是有限的；②确定性：算法中每一条指令必须有确切的含义，读者理解时不会产生歧义；③可行性：一个算法是可行的，即算法中描述的操作都是可以通过已经实现的基本运算执行有限次来实现；④输入：一个算法有零个或多个输入，这些输入取自于某个特定的对象的集合；⑤输出：一个算法有一个或多个输出。
(5)软件生命周期是指——。
A)软件的开发过程B)软件的运行维护过程C)软件产品从提出、实现、使用维护到停止使用退役的过程D)软件从需求分析、设计、实现到测试完成的过程答案：C) 【解析】通常将软件产品从提出、实现、使用维护到使用、退役的过程称为软件生命周期。
计算机二级考试VB练习题及答案
计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。
2002年(春)VB二级考试笔试卷答案
2002年（春）VB二级考试笔试卷第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在21-30答题号内）21. 下面有关对象属性的叙述中，不正确的是___21___。
A. 一个对象的属性可分位为外观、行为等若干类。
B. 相同属性可能具有不同的数据类型。
C. 一个对象的所有属性都可在属性窗口的列表中进行设置。
D.属性窗口中的属性列表可以按字母序也可按类别排列。
22. 代数式对应的VB表达式是__22___。
A. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)/Sin(x)B. (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)*Sin(x)C. (12*x+5*y-Sqr(Abs(d^3-m^2))/Exp(-x)/Sin(x)D. (12*x+5*y-Sqr(Abs(d^3-m^2)))/e^(-x)/Sin(x)23. 对于“X>Y>Z”，正确的VB逻辑表达式是___23___。
A. X>Y AND Y>ZB. X>Y>ZC. X>Y OR Y>ZD. X>Y AND >Z24. 设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的__24___语句可以使文本框内显示的内容为：5+7=12。
A. text1.text=a+b=cB. text1.text="a+b=c"C. text1.text=a & "+" & b & "=" & cD. text1.text="a"&"+"&"b"&"="&"c"25. 用语句Private Sub Convert(Y As Integer) 定义的Sub过程时，以下不是按值传递的语句是___25___。
全国计算机二级VB模拟试题及答案
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级VB考试怎么考？以下仅供参考！1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的元组个数将(A)A)等于原来关系中的'元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键21.线性表L=(a1,a2,a3,…ai,…an)，下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4，其中度为1,2，3,4的结点个数分别为4,2，1,1。
2002年4月全国计算机等级考试二级笔试试卷
2002年4月全国计算机等级考试二级笔试试卷基础部分和QBASIC语言程序设计一、选择题，(（1）-(40)每题1分，（41）-(50）每题2分，共60分)下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 在计算机中,一个字长的二进制位数是A) 8 B) 16 C) 32 D) 随CPU的型号而定(2) 计算机网络的突出优点是A) 速度快B) 资源共享C) 精度高D) 容量大(3) 计算机网络能传送的信息是:A) 所有的多媒体信息B) 只有文本信息C) 除声音外的所有信息D) 文本和图像信息(4) 切断计算机电源后,下列存储器中的信息会丢失的是:A) RAM B) ROM C) 软盘D) 硬盘(5) 十进制数127转换成二进制数是A) 11111111 B) 01111111 C) 10000000 D) 11111110(6) 要想打印存放在当前盘当前目录上所有扩展名为.TXT 的文件内容, 应该使用的DOS命令为A) DIR *.TXT>PRN B) TYPE *.TXT>PRNC) COPY *.TXT PRN D) COPY *.TXT>PRN(7) 将当前盘当前目录及其子目录中的全部文件(总量不足1.2MB) 复制到一张空的A盘的根目录下,应该使用的DOS命令为A) XCOPY *.*A:\ /M B) XCOPY *.*A:\ /SC) XCOPY *.*A:\ /P D) XCOPY *.*A:\ /A(8) 在C盘根目录下执行PROMPT $p$g命令之后,DOS的提示符变为A) C:> B) C:\> C) C> D) C:\(9) DOS命令"COPY CON DISP"中的CON代表A) 子目录B) 磁盘文件C) 键盘D) 显示器(10) 结构化程序设计所规定的三种基本控制结构是A) 输入、处理、输出B) 树形、网形、环形C) 顺序、选择、循环D) 主程序、子程序、函数(11) 要把高级语言编写的源程序转换为目标程序,需要使用A) 编辑程序B) 驱动程序C) 诊断程序D) 编译程序(12) 英文小写字母d的ASCII码为100,英文大写字母D的ASCII码为A) 50 B) 66 C) 52 D) 68(13) Windows环境下,PrintScreen键的作用是A) 复制当前窗口到剪贴板B) 打印当前窗口的内容C) 复制屏幕到剪贴板D) 打印屏幕内容(14) 在Windows环境下,为了终止应用程序的运行,应A) 关闭该应用程序窗口B) 最小化该应用程序窗口C) 双击该应用程序窗口的标题栏D) 将该应用程序窗口移出屏幕(15) 下列各带有通配符的文件名中,能代表文件XYZ.TXT的是A) *Z.? B) X*.* C) ?Z,TXT D) ?.?(16) 在QBASIC集成开发环境中,要把光标移到当前行末尾,可以使用键盘上的A) Home键B) End键C) PgUp键D) PgDown键(17) 在QBASIC中,"-32768"数据类型是A) 整型常量B) 实型常量C) 双精度型常量D) 字符串型常量(18) 在下列四个QBASIC表达式中,非法的表达式形式是A) A+B=C B) 0=1 C) "345"+12 D) 1/2=0.5(19) QBASIC表达式SQR(4)+ABS(-2)+INT(RND(2))的值是A) 2 B) 4 C) 6 D) 8(20) 在QBASIC中表达式ASC("F")的类型是A) 字符表达式B) 关系表达式C) 算术表达式D) 逻辑表达式(21) 在QBASIC中,下面语句中有非法调用的是A) x=SQN(-1) B) x=FIX(-1) C) x=SQR(-1) D) x$=CHR$(65)(22) 定义有5个整数型元素的数组,正确的语句是A) DIM a(4) AS INTEGER B) OPTION BASE 1:DIM a(5)C) DIM a&(5) D) DIM a(5)AS INTEGER(23) 能打印显示a+b字样的语句是A) PRINT"a";"+";"+b" B) PRINT a+bC) PRINT CHR$(a)+"+"+CHR$(b) D) PRINT STRING$("a+b")(24) 正确的单行自定义函数语句是A) DEF a(x,y)=x^2+y^2 B) DEF fna(x,y)=x^2+y^2 END DEFC) DEF a(x,y)=x^2+y^2 END D) DEF fna(x,y)=a*x+b*y(25) 要使变量x赋值为50到100之间(含50,不含100)的一个随机整数.下面语句正确的是A) x=50+INT(50*RND) B) x=50+INT(51*RND)C) x=INT(49+50*RND) D) x=INT(49+51*RND)(26) 有如下一组程序语句abc$=12abc$=123PRINT abc$,abc运行时的输出结果是A) 123 123 B) 12 12 C) 12 123 D) 显示出错信息(27) 有如下一组程序语句DEFSTR A-CA="12"B="34"C="56"PRINT A+B+C运行时的输出结果是A) "123456" B) 123456 C) 102 D) 显示出错信息(28) 有如下一组程序语句CONST C=5C=5D=C+5PRINT C+D运行时的输出结果是A) 5 B) 10 C) 15 D) 显示出错信息(29) 有如下程序FOR i=1 TO 3FOR j=5 TO i step -1FOR k=j TO 6a=a+1NEXT kNEXT jNEXT iPRINT aEND在运时输出a的值是A) 12 B) 14 C) 43 D) 60(30) 有如下程序INPUT op$IF op$="+" THEN a=a+2IF op$="-" THEN a=a-2PRINT op$;aEND运行时从键盘输入-,输出结果是A) - -2 B) - 0 C) +2 D) +0(31) 有如下程序a=5IF a<=3 THENPRINT 3;END IFIF a<=4 THENPRINT 4;END IFIF a<=5 THENPRINT 5;END IFIF a<=6 THENPRINT 6;END IFPRINTEND运行后输出结果是A) 3 4 5 6 B) 4 5 6 C) 5 6 D) 6(32) 有如下程序a=1DO WHILE b<15SWAP a,bb=a+bLOOPPRINT bEND运行后输出的结果是A) 8 B) 13 C) 21 D) 34(33) 有如下程序s$="ABCXYZ": t$="123456"FOR j=1 TO 5 STEP 2PRINT MID$(s$,j,1)+MID$(t$,(j+1)/2,1);NEXT jPRINTEND运行时输出的结果是A）ACY246 B）A2B4C6 C）ABC123 D）A1C2Y3 （34）有如下程序INPUT "Enter a value of a:";aSELECT CASE aCASE IS >2b=a+1CASE IS>3b=a+2CASE IS<5b=a+3CASE ELSEb=a+4END SELECTPRINT a;bEND运行时从键盘输入4 ，输出的结果是A）4 4 B）4 5 C）4 6 D）4 7 （35）有如下程序，a$="apple"m$=MID$(a$,5,1)FOR j=1 TO 4READ b$e=INSTR(b$,m$)s=s+eNEXT jPRINT sDA TA pear,orange,peach,pineappleEND运行时输出的结果是A）4 B）8 C）10 D）14 (36) 有如下程序FOR j=1 TO 30x=2*j-1IF x MOD 3=0 OR x MOD 7=0 THEN s=s+1NEXT jPRINT "s=";sEND运行后输出s的值是A）1 B）13 C）14 D）29（37）有如下程序，sum=0FOR k=1 TO 10IF k<=5 THENsum=sum-kELSEsum=sum+kEND IFNEXT kPRINT sumEND运行时输出的结果是A）0 B）5 C）25 D）55（38）有如下程序，a$="type":b$="mismatch"PRINT LCASE$(a$)+" "+UCASE$(b$)END运行时输出的结果是A）type mismatch B）Type MismatchC）type MISMATCH D）TYPE mismatch(39) 有如下程序j$="":n=1DO WHILE n<7j$=j$+CHR$(64+n)n=n+1LOOPPRINT j$;nEND运行时输出的结果是A）abcdef 6 B）abcdefg 7 C）ABCDEF 7 D）ABCDEFG 7 (40) 有如下程序FOR j=1 TO 4GOSUB s:m=m+1/nNEXT jPRINT m;nENDs:n=j*(j+1)RETURN运行后输出的结果是A）.8 20 B）.75 12 C）1.8 20 D）1.75 12 (41) 有如下程序DIM a$(5)FOR j=0 TO 4READ a$(j)NEXT jPRINT a$(1)+a$(2)+a$(3)DA TA "1","2", "3","4","5"END运行后输出的是A）123 B）234 C）1 2 3 D）2 3 4 （42）有如下程序j=2FOR k=6 TO 2 STEP -1READ a(k)j=j+1NEXT kDA TA 9,7,5,3,1DO WHILE j>2PRINT a(j);j=j-1LOOPEND运行时输出的结果是A）1 3 5 7 9 B）0 9 7 5 3C）0 1 3 5 7 D）9 7 5 3 1 （43）有如下程序DIM a(3,3) AS INTEGERFOR m=1 TO 3FOR n=1 TO 3a(m-1,n-1)=m+n+1NEXT nNEXT mFOR m=0 TO 2FOR n=0 TO 2PRINT a(n,m);NEXT nPRINTNEXT mENDA）0 1 2 B）1 2 3 C）1 3 5 D）2 4 61 2 3 2 3 4 3 5 7 4 6 82 3 4 3 4 5 5 7 9 6 8 10 （44）有如下程序n=3FOR K=3 TO 1 STEP -1x$=STRING$(k,"!")PRINT n; x$;n=n-1NEXT KEND运行时输出的结果是A）3！！！2！！1! B）1!2!!3!!! C）3!!2! 1 D）2!!!1!!0!(45) 有如下程序DECLARE SUB add(x,y)x=1:y=1CALL add((x),(y))PRINT "x=";x;",y=";yENDSUB add(x,y)x=x+yPRINT "x=";x;",y=";yEND SUB运行后的输出结果是A）x=1,y=1 B）x=2,y=1 C）x=1,y=1 D）x=2,y=1 x=2,y=2 x=1,y=1 x=1,y=1 x=2,Y=1 (46) 有如下程序s=0FOR m=1 TO 3IF m<=1 THENs=s+1ELSEIF m<=2 THENs=s+2ELSEIF M<=3 THENs=s+3ELSEs=s+4END IFPRINT s;sum =sum+mNEXT mPRINT sumENDA) 1 2 3 6 B) 1 3 6 6 C) 3 3 3 9 D) 6 6 6 6(47) 在文本模式下，把光标移到第x行的第y个字符所用的语句是A) LOCATE x,y B) PRESET x,y,5C) PSET(x,y) D) POSITION x,y(48) 有以下程序CLSSCREEN 13LINE（20，20）-（120，120），5，BFEND执行的结果，屏幕上显示A) 一条直线B) 一个正方形线框C) 一个填满某种颜色的正方形块D) 没有显示(49) 有如下程序CLSSCREEN 1，0PSET （100，100），1DRAW "u30;r30;g30"END运行后屏幕上显示的是A) 一个空心矩形B) 一条折线C) 一个空心三角形D) 一个填满某种颜色的三角形块（50）有如下程序m$="123"n$="456"k$=LCASE$(m$)j$=UCASE$(n$)PRINT ASC(k$),ASC(j$)END运行时输出的结果是A) 123 456 B) !@# $%^ C) 49 52 D) 33 36二、填空题请将每一个空的正确答案写在答题卡【1】至【20】序号的横线上, 答在试卷上不得分. (1) 为了要将当前盘目录中的可执行程序ABC.EXE的输出结果存放到当前盘当前目录中的文件OUT.TXT中,则应使用的DOS命令为【1】。
全国计算机等级考试二级Visual+Basic语言程序设计真题精选5(含答案)
全国计算机等级考试二级Visual+Basic语言程序设计真题精选5一、单项选择题1.窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。
运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（）。
A.AB.aC.C √D.c解析：KeyUp事件的KeyCode参数返回的是“键值”，不区分大小写。
Chr函数用来返回以数值表达式值为编码的字符。
Ucase函数用来转换大小写。
所以变量c=UCase（“a”）=“A”。
Asc（c）返回变量c中的第一个字符的ASCII，加2后，再由Chr函数转为字符，变为了“C”。
4.设工程文件包含两个窗体文件，两个窗体上分别只有一个名称为Command1的命令按钮Form1的代码如下：Module1的代码如下：对以上程序，下列叙述中错误的是（）。
A.x是用户定义的类型B.InputBox函数弹出的对话框中没有提示信息C.若输入的是偶数，y.b的值为该偶数的平方D.把√解析：Fix函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五入。
A项正确，X是用户定义的一种变量类型，可以使用它来声明变量；B项正确，InPutBox的格式为InPutBox（“提示信息”）；C项正确，偶数被2整除和被2除的值相等，如果为偶数，那么Y.b的值就是Y.a的值的平方。
6.设x是整型变量，与函数在窗体上画一个命令按钮，然后编写如下事件过程：（“请输入一个字符串”）上述事件过程的功能是将List1中被选中的列表项添加到List2中。
运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（）。
A.将ForB.将改为C.将改为√D.将改为解析：列表框控件的List属性为保存了列表框中所有值的数组，可以通过下标访问数组中的值，应当将改为List属性来获取List1中每个选中的行。
国家二级VB程序设计题带答案
Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。
实现功能：假设有一个5位数密码。
只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。
说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。
如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
计算机二级VB练习题附答案
计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。
A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。
窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。
属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。
2、组合框是文本框和( )特性的组合。
A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。
组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。
3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。
A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。
VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。
4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。
外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。
模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。
计算机二级VB考试题含答案
计算机二级VB考试题含答案计算机二级VB考试题含答案计算机二级VB考试题及答案1.以下能判断指针是否指向文件尾的函数是(D)(单)A.BOFB.LOCC.LOFD.EOF2.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)A.如果工程中含有SubMain过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体3.窗体的过程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs Single)，有4个参数，关于这些参数，正确的描述是(D)(单)A.通过Button参数判定当前按下的是键盘上哪一个键B.Shift参数只能用来确定是否按下Shift键C.Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x,y用来设置鼠标当前位置的坐标4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)bo1.RemoveItemTextbo1.RemoveItem2bo1.RemoveItem3bo1.RemoveItemCombo1.Listcount5.以下关于焦点的叙述中，错误的是(A)(单)A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据B.当文本框失去焦点时，触发LostFocus事件C.当文本框的Enabled属性为False时，其Tab顺序不起作用D.可以用TabIndex属性改变Tab顺序6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)A.=B.*C.&D.-7.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=val(Text1.Text)SelectCasenCase1To20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)A.10B.20C.30D.408.设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是(A)(单)A.若"条件"是一个为0的常数，则一次也不执行循环体B."条件"可以是关系表达式、逻辑表达式或常数C.循环体中可以使用ExitDo语句D.如果"条件"总是为True，则不停地执行循环体9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)A.13.45.8B.135C.147D.无数据输出10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1s=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)A.79B.340C.97D.死循环11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)A.105B.205C.2040D.104012.设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextIEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=iNextICallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)A.10B.15C.25D.2413.在窗体上画一个名称为Command1的`命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)A.89B.99C.23D.7714.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。
二级vb笔试题库
1 二级vb 题库全国计算机等级考试52000. 下列叙述中正确的是(C)(单) A.只有窗体才是Visual Basic 中的对象 B.只有控件才是Visual Basic 中的对象 C.窗体和控件都是Visual Basic 中的对象D.窗体和控件都不是Visual Basic 中的对象52001.下列可以激活属性窗口的操作是(D)(单) A.用鼠标双击窗体的任何部位 B.执行"文件"菜单中的"属性窗口"命令C.执行"编辑"菜单中的"属性窗口"命令D.按F4 键52002 下列能打开工具箱窗口的操作是(A)(单) A.执行"视图"菜单中的"工具箱"命令B.按Alt 键C.单击属性窗口上的"工具箱"按钮 D.按Ctrl 键52003.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name 属性，预先应执行的操作是(D)(单) A.单击窗体上有控件的地方 B.单击任一个控件 C.不执行任何操作D.双击窗体的标题栏52004.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单) A.单击窗体的空白处 B.单击该控件的内部 C.双击该属性列表框 D.双击窗体52005.确定一个控件在窗体上的位置的属性是(D)(单) A.Width 或Height B.Top 和Height C.Top 或Width D.Top 和Left 52006.确定一个窗体或控件的大小的属性是(A)(单) A.Width 或Height B.Top 和Width C.Top 或Left D.Top 和Left 52007.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单) A.拖拉位于控件左上角 B.只能拖拉位于控件右下角 C.只能拖拉位于控件左下角 D.不能同时改变控件的高度和宽度52008.面向对象的程序设计指满足(B)(单) A.虚拟化、结构化、动态化 B.封装性、继承性、多态性 C.对象的链接、动态链接、动态数据交换 D.ODBC、DDE、OLE 52009.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单) A.面向对象的程序设计 B.结构化程序设计 C.事件驱动的编程机制 D.程序设计52010.VB 集成开发环境开发的应用程序不适宜的运行环境是(A)(单) A.WINDOS 32 B.WINDOWS 9X 2C.WINDOWS NTD.WINDOWS 2000 52011.VB6 共有三个版本，按功能从弱到强的顺序排列应是(C)(单) A.学习版、专业版和工程版 B.学习版、工程版和专业版 C.学习版、专业版和企业版 D.学习版、企业版和专业版52012.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单) A.设计状态B.编写代码状态C.运行状态D.中断状态52013.不能打开代码窗口的操作是(B)(单) A.双击窗体设计器的任何地方 B.按下F 键 C.单击工程窗口中的"查看代码"按钮 D.选择"视图"下拉菜单中的"代码窗口" 52014.在VB 中，工程文件的扩展名是(B)(单) A..frm B..vbp C..bas D..frx 52015.在VB 中，窗体文件的扩展名是(A)(单) A..frm B..vbp C..bas D..frx 52016.VB 集成开发环境可以(D)(单) A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序52017.英文"VISUAL"的含义是(A)(单) A.可视化B.集成C.结构化D.调试52018.标准模块文件的扩展名是(C)(单) A.frm B.vbp C.bas D.vbg 52019.VB 集成开发环境中，在(C)中编写代码(单) A.状态栏B.属性列表框C.代码框D.标题栏52020.在面向对象的程序设计过程中，英文缩写"OOP"的含义是(C)(单) A.事件驱动的编程机制 B.结构化程序设计语言 C.面向对象的程序设计D.可视化程序设计52021.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5 秒发生一次计时器事件，则以下正确的属性设置语句是(D)(单) A.Timer1.Interval=0.5 B.Timer1.Interval=5 C.Timer1.Interval=50D.Timer1.Interval=500 52022.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Static x As Integer Cls For t=1 To 2 y=y+x x=x+2 Next t Print x,y 3 End Sub 程序运行后，连续三次单击Command1 按钮后，窗体上显示的是(A)(单) A.4 2 B.12 18 C.12 30 D.4 6 52023.以下关于多重窗体程序的叙述中，错误的是(A)(单) A.用Hide 方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体52024.以下关于文件的叙述中，错误的是(B)(单) A.顺序文件中的记录一个接一个顺序存放 B.随机文件中记录的长度是不相同的 C.执行打开文件的命令后，自动生成一个文件指针D.EOF 函数作用是判断文件的指针是否指向文件末尾52025.以下叙述中错误的是(D)(单) A.事件过程是响应特定事件的一段程序 B.不同的对象可以具有相同名称的方法 C.对象的方法是执行指定操作的过程 D.编程者可以自由更改代码框右上边的过程列表的事件名称52026.以下合法的Visual Basic 变量的名称是(A)(单) A.a3 B.Const C.9abc D.a#x! 52027.当一个复选框被选中时，它的Value 属性的值是(C)(单) A.3 B.2 C.1 D.0 52028.表达式 5 Mod 3+5\3 的值是(B)(单) A.0 B.3 C.4 D.6 52029.设x=4,y=8,z=7, 表达式：(x＜y) Or z＜x 的值是(C)(单) A.1 B.-1 C.TRUE D.FALSE 52030.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )a$="VisualBasic" Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单) A.VVV B.VisC.sicD.11 52031.设有如下程序段：x=2 For c=1 To 4 Step2 x=x+c Next c 运行以上程序后，x 的值是(A)(单) A.6 B.7C.8D.9 52032.以下叙述中错误的是(A)(单) A.在KeyPress 事件过程中不能识别键盘键的按下与释放 B.在KeyPress事件过程中不能识别回车键 C.在KeyDown 和KeyUp 事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode 视作相同的字 4 母 D.在KeyDown 和KeyUp 事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符52033.执行如下两条语句，窗体上显示的是(C)(单) A=9.8596 Print Format(a,"000.00") A.0,009.86 B.9.86 C.009.86 D.0,009.86 52034.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1 的命令按钮。
计算机二级vb考试试题及答案
计算机二级vb考试试题及答案1. 简单应用(2小题，每题20分，计40分)注意：下面出现的"考生文件夹"均为*********************************************************** ***** *(1)在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他局部。
存盘时不得改变文件名和文件夹。
此题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为"复制"。
要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"。
如果选择列表框中的一项，那么单击"复制"按钮时，可以把该项复制到文本框中。
(2)在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其它局部。
存盘时不得改变文件名和文件夹。
此题描述如下：在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。
要求程序运行后，如果选中某个复选框，那么当单击"显示"命令按钮时，那么显示相应的信息。
例如，如果选取中"体育"和"音乐"复选框，那么单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"(如下图);而如果选中"体育"、"音乐"和"美术"复选框，那么单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐美术"。
全国计算机二级考试《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考试题及答案计算机二级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亿。
国家二级(VB)机试历年真题试卷汇编1(题后含答案及解析)
国家二级（VB）机试历年真题试卷汇编1(题后含答案及解析) 题型有：1. 选择题 2. 基本操作题 3. 简单应用题 4. 综合应用题选择题1．程序流程图中带有箭头的线段表示的是( )。
A．图元关系B．数据流C．控制流D．调用关系正确答案：C解析：在数据流图中，用标有名字的箭头表示数据流。
在程序流程图中，用标有名字的箭头表示控制流。
所以选择C。
2．结构化程序设计的基本原则不包括( )。
A．多态性B．自顶向下C．模块化D．逐步求精正确答案：A解析：结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用goto语句，所以选择A。
3．软件设计中模块划分应遵循的准则是( )。
A．低内聚低耦合B．高内聚低耦合C．低内聚高耦合D．高内聚高耦合正确答案：B解析：软件设计中模块划分应遵循的准则是高内聚低偶合、模块大小规模适当、模块的依赖关系适当等。
模块的划分应遵循一定的要求，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性强，易于理解和维护。
模块之问的耦合应尽可能的低，模块的内聚度应尽可能的高。
4．在软件开发中，需求分析阶段产生的主要文档是( )。
A．可行性分析报告B．软件需求规格说明书C．概要设计说明书D．集成测试计划正确答案：B解析：A错误，可行性分析阶段产生可行性分析报告。
C错误，概要设计说明书是总体设计阶段产生的文档。
D错误，集成测试计划是在概要设计阶段编写的文档。
B正确，软件需求规格说明书是后续工作如设计、编码等需要的重要参考文档。
5．算法的有穷性是指( )。
A．算法程序的运行时间是有限的B．算法程序所处理的数据量是有限的C．算法程序的长度是有限的D．算法只能被有限的用户使用正确答案：A解析：算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。
有穷性是指算法程序的运行时间是有限的。
6．对长度为n的线性表排序，在最坏情况下，比较次数不是n(n-1)／2的排序方法是( )。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、选择题1~35题每题2分，共70分。
下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1．下列不能打开属性窗口的操作是（）。
A）执行“视图”菜单中的“属性窗口”命令B）按F4键C）按Ctrl+TD）单击工具栏上的“属性窗口”按钮。
2．下列可以打开立即窗口的操作是（）。
A）Ctrl+DB）Ctrl+EC）Ctrl+F D）Ctrl+G3．InputBox函数返回值的类型为（）。
A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）4．可以同时删除字符串前导和尾部空白的函数是（）。
A）LtrimB）RtrimC）TrimD）Mid5．表达式4+5 6 * 7 / 8 Mod 9 的值是（）。
A）4B）5C）6D）76．如果在立即窗口中执行以下操作：a=8 <CR> （<CR>是回车键，下同）b=9 <CR>print a>b <CR>则输出结果是（）。
A）-1B）0C）FalseD）True7．以下语句的输出结果是（）。
Print Format $(32548.5,“000,000.00”)A）32548.5B）32,548.5C）032,548.50D）32,548.508．执行以下程序段后，变量c$的值为（）。
a$="Visual Basic Programing"b$="Quick”c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)A）Visual BASIC ProgramingB）Quick Basic ProgramingC）QUICK Basic ProgramingD）Quick BASIC Programing9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A）ValueB）DefaultC）CancelD）Enabled10．为了把焦点移到某个指定的控件，所使用的方法是（）。
A）SetFocusB）VisibleC）RefreshD）GetFocus11．设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（）。
A）5B）6C）0D）-112．执行下面的程序段后，x 的值为（）。
x=5For i=1 To 20 Step 2x=x+i5Next iA）21B）22C）23D）2413．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3 x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（）。
A）7B）15C）157D）53814．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（）。
A）2B）3C）14D）1515．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text=""Text2.Text=""End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。
A）444B）321123C）123321D）13223116．阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为（）。
A）3B）9C）14D）2117．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是（）。
A）在文本框Text1中输出55B）在文本框Text1中输出0C）出错D）在文本框Text1中输出不定值18．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A）1和0B）2和72C）3和50D）4和16819．用下面语句定义的数组的元素个数是（）。
Dim A (-3 To 5) As IntegerA）6B）7C）8D）920．以下程序的输出结果是（）。
Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd subA）33B）28C）35D）3721．在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint s运行上面的程序，单击命令按钮，其输出结果是（）。
A）4321B）12C）34D）123422．在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub Commandl_Click( )Dim a(4,4)For i =1 To 4For j =1 To 4a(i,j) = (i-1)*3+jNext jNext iFor i =3 To 4For j =3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为（）。
A）6 9 B）7 107 10 8 11C）8 11 D）9 129 12 10 1323．假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/yy =t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5b =4S a,bEnd Sub程序运行后，单击命令按钮，输出结果为（）。
A）5 4B）1 1C）1.25 4D）1.25 124．阅读程序：Function F(a As Integer)b = 0Static cb = b+1c = c+1F = a+b+cEnd FunctionPrivate Sub Commandl_Click ()Dim a As Integera =2For i =1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（）。
A）4 B）4 C）4 D）44 5 6 74 6 8 925．阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（）。
A）2 B）5 C）10 D）出错4 6 126 7 148 8 1626．下列不能打开菜单编辑器的操作是（）。
A）按Ctrl+EB）单击工具栏中的“菜单编辑器”按钮C）执行“工具”菜单中的“菜单编辑器”命令D）按Shift + Alt + M27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。
A）MenuItem. Enabled=FalseB）MenuItem. Enabled=TrueC）MenuItem. Visible=TrueD）MenuItem. Visible=False28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）。
A）MoveB）ChangeC）ScrollD）GetFocus29．假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（）。
A）Label1. BackStyle=0Label1.Borderstyle=0B）Label1.BackStyle=1Label1.Borderstyle=1C）Label1.BackStyle=TrueLabel1.BorderStyle=TrueD）Label1.BackStyle=FalseLabel1.Borderstyle=False30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load ()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"Listl.AddItem"456"Text1.Text=""End SubPrivate Sub List1_ DblClick ( )a =List1.TextPrint a+Text1.TextEnd Sub程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（）。