2011年普通高中信息技术学业水平考试VB题集训练
2011年3月全国计算机等级考试二级VB笔试试卷及答案
2011年3月全国计算机等级考试二级vb笔试试卷（考试时间 90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）下列关于栈叙述正确的是A）栈顶元素最先能被删除 B）栈顶元素最后才能被删除C）栈底元素永远不能被删除 D）以上三种说法都不对答案：A解析：栈的特点是“先进后出，后进先出”的线性结构，进栈又称为入栈最先进入栈的数据元素会被压入栈底，最后进入栈的元素所在位置称为栈顶，出栈又称为退栈即将元素从栈中删除，将元素退栈是先将栈顶的元素退栈，对于栈的运行原理可参考快动网公共基础知识视频教程。
所以上边选项正确的是A。
（2）下列叙述中正确的是A）有一个以上根结点的数据结构不一定是非线性结构B）只有一个根结点的数据结构不一定是线性结构C）循环链表是非线性结构D）双向链表是非线性结构B）【解析】在数据结构中，树这类的的数据结构只有一个根结点，但它不是线性结构。
解析：A错误，符合线性结构的特点是：（1）有且只有一个根结点（2）每一个结点最多只有一个前件，也最多只有一个后件，根据题意不一定是非线性结构即指的是线性结构，那么根据线性结构的特点只有一个根结点，所以选项A叙述错误。
B正确，比如二叉树是一个非线性结构，二叉树就是一个根结点，所以该选数正确。
C和D叙述错误，循环链表和双向链表都是线性结构。
（3）某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）A）3 B）4 C）6 D）7D）【解析】根据二叉树的性质，度为0的结点（即叶子结点）总是比度为2的结点多一个。
题目中的二叉树的叶子结点为1，因此度为2的结点的数目为0，因而这个二叉树的深度为7。
解析：根据二叉树的性质，叶子结点即度为0的结点个数总比度为2的结点个数多1，根据题目内容可知度为2的结点个数为0，因为叶子结点只有1个，由于二叉树的结点类型有三种：度为0，度为1，度为2，根据题目内容可知二叉树共有7个结点所以度为1的结点个数是6，度为1表示结点只有一个分支，这个分支可以是左子树或右子树，我们画一下该二叉树的图为：（4）在软件开发中，需求分析阶段产生的主要文档是A）软件集成测试计划 B）软件详细设计说明书C）用户手册 D）软件需求规格说明书D）【解析】在软件开发过程中，需求分析阶段产生的主要文档是软件需求规格说明书。
2011学业水平考试信息技术真题一
2010年7月山东省高中信息技术学业水平测试真题（一）1.下列属于信息技术应用例子的是（）①网上购物②无土栽培③移动电话④刷卡消费⑤机器人A.①②③④B. ①③④⑤C.①②③⑤D.①②④⑤2.下列文件的扩展名中，表示视频文件的是（）A.AVIB.WAVC.XLSD.PSD3.张明家想购买一台“海尔”冰箱，希望能从互联网上找到该品牌某型号产品的具体的参数的准确信息。
它获取信息的最佳方式为（）A.在“百度”中输入“海尔冰箱”作为关键词进行搜索B.登录家电产品论坛询问网友C.在“海尔”官方网站D.向同学咨询4.“明修栈道，暗渡陈仓”主要体现了信息那个特征？（）A.真伪性B.共享性C.价值性D.载体依附性5.股市行情大盘走势图所采用的图表类型为（）A.面积图B.条形图C.折线图D.饼图6.要建立“学校发展历程”的研究性学习专题网站，下面比较合理的信息集成过程是（）①收集反馈信息，评价修改②确定主题，设定目标③规划内容结构，收集加工素材④选择适当工具实际制作A.③②①④B.②①④③C.①③②④D.②③④①7.Excel工作表中，B2：E6单元格区域包含的行数和列数分别是（）A.5，4B.2,6C.6,2D.4,58.王选院士主持研制的“汉字激光照排系统”属于第（）次信息技术革命A.二B.三C.四D.五9.下列不属于信息资源管理的是（）A.分类建立电子书库B.上网看电影C.创建电子通讯录D.创建网页素材库10.以下问题最适合用计算机编程方法来处理的是（）A.记录同学们参加社区服务的场景B.在因特网上查找自己喜欢的歌曲C.书写并编辑作为文稿D.计算10000以内偶数的平方和11.王磊准备给朋友发送一封电子邮件，他需要了解的信息是（）A.对方是否在线B.对方电子邮箱的密码C.对方电子邮箱的地址D.对方的家庭住址12.超市收银员用扫描器直接扫描商品的条形码，商品的价格信息就会呈现出来，这主要利用了人工智能中的（）技术。
二级VB真题2011年3月
[真题] 二级VB真题2011年3月一、选择题(每小题2分，共70分) 下列各题[A]、[B]、[C]、[D] 四个选项中，只有一个选项是正确的。
第1题：下列关于栈叙正确的是( )。
A.栈顶元素最先能被删除B.栈顶元素最后才能被删除C.栈底元素永远不能被删除D.以上三种说法都不对参考答案：A栈是先进后出的线性表，栈顶的元素最先被删除，栈底的元素最后被删除。
第2题：下列叙述中正确的是( )。
A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构参考答案：B在数据结构中，树这类的的数据结构只有一个根结点，但它不是线性结构。
第3题：某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为(假设根结点在第1层)( )。
A.3B.4C.6D.7参考答案：D根据二叉树的性质，度为0的结点(即叶子结点)总是比度为2的结点多一个。
题目中的二叉树的叶子结点为1，因此度为2的结点的数目为0，因而这个二叉树的深度为7。
第4题：存软件开发中，需求分析阶段产生的主要文档是( )。
A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书参考答案：D在软件开发过程中，需求分析阶段产生的主要文档是软件需求规格说明书。
第5题：结构化程序所要求的基本结构不包括( )。
A.顺序结构B.GOTO跳转C.选择(分支)结构D.重复(循环)结构参考答案：B结构化程序的基本结构有：顺序结构、选择结构和循环结构，没有GOTO跳转结构。
第6题：下面描述中错误的是( )。
A.系统总体结构图支持软件系统的详细设计B.软件设计是将软件需求转换为软件表示的过程C.数据结构与数据库设计是软件设计的任务之一D.PAD图是软件详细设计的表示工具参考答案：A软件设计是将软件需求转换为软件表示的过程；数据结构与数据库设计是软件设计的任务之一；PAD图，即问题分析图，是一种主要用于描述软件详细设计的图形工具。
高中信息专业技术VB专项题(学考)
1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。
如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。
现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:(1)为实现上述功能,请在画线处填入正确的代码。
Private Sub Command1_Click()Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer, d As Integers = 0For i = 1 000 To 9 999①'取出个位数字b = (i Mod 100)\10 '取出十位数字c = i \ 100 Mod 10 '取出百位数字d = i \ 1 000 '取出千位数字If a ^ 4+ b ^ 4 + c ^ 4 + d ^ 4 = i ThenList1.AddItem is =②End IfNextLabel2.Caption = ″四叶玫瑰数共有″+ Str(s) + ″个″End Sub(2)程序中的语句“b = (i Mod 100) \ 10”和下列哪些项功能相同(多选)。
A.b=i\10 Mod 10B.b=int(i/10) Mod 10C.b = i Mod 100\10D.b=Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。
单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。
图1 图2在以下Visual Basic程序的画线①②处填入合适的语句,实现上述功能。
2011年普通高中信息技术学业水平考试VB题集训练
4、标签控件主要用来显示不希望被用户修改的文本；用来显示文字内容用 label1.caption=”文字内容”用来显示计算结果用 label1.caption=4*sqr(x)5、文本控件是一个文本编辑区域，用户可以该区域中输入、编辑和显示文本内容；用来输入给变量赋值 x=text1.text用来显示文字内容用 text1.text=”文字内容”用来显示计算结果用 text1.text=” 4*sqr(x)6、VB中的文件可能有.vbp文件 .frm文件 .ocx文件 .bas文件；.vbp与VB工程有关的文件和对象清单，是一个文本文件.frm包含窗体及控件的属设计设置、相关程序代码文件.ocx ActiveX控件文件，为VB提供扩展控件.bas标准模块文件7、面向对象的程序设计以对象为中心，以事件为过程执行的起点；方法是对象能够执行的操作。
对应中文说明英文属性名中文说明名称名称属性backcolor背景颜色backstyle背景透明borderstyle边框线caption标题Text用于设置text中的文本内容enabled能否响应font字体forecolor前景色（字体色）height高度left离左边界的距离top离顶端的距离visible是否可见width宽度passwordchar文本框中显示密码的符号Mutiline多行文本scrollbar滚动条autosize自动调整大小value中的默认选中二、题型：填空：1、VB中用的文件名可能是。
2、VB程序设计方法面向对象，事件驱动。
3、在窗体中插入一个标签（Label）控件后，通过改变它的属性，可将内容变为“信息技术”；4、若要设置文本框中所显示的文本颜色，使用的属性是：5、属于文本框控件的是，。
6、单精度型为 。
7、VB程序设计问题，在窗体上画一个文本框，然后编写如下事件过程：Private sub form click()X=inputbox(“请输入一个整数”)Print x+text1.textEnd sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是。
2011年全国计算机等级考试二级VB模拟试卷（四）参考答案
2011年全国计算机等级考试二级VB模拟试卷（四）参考答案2011年全国计算机等级考试二级VB模拟试卷(四)参考答案一、选择题：35题，2分/题，共70分下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.执行以下程序段后,变量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 Programing分析:2.不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（）A)A*B=0 and A+B<>0B)(A=0 or B=0)and (A<>0 OrB<>0)C)not(A=0 And B=0) and (A=0 or B=0)D)A*B=0 and (A=0 or B=0)分析:3. 下面子过程语句说明合法的是（）A)Function fl(ByVal n%)B)Sub fl (n%)As IntegerC)Function fl%(fl%)D)Sub fl(ByVal n%())分析:4.对窗体编写如下代码：Option Base 1Private Sub Form _KeyPress(KeyAscii As Integer) a=Array (237,126,587,48,498)ml=a(1)m2=1If KeyAscii=13ThenFor i=2 To 5If a (i)>ml Thenml=a (i)m2=iEnd IfNext iEnd IfPrint ml;print m2End Sub程序运行后，按回车键，输出结果为（）A)48 4B)237 1C)587 3D)498 4分析:5.Visual Basic 中没有提供下列（）事件A)MouseDownB)MouseUpC)MouseMoveD)MouseExit分析:6.执行下面对面的程序后，X的值为（）x=50Fox i=1 To 20 Step 2Next iA)66B)67C)68D)69分析:7.为了防止用户随意将光标置于控件之上，需做的工作是（）A)将控件的Enabled属性设置为FalseB)将控件的TabStop属性设置为FalseC)将控件的TabStop属性设置为TrueD)将控件的TabIndex属性设置为0分析:8.表达式String(2,"Shanghai")的值是（）A) ShB) ShanghaiC) ShanghaiShanghaiD) SS分析:9.为了在按回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A) valueB) DefaulC) CancelD) Enabed分析:10.visual Basic 提供的缺省窗体包含（）A) 标题栏B)菜单栏C)工具条分析:11.假定有一个菜单项，名为MenuItem,为了在运行时该菜单项失效（变灰），应使用的语句为（）A)MenuItem.Enabled=FalseB)MenuItem.Enabled=TrueC)MenuItem.Visible=TrueD)MenuItem.Visible=False分析:12.下列不能打开菜单编辑器的操作是（）A)按Ctrl+EB)单击工具栏中的“菜单编辑器”按钮C)执行“工具”菜单中的“菜单编辑器”命令D)按Shift+Alt+M分析:13.列表框（如图2-6所示）经过下列操作后，剩余的项目是（）Listl.RemoveItem lListl.RemoveItem 2Listl.RemoveItem lA)aaB)bbC)ccD)dd分析:14.要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）A)VisibleB)TimerC)EnabledD)Interval分析:15.InputBox函数返回值的类型为（）A)数值B)字符串C)变体D)数值或字符串（视输入的数据而定）分析:16.当窗体的AutoRedraw属性采用默认值时，若在窗体装入时使用绘图方法绘制图形，则应将程序放在（）A)Paint事件B)Load事件C)Initilize事件D)Click事件分析:17.下列可以打开立即窗口的操作是（）A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G分析:18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜单中的（）命令A)引用B)部件C)工程属性D)添加窗体分析:19.若要清除列表框的所有内容，可用来实现的方法是（）A)RemoveitemB)ClsC)ClearD)以上均不可以分析:20.假定有下面的过程：Function Func(a As Integer,b As Integer)As IntegerStatic m As Integer, i As Integerm = 0i = 2i = i + m +1m = i + a + bFunc = mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim k As Integer, m As IntegerDim p As Integerk=4m=1p=Func(k,m)Print p;p=Func(k,m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为（）。
2011年3月全国计算机二级VB考试真题
2011年3月全国计算机二级VB考试真题2011全国计算机等级考试二级VB考试真题一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
(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则由关系R得到关系T的操作是A)选择B)投影C)交D)并(11)在Visual Basic集成环境中,可以列出工程中所有模块名称的窗口是_________(A)工程资源管理器 (B)窗体设计窗口(C)属性窗口 (D)代码窗口(12)假定编写了如下4个窗体事件的事件过程,则运行应用程序并显示窗体后,已经执行的事件过程是___(A)Load (B)Click (C)LostFocus (D)KeyPress(13)为了使标签具有"透明"的显示效果,需要设置的属性是___(A)Caption (B)Alignment (C)BackStyle (D)AutoSize(14)下面可以产生20--30(含20和30)的随机整数的表达式是___(A)Int(Rnd*10+20) (B)Int(Rnd*11+20)(C)Int(Rnd*20+30) (D)Int(Rnd*30+20)(15)设窗体上有一个名称为HS1的水平滚动条,如果执行了语句:HS1.Value=(HS1.Max*HS1.Min)/2+HS1.Min则:(A)滚动块处于最左端(B)滚动块处于最右端(C)滚动块处于中间位置(D)滚动块处于任何位置(16)窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是A)Print Cb1.Selected B)Print Cb1.List(Cb1.ListIndex)C)Print Cb1.Selected.Text D)Print Cb1.List(ListIndex)(17)为了在窗体上建立2组单选按钮,并且当程序运行时,每组都可以有一个单选按钮被选中,则以下做法中正确的是_____A)把这2组单选按钮设置为名称不同的2个控件数组 B)使2组单选按钮的Index属性分别相同C)使2组单选按钮的名称分别相同 D)把2组单选按钮分别画到2个不同的框架中(18)如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是______A)它的Y1、Y2属性的值相同 B)它的X1、X2属性的值相等C)它的X1、Y1属性的值分别与X2、Y2属性的值相等D)它的X1、X2属性的值分别与Y1、Y2属性的值相等(19)设a=2,b=3,c=4,d=5,则下面语句的输出是___Print 3>2*b Or a=c And b<>c or c>dA)False B)1 C)True D)-1(20)窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是___A)Print Sub Form1_Click()...End SubB)Print Sub Form_Click()...End SubC)Print Sub Command1_Click()...End SubD)Print Sub Command_Click()...End Sub(21)默认情况下,下面声明的数组的元素个数是___Dim a(5,-2 to 2)A)20 B) 24 C)25 D)30(22)设有如下程序段Dim a(10)...For Each x In aprint x;next x在上面的程序段中,变量x必须是___A)整型变量 B)变体型变量 C)动态数组 D)静态数组(23)设有如下函数过程Private Function Fun(a() as Inteer, b as string) as Integer ...End Function若已有变量声明:Dim x(5) as integer, n as integer, ch as string则下面正确的过程调用语句是___A)x(0)=Fun(x,"ch") B)n=Fun(n,ch)C)Call Fun x,"ch" D)n=Fun(x(5),ch)(24)假定用下面的语句打开文件:Open "File.txt" For Input As #1则不能正确读文件的语句是A)Input #1,Ch$ B)Line Input #1,ch$C)ch$=Input$(5,#1) D)Read #1,ch$(25)下面程序的执行结果是Private Sub Command1_Click()a=10For k=1 To 5 Step -1a=a-kNext kPrint a;kEnd SubA)-5 6 B)-5 -5 C)10 0 D)10 1(26)设窗体上有一个名为Text1的文本框和一个名为Comamand1的命令按钮,并有以下事件过程Private Sub Command1_Click()x!=Val(text1.text)Select Case xCase Is<-10,Is>=20Print "输入错误"Case Is<0Print 20-xCase Is<10print 20Case Is<=20Print x+10End SelectEnd Sub程序运行时,如果在文本框中输入-5,则单击命令按钮后输出结果是___ A)5 B)20 C)25 D)输入错误(27)设有如下程序Private Sub Command1_Click()x=10 : y=0For i=1 to 5Dox=x-2y=y+2Loop Until y>5 Or x<-1NextEnd Sub运行程序,其中Do循环执行的次数是___A)15 B)10 C)7 D)3(28)阅读程序Private Sub Command1_CLIck()Dim arrDim i as integerarr=Array(0,1,2,3,4,5,6,7,8,9,10)For i=0 to 2print arr(7-i);NextEnd Sub程序运行后,窗体上显示的是___A)8 7 6 B)7 6 5C)6 5 4 D)5 4 3(29)在窗体上画一个名为Command1的命令按钮,然后编写以下程序Private Sub Command1_Click()Dim a(10) as integerFor k=10 to 1 Step -1a(k)=20-2*kNext kk=k+7Print a(k-a(k))End Sub运行程序后,单击命令按钮,输出结果是___A)18 B)12 C)8 D)6(30)窗体上有一个名为Command1的命令按钮,并有如下程序: Private Command1_Click()Dim a(10),x%For k=1 to 10a(k)=Int(Rnd*90+10)x=x+a(k) Mod 2Next kprint x程序运行后，单击命令按钮．输出结果是A)10个数中奇数的个数 B)10个数中偶数的个数C)10个数中奇数的累加和 D)10个数中偶数的累加和(31)窗体上有一个名为Command1的命令按钮和一个Timer1的计时器,并有下面的事件过程Private Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Form_Load()Timer1.Interval=10Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()Command1.Left=Command1.Left+10End Sub程序运行时,单击命令按钮,则产生的结果是___A)命令按钮每10秒向左移动一次B)命令按钮每10秒向右移动一次C)命令按钮每10毫秒向左移动一次D)命令按钮每10毫秒向右移动一次(32)设窗体上有一个名为List1的列表框,并编写下面的事件过程Private Sub List1_Click()Dim ch as Stringch=List1.List(List1.ListIndex)List1.RemoveItem List1.ListIndexList1.AddItem chEnd Sub程序运行时,单击一个列表项,则产生的结果是___A)该列表项被移到列表的最前面B)该列表项被删除C)该列表项被移到列表的最后面D)该列表项被删除后又在原位置插入(33)窗体上有一个名为Command1的命令按钮,并有如下程序:private Sub Command1_Click()Dim a as integer,b as integera=8b=12Print Fun(a,b);a;bEnd SubPrivate Function Fun(Byval a as Integer, b as integer) As Integera=a Mod 5Fun=aEnd Function程序运行时,单击命令按钮,额输出结果是A)3 3 2 B)3 8 2C)8 8 12 D)3 8 12(34)为了从当前文件夹中读入文件File.txt,某人编写了下面的程序:Private Sub Command1_Click()Open "FIle1.txt" For Output As #20Do While Not EOf(20)Line Input #20,ch$Print chLoopClose #20End Sub程序调试时,发现有错误,下面的修改方案中正确的是___A)在Open语句中的文件名前添加路径B)把程序中各处的"20"改为"1"C)把Print ch语句改为Print #20,chD)把Open语句中的Output改为Input(35)以下程序运行后的窗体如图所示,其中组合框的名称是Combo1,已有列表框如图所示:命令按钮的名称是Command1Private Sub Command1_Click()if not Check(Combo1.Text) thenMsgBox("输入错误")Exit SubEnd IfFor k=0 to Combo1.ListCount-1if Combo1.Text=Combo1.List(k) ThenMsgBox("添加项目失败")Exit SubEnd Ifnext kCombo1.AddItem Combo1.TextMsgBox("添加项目成功")Enb SubPrivate Function Check(ch as string) as Booleann=Len(ch)For k=1 to nc$=Ucase(Mid(ch,k,1))if c<"A" or C>"Z" thenCheck=FalseExit FunctionEnd SubCheck=True End Function程序运行时,如果在组合框的编辑区输入"Java",则单击命令按钮后产生的结果是 A)显示"输入错误" B)显示"添加项目失败" C)显示"添加项目成功" D)没有任何显示二、填空题（每空2分,共30分）请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
二级VB(2011春)上机试卷
江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2011春)二级Visual Basic语言(试卷代号VB01)(本试卷完成时间70分钟)【考试须知】1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．答题完成后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码应缩行书写(呈锯齿形)。
一、改错题(14分)【题目】本程序的功能是：找出100～999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。
所谓升序数是指该数的十位数字小于个位数字，百位数字值小于十位数字值。
Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, s8 As StringFor n = 100 To 999s8 = d2q(n)If sx(n) And sx(V al(s8)) ThenList1.AddItem n & "D==>" & s8 & "Q"End IfNext nEnd SubPrivate Function d2q(n As Integer) As StringDim p As IntegerDop = n Mod 8d2q = d2q & CStr(p)n = n \ 8Loop Until n = 0End FunctionPrivate Function sx(ByV al n As Integer) As BooleanDim num() As Integer, k As Integer, t As IntegerDim i As Integert = Len(CStr(n))ReDim num(t)For k = 1 To tnum(k) = V al(Mid(CStr(n), k, 1))Next kFor i = 1 To UBound(num) - 1If num(i) >= num(i + 1) Then Exit ForNext isx = TrueEnd Function【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。
2011VB考试含答案
2011VB上机练习题一、新建一个工程，完成“添加与删除”程序的设计，具体要求如下：1.窗体的标题为“添加与删除”，固定边框；2.程序界面如图7所示。
在窗体中引入一个文本框（Text1），在文本框的下面引入一个列表框（List1），列表框中内容有四项，分别为“Word、Excel、PowerPoint、Outlook”；3.单击“添加”按钮（Command1），将文本框中的内容加入列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加！”；4.单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择要删除的项目！”。
图7Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "没有内容，不予添加"ElseList1.AddItem Text1.Text, 0Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex = -1 ThenMsgBox "请选择要删除的项目！"ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Form_Load()List1.AddItem "Word"List1.AddItem "Excel"List1.AddItem "PowerPoint"List1.AddItem "Outlook"End Sub二、新建一个工程，完成“加法器”程序的设计，具体要求如下：1．窗体的标题为“加法器“，固定边框；三个文本框的对齐方式均为右对齐；3．上面两个文本框用于输入加数，要求不接受非数字键；4．下面一个文本框用于显示和，要求不能对其进行编辑操作；5．单击“=“按钮（Command1），将两个加数的和显示在下面一个文本框中；6．单击“清空“按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。
二级VB真题2011年9月
[真题] 二级VB真题2011年9月一、选择题(每小题2分，共70分) 下列各题[A]、[B]、[C]、[D] 四个选项中，只有一个选项是正确的。
第1题：下列叙述中正确的是( )。
A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对参考答案：D所谓算法是指解题方案的准确而完整的描述。
是一组严谨地定义运算顺序的规则，并且每一个规则都是有效的，且是明确的，此顺序将在有限的次数下终止。
算法不等于程序，也不等于计算方法。
设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。
第2题：下列关于线性链表的叙述中，正确的是( )。
A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上三种说法都不对参考答案：C线性表的链式存储结构称为线性链表。
在链式存储结构中，存储数据结构的存储空间可以不连续．各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。
第3题：下列关于二叉树的叙述中，正确的是( )。
A.叶子结点总是比度为2的结点少一个B.叶子结点总是比度为2的结点多一个C.叶子结点数是度为2的结点数的两倍D.度为2的结点数是度为1的结点数的两倍参考答案：B由二叉树的性质可以知道在二叉树中叶子结点总是比度为2的结点多一个。
第4题：软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。
下面属于应用软件的是( )。
A.学生成绩管理系统B.C语言编译程序C.UNIX操作系统D.数据库管理系统参考答案：A学生成绩管埋系统为应用软件。
第5题：某系统总体结构图如下图所示：该系统总体结构图的深度是( )。
A.7B.6C.3D.2参考答案：C这个系统总体结构图是一棵树结构，在树结构中，根结点在第1层，同一层上所有子结点都在下一层，由系统总体结构图可知，这棵树共3层。
信息技术高中会考VB模块操作题题库
信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。
第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。
第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。
第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。
第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。
第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。
第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。
第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。
第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。
第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。
将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。
高中信息技术会考(VB部分)练习
高中信息技术会考VB复习题一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。
A．模块结构B．循环结构C．多重循环结构D．IF块结构2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务B．事件C．控件D．过程3. 在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。
A．窗口左上角B．窗口右下角C．窗口正中间D．窗口右上角4. 在VB应用程序设计中，通常应对编写程序代码。
A．所有对象B．窗体C．Timer D．有事件的对象5. 在面向对象程序设计中，用来描述对象的特征信息。
A．事件B．方法C．代码D．属性6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。
A．Click B．Change C．MouseDown D．KeyPress7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。
A．1 B．60 C．100 D．10008. 下列过程中，是程序开始运行时，窗体一加载就运行的程序段。
A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress9. 的Visual Basic表达式是。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a10. 在VB系统中，代表内存单元，是命了名的存储空间。
A．变量B．常量C．函数D．字节11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。
A．Sub B．Dim C．Call D．End12. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle C．Randomize D．Dim13. 关系表达式的值为。
高中信息技术学业水平测试-VB操作题
算法程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印（倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级（结构）11、图形打印（三角形）12、用字符串函数()和转换函数()填空13、对数组赋值并求和14、利用函数，把变成15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示相应等级（结构）19、学生成绩转换（结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。
1()xn , i , sa(1 5)i = 1 5a(i) = (("请在输入第" + (i) + "/5个数"))a(i);ii = 1 ①= a(i): m = ix = i + 1 5②= a(x): m = xxk = a(i): ③: a(m) = ki"从小到大排序后的数据为："i = 1 5a(i);i2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。
1()a, b, c, q, sa = (1)b = (2)c = (3)q = (a + b + c) / 2(a + b) <= c (a + c) <= b ①(b + c) <= a"不能构成三角形"s = ②(q * (q - a) * (q - b) * (q - c))"三角形的面积是" & s③3、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。
信息技术学业水平测试VB操作复习题目含答案
信息技学水平 VB操作复 目含答案
VB操作一
Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("请输入一个数")) Next i For i = 9 To 0 Step -1 Print s(i) Next i
②
a=①
③
s=②
b=③
Next k
Print s
End Sub
信息技学水平 VB操作复
目含答案
a = a+b s = s+b/a b = a+b
Private Sub Command1_Click() Dim i As Integer Dim s As Integer i=1 s=0 Do While i <= 99 s=s+① i=② Loop Print "s=" & ③
目含答案
Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 to 9 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j) =a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i)) Next i
t = Val(①)
If ② Then
Label1.Caption = "超重！不能参赛！" Else
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第二章程序设计ABC 第二节数据类型和常量变量一、考点分析：1、VB提供了数值型、字符串型、布尔型、日期型等基本数据类型；2、数据类型数值型：整型, 长整型, 单精度型, 双精型字符串型：是用””括起来的一串字符；布尔型：其值为True False，在VB中，非0值示为真值，true；0值示为假值，false。
日期型：#年/月/日# 或者#月/日/年#3、VB中的常量有数值常量、字符串常量等。
4、定义常量的格式Const 常量名[As 类型] =表达式Const PI As Single=3.1415926 简化Const PI=3.1415926Const xm As string=”姚明”简化Const xm=”姚明”5、用一对双引号括起来的字符串称为字符串常量。
如”china”，”3.14”等6、变量命名规则①必须以字母或汉字开头，而不能以数字或其他字符开头。
②只能由字母、汉字、数字和下划线组成，不能含有小数点、空格等字符；③字符个数不超过255个；④变量名不能使用VB的保留字；⑤VB不区分变量名的大小字。
如HELLO和Hello是同一个变量。
⑥为增加程序的可读性，变量名最好取有意义的名称，建议前面加上数据类型的缩写。
如要定义dim x as integer 最好定义为dim intx as integerDim xm as string 最好定义为dim strxm as string二、题型：单选：1、下面四组数据中，全部是VB常量的是（）A、ABCD，#02-03-2004#，E-2B、276，123.56，1.2E-2，#True#C、2768&，1.34#，“ABCDE”，TrueD、HABCE，02-03-2004，False，0-32、假如我们在编写程序的时候需要定义一个变量，应该采用下列哪个说明符？（）。
A、constB、dimC、openD、input3、在VB中，若要将变量N定义为单精度型数据，则下列表示方法中正确的是( )A、Dim N as StringB、Dim N as SingleC、Dim N as IntegerD、Dim N as Long4、在程序设计的过程中，错误的声明一个变量会导致程序不能正常编译。
因此，需要规范合理地声明一个变量，下列合法的变量名是( )A、ifB、zf3C、8-aD、a#25、由Const m=”123”,可判断m为6、在VB6.0程序语言系统中，下列不合法的变量名是（）A、mynameB、a5cC、4cD、class_1多选：7、以下属非法用户自定义标识符（常量和变量命名）的是( )A、8adB、adC、a_dD、const8、为了便于数据的表示与处理，VB提供哪几种基本数据类型( )A、数值型B、字符串型C、布尔型D、日期型9、日期型数据专门用来处理日期和时间，哪种属于日期型数据( )A、#2005/10/23#B、#2005/01/02#C、2005/10/23D、“2005/1/2”10、以下哪些类型属于数值类型（）A、双精度型B、长整型C、整型D、OLE11、在VB中变量命名必须遵守的规则是（）A不能使用VB中的关键字作用变量的名字B变量名不得超过255个字符C变量名必须以字母或汉字开头D可以变量名出现句号、空格或者嵌入！、@、#、$、%、&等字符判断：12、字符串型数据是指用… ‟括起来的一串字符。
( )13、在程序执行的过程中，常量的值始终保持不变，变量的值随时改变。
( )14、字符串也可以进行大小比较。
( )第二章程序设计ABC 第三节运算符与表达式一、考点分析：1、表达式是由变量、常量、运算符、函数和圆括号等一定的规则组合而成的。
2、算术表达式3、字符串表达式①VB字符串运算符有：+ 和&②+ 的两边必须是数字，&的两边可以是任意类型③+的结果可以是字符串型，也可以是数值型。
但&的结果必须是字符串型；④如：“abcdef”&12345 结果“abcdef12345”“abcdef”+12345 结果类型不匹配，报错“123”&456 结果”123456”“123”+456 结果789⑤如果结果为字符串型，必须加””4、关系表达式①6个关系运算符= <> < > <= >= ；②关系表达式的值为True 或False；③所有关系运算符优先级相同。
5、逻辑表达式①3个关系运算符Not（取反）And（与）Or（或）；②逻辑表达式的值为True 或False；③逻辑运算符优先级为：Not>And>Or。
④AND 两者中有flase，则值为flase; OR 两者中有true，则值为true;6、日期表达式日期表达式是用日期运算符“+”或“-”将算术表达式、日期型常量、日期型变量、日期函数等连接起来的式子。
7、运算符的执行顺序算术运算符>字符串运算符>关系运算符>逻辑运算符二、题型：填空：1、在VB中执行“A=80\9 MOD 6”语句后，A的值为（）2、将数学表达a≥7或a≤-5转换成VB的关系表达式是( )3、将“X>Y>Z”转换成正确的VB逻辑表达式是（）单项：4、下列选项中不能输出信息的是( )A、Dim x as singleB、print a+b,cC、? a,b,cD、print a;b,c5、以下程序段的输出结果为( )Dim a,b,c As Stringa=”Beijing”b=”2008”Print b+aA、Beijing2008B、2008BeijingC、2008D、b + a6、有如下程序段：a=Sqr(3)b=Sqr(2)c=a>b该程序段运行后，c的值为（）A、-1B、0C、FalseD、True7、下列逻辑运算结果为"true"的是（）。
A、flase or not trueB、flase and not trueC、true or not trueD、true and not true8、下列运算结果中，值最大的是（）〖/表示除,\表示整除,mod表示求余数〗。
A、3\4B、3/4C、4 mod 3D、3 mod 49、VB中将两个字符串连接起来的运算符有：+和&，那么”123”+45结果是（）A、168B、12345C、“123”D、4510、某学校打算选拔身高T超过1.75米且体重W不大于55公斤的人作为招生条件，表示该条件的布尔表达式为( )A、T>=1.75 And W<=55B、T<=1.75 Or W>=55C、T>1.75 And W<=55D、T>1.75 Or W<5511、下列结果为True的逻辑表达式是( )A、Not (3<8)B、(3<9) And (5>10)C、(3<8) And (5<10)D、(3>8) Or (5>10)12、表达式2^4\3的值是( )A、5B、6C、7D、813、逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是( )A、前一个为“真”，后一个为“假”B、前一个为“假”，后一个也为“假”C、前一个为“真”，后一个也为“真”D、前一个为“假”，后一个为“真”14、如果a、b、c、d分别是一个四位整数中千、百、十、个位上的数字，用来表示这个四位数的VB表达式为( )A、AbcdB、a+b+c+dC、a*1000+b*100+c*10+dD、以上都不对15、有两个条件P 、Q，只要有一个条件为真时，结果一定为真的是（）。
A、Not PB、P And QC、P OR QD、NOT P AND NOT Q16、能完全正确表示“year是闰年”的逻辑表达式（）A、year mod 4 = 0B、year mod 400 = 0C、(year mod 400 = 0) or (year mod 4 = 0) and (year mod 100 <> 0)D、(year mod 400 = 0) and (year mod 4 = 0) or (year mod 100 <> 0)17、假定X是一个数值型变量，那么由函数组成的表达式 X mod 2=0的作用是（）A、用于测试X是否为偶数B、返回一个整数C、返回一个整数D、用于测试X是否为整数多选：18、下面表达式的值是false的有（）。
A、"989">"99"B、36<58C、not(5<>3)D、23>7819、下列运算符中属于关系运算符的是（）A、<= B、/ C、<> D、Not20、以下哪个运算结果为5。
（）A、6-1B、"2"&"3"C、5 mod 7D、5\621、代数式b2-4ac可以改写成如下的哪个VB表达式。
（）A、b^2-4acB、b*b-4*a*cC、b*b-4acD、b^2-4*a*c判断24、赋值语句中的“=”与数学中的“=”作用是相同的。
( ) 25、7 / 2与7 \ 2的结果是一样的。
( )第二章程序设计ABC 第四节常用语句与函数一、考点分析：1、赋值语句X=9*2赋值语句中的“=”后面可以是常量、变量或表达式。
☆VB中字符串变量的初始值为空串；数值型变量的初始值为0，逻辑型变量的初始值为False；2、Print语句; 表示紧挨，，表示间隔Print表示输出空行；3、注释语句语句行‘注释内容语句行Rem 注释内容4、结束语句End 结束程序运行；5、语句规则①通常一条语句占一行；②要在一行写多条语然，需要在每条语句之间用冒号进行分隔。
③如果一条语句一行写不下，可用续行符（空格后面跟“-”）将语句分成多行。
6、与用户交互函数①Inputbox()输入框函数，即InputBox()函数，显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。
②msgbox()作用：在对话框中显示输出消息。
填空：1、Print “20+5=”;20+5输出的结果是2、小写字母d的ASCII码的值为100，则小写字母a的ASCII码值是单选：3、执行下列语句后，S的值是（）B$=”456789”S=V al(Mid$(B$,3,2))A、78B、45C、67D、5674、针对语句if i=1 then j=1 ，下列说法正确的是（）A、i=1和j=1均为赋值语句B、i=1为赋值语句，j=1为关系表达式C、i=1为关系表达式，j=1为赋值语句D、均为关系表达式5、下列能正确表示“x,y,z全是偶数”的逻辑表达式是( )A、（x+y+z）mod 2=0B、x mod 2=0 or y mod 2=0 or z mod 2=0C、x mod 2=0 and y mod 2=0 and z mod 2=0D、（x+y+z）mod 2=16、Rnd函数不可能产生的值是( )A、0B、1C、0.1234D、0.00057、表达式Abs(-3.6)*sqr(100)的值是（）A、-360B、360C、-36D、368、有如下程序段：Dim a as stringDim b as stringDim c as stringa = "456"b = "123"c = val(a+b)该程序段运行后，c的值为（）A、579B、123C、456123D、123456 9、设S="中华人民共和国"，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为( )A、"中华人民"B、"中国人民"C、"中共人民"D、"人民共和"10、有如下程序段：a = Sqr(3)b = Sqr(2)c = a>b该程序段运行后，c的值为（）A、-1B、0C、FalseD、True11、下面四个表达式，结果为14的是( )A、2+val（"12"）B、2+len（"12"）C、2+cos(12)D、2+log（12）12、已知变量a=2, b=3,在某应用软件中有以下程序段:a=a+bb=a-ba=a-b则,此后的变量a和b的值分别为( )A、a=2, b=2B、a=3, b=3C、a=2, b=3D、a=3, b=213、表达式val("12")+len("ab")的值是（）。