全国计算机等级考试二级VB笔试试卷3(不含公共基础知识)含答案
全国计算机等级考试二级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笔试试卷及参考答案（附详细解析）
全国计算机等级考试二级vb笔试试卷及参考答案（附详细解析）20XX年3月全国计算机等级考试二级vb笔试试卷及参考答案（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）（1）下列关于栈叙述正确的是A）栈顶元素最先能被删除B）栈顶元素最后才能被删除C）栈底元素永远不能被删除D）以上三种说法都不对（2）下列叙述中正确的是A）有一个以上根结点的数据结构不一定是非线性结构B）只有一个根结点的数据结构不一定是线性结构C）循环链表是非线性结构D）双向链表是非线性结构（3）某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）A）3 B）4 C）6 D）7（4）在软件开发中，需求分析阶段产生的主要文档是A）软件集成测试计划B）软件详细设计说明书C）用户手册D）软件需求规格说明书（5）结构化程序所要求的基本结构不包括A）顺序结构B）GOTO跳转C）选择（分支）结构D）重复（循环）结构（6）下面描述中错误的是A）系统总体结构图支持软件系统的详细设计B）软件设计是将软件需求转换为软件表示的过程C）数据结构与数据库设计是软件设计的任务之一D）PAD图是软件详细设计的表示工具（7）负责数据库中查询操作的数据库语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课程间的联系是A）1:1联系B）1：m联系C）m：1联系D）m：n联系（9）有三个关系R、S和T如下：R S T AB C A1 2 B2 1 C3 1则由关系R 和S 得到关系T 的操作是A ）自然连接B ）交C ）除D ）并（10）定义无符号整数类为UInt ，下面可以作为类UInt 实例化值的是A ）-369B ）369C ）0.369D ）整数集合{1，2，3，4，5}（11）在Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是A ）工程资源管理器窗口B ）窗体设计窗口C ）属性窗口D ）代码窗口（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是A ）LoadB ）ClickC ）LostFocusD ）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 ）滚动块可能处于任何位置，具体位置取决于Max 、Min 属性的值（16）窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A ）Print Cb1.SelectedB ）Print Cb1.List(Cb1.ListIndex)C ）Print Cb1.Selected.TextD ）Print Cb1.List(ListIndex)(17)为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是C 1 A B c 3A) 把这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) Private Sub Form1_Click()…End SubB) Private Sub Form_Click()…End Sub C) Private Sub Command1_Click()…End SubD) Private 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 Integer, 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“Filel.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 Command 1_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 的文体框和一个名为Command1 的命令按钮，并有以下事件过程：Private Sub Command 1_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 Command 1_Click()X=10:y=0For i=1 To 5Dox=x-2y=y+2Loop Unti1 y>5 Or x<-1NextEnd Sub运行程序，其中Do循环执行的次数是A) 15 B) 10 C) 7 D) 3（28）阅读程序Private Sub Command 1_ ClickDim arrDim i As IntegerArr=Array (0,1,2,3,4,5,6,7,8,9,10)For i=0 To 2Printarr（7 –i）;NextEnd Sub程序运行后，窗体上显示的是：A) 8 7 6 B) 7 6 5C) 6 5 4 D) 5 4 3（29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：Private Sub Command 1_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)窗体上有一个名为Command 1 的命令按钮，并有如下程序：Private Sub Command 1_Click()Dim a(10),x%For k=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是：A) 10个数中奇数的个数B) 10个数中偶数的个数C) 10个数中奇数的累加和D) 10个数中偶数的累加和(31) 窗体上有一个名为Command 1的命令按钮和一个名为Timer 1 的计时器，并有下面的事件过程：Private Sub Command 1_Click()Timer 1.Enabled=TrueEnd SubPrivate Sub Form _Load()Timer 1.Interval=10Timer 1.Enabled=FalseEnd SubPrivate Sub Timer 1_Timer()Command 1.Left=Command 1.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是A) 命令按钮每10秒向左移动一次B) 命令按钮每10秒向右移动一次C) 命令按钮每10毫秒向左移动一次D) 命令按钮每10毫秒向右移动一次（32）设窗体上有一个名为List1 的列表框，并编写下面的事件过程：Private Sub List 1_Click()Dim ch AS Stringch=List 1.List(List1.ListIndex)List 1.RemoveItem List1.ListIndexList 1.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 5b = b \ 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是A）3 3 2 B）3 8 2 C）8 8 12 D）3 8 12（34）为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：Private Sub Command1_Click()Open "File1.txt" For Output As #20Do While Not EOF(20)Line Input #20, ch$Print chLoopEnd Sub程序调试时，发现有错误，下面的修改方案中正确的是A）在Open语句中的文件名前添加路径B）把程序中各处的“20”改为“1”C）把Print ch 语句改为Print #20,chD）把Open语句中的Output改为Input（35）以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
全国计算机等级考试二级VB语言笔试历年真题及答案
2008年4月全国计算机等级考试二级VB试卷一、选择题1、程序流程图中带有箭头的线段表示的是A）图元关系 B）数据流C）控制流 D)调用关系2、结构化程序设计的基本原则不包括A）多态性 B）自顶向下 C）模块化D）逐步求精3、软件设计中模块划分应遵循的准则是A）低内聚低耦合 B)高内聚低耦合 C)低内聚高耦合 D)高内聚高耦合4、在软件开发中，需求分析阶段产生的主要文档是A）可行性分析报告 B）软件需求规格说明书 C）概要设计说明书 D）集成测试计划5、算法的有穷性是指A）算法程序的运行时间是有限的 B）算法程序所处理的数据量是有限的C）算法程序的长度是有限的 D）算法只能被有限的用户使用6、对长度为n的线性表排序，在最坏的情况下，比较次数不是n (n-1)/2的排序方法是A）快速排序 B）冒泡排序C）直接插入排序D）堆排序7、下列关于栈的叙述正确的是A）栈按“先进先出”组织数据B）栈按“先进后出”组织数据C）只能在栈底插入数据D）不能删除数据8、在数据库设计中，将E—R图转换成关系数据模型的过程属于A）需求分析阶段B）概念设计阶段 C）逻辑设计阶段 D）物理设计阶段9、有三个关系R、S和T（略）10、设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为Ａ）课号，成绩 B）学号，成绩 C）学号，课号D）学号，姓名，成绩11、以下叙述中错误的是Ａ）标准模块文件的扩展名是.basB）标准模块文件是纯代码文件C）在标准模块中声明的全局变量可以在整个工程中使用 D）在标准模块中不能定义过程12、在Visual Basic中，表达式3* 2\5 Mod 3的值是Ａ）１B）０C）３D）出现错误提示13、以下选项中，不合法的Visual Basic变量名是Ａ）a5b B）_xyz C）a_b D)andif14、以下数组定义语句中，错误的是Ａ）Static a (10) As Integer B) Dim c (3, 1 to 4)C) Dim d (-10) D) Dim b (0 to 5, 1 to 3) As Integer15、现有语句：y=IIf(x>0, x Mod 3, 0) ，设x=10，则y的值是Ａ）０B）１C）３D）语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为Ａ）０B）１C）２D）３17、文本框Text1的KeyDown事件过程如下：Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer)End Sub其中参数KeyCode的值表示的是发生此事件时Ａ）是否按下了Alt键或Ctrl键B）按下的是哪个数字键C）所按的键盘键的键码D）按下的是哪个鼠标键18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。
河南省全国计算机等级考试二级VB笔试试卷及参考答案最新考试试题库(完整版).docx
1、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型2、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型3、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库4、对建立良好的程序设计风格，下面描述正确的是(A)A. 程序应简单、清晰、可读性好B. 符号名的命名要符合语法C. 充分考虑程序的执行效率D. 程序的注释可有可无5、算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数6、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型7、将E-R图转换到关系模式时，实体与联系都可以表示成(B)A. 属性B. 关系C. 键D. 域8、下列工具中属于需求分析常用工具的是(D)A. PADB. PFDC. N-SD. DFD9、算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数10、在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)A. 概要设计B. 详细设计C. 可行性分析D. 需求分析11、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库12、设有下列二叉树：图见书P46对此二叉树中序遍历的结果为(B)A. ABCDEFB. DBEAFCC. ABDECFD. DEBFCA13、算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间14、在下列选项中，哪个不是一个算法一般应该具有的基本特征(C)A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报15、下列关于队列的叙述中正确的是(C)A. 在队列中只能插入数据B. 在队列中只能删除数据C.队列是先进先出的线性表D. 队列是先进后出的线性表16、下面概念中，不属于面向对象方法的是 (D)A. 对象B. 继承C. 类D. 过程调用17、检查软件产品是否符合需求定义的过程称为(A)A. 确认测试B. 集成测试C. 验证测试D. 验收测试18、以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈19、软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B)A.阶段性报告B. 需求评审C. 总结D. 都不正确20、希尔排序法属于哪一种类型的排序法(B)A.交换类排序法B.插入类排序法C.选择类排序法D.建堆排序法21、下面概念中，不属于面向对象方法的是 (D)A. 对象B. 继承C. 类D. 过程调用22、下面不属于软件工程的3个要素的是(D)A. 工具B. 过程C. 方法D. 环境23、在一棵二叉树上第5层的结点数最多是(B) 注：由公式2（k-1）得A. 8B. 16C. 32D. 1524、下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句25、关系表中的每一横行称为一个(A)A. 元组B. 字段C. 属性D. 码26、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库27、按条件f对关系R进行选择，其关系代数表达式为(C)A. R|X|RB. R|X|RfC. бf(R)D. ∏f(R)28、下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句29、在下列选项中，哪个不是一个算法一般应该具有的基本特征(C)A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报30、下面对对象概念描述错误的是(A)A. 任何对象都必须有继承性B. 对象是属性和方法的封装体C. 对象间的通讯靠消息传递D. 操作是对象的动态性属性31、在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。
计算机二级vb考试试题附答案
计算机二级vb考试试题附答案计算机二级vb考试试题（附答案）为帮助大家更好巩固计算机二级VB考试基础知识，yjbys店铺为大家分享最新的计算机二级vb基础试题及答案，希望对同学们考试有所帮助!第一部分计算机基础知识1. 下列有关信息、信息处理、信息技术的叙述中,错误的是___(1)___。
A.信息与物质、能量是客观世界的三大构成要素B.与信息处理相关的行为和活动主要指信息的分类、计算、分析等,但不包含信息的收集和传递C.现代信息技术的主要特征之一是以数字技术为基础D.计算机技术、通信技术均属于信息技术2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___A.数字技术是采用有限个状态(主要是两个状态)来表示、处理、存储和传输信息的技术B.比特是信息的基本单位,1个比特可以表示8位二进制数C.集成电路芯片是微电子技术的结晶,是现代信息产业的基础D.Moore定律是指"单块集成电路的集成度平均每18-24个月翻一番"3. 下列有关计算机发展与分类的叙述中,错误的是___(3)___。
A.数字电子计算机诞生于20世纪40年代,个人计算机(微型计算机)产生子20世纪80年代初B.第4代计算机的CPU主要采用中小规模集成电路,第5代计算机采用超大规模集成电路C.计算机分类有多种方法,按其内部逻辑结构通常分为16位机、32位机或64位机等,目前使用的PC机大多是32位机或64位机D.巨型计算机一般采用大规模并行处理的体系结构,我国国防科技大学研制的"天河1号,,巨型计算机,其性能可在全球巨型机排行榜中位居前10名4. 下列有关PC机微处理器的叙述中,错误的是___(4)___A.目前PC机所用的各种微处理器均由Intel公司设计和生产B.微处理器通常由单片集成电路制成C.一台高性能PC机中通常包含多个微处理器D.台式PC机与笔记本PC机采用的微处理器通常有所不同5. 下列有关PC机主板与芯片组的叙述中,错误的是 ___(5)___。
计算机二级VB语言程序设计考试题及答案
计算机二级VB语言程序设计考试题及答案不管从事何种工作，如果要想做出高效、实效，务必先从自身的开始。
有了方案，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。
下面是搜索的计算机二级VB语言程序设计考及答案，供大家参考学习！1.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyDate = #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 FormClick( )MyTime = #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 FormClick( )MyDate = #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和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim 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和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim 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和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的选项是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为mand1的命令按钮，编写如下代码：Private Sub Command1Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Theny = zz = 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 FormLoad( )Dim 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 FormLoad( )Dim 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 FormLoad( )Dim 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 FormLoad( )Dim 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 Picture1Click( )Dim 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考试试题及答案
历年计算机二级vb考试试题及答案计算机二级VB考试是考察考生对VB（Visual Basic）编程语言的掌握程度和应用能力。
以下是历年计算机二级VB考试的试题及答案，供考生参考。
第一部分：选择题1. 下列VB控件中，不是用于用户输入的是：A) 文本框B) 输入框C) 复选框D) 按钮答案: D2. VB运行环境中，可视化地设计界面的工具是：A) MsgBoxB) PaintC) IDED) Debug答案: C3. 下列哪个选项能够将字符串转换为整数类型？A) Str()B) Val()C) Len()D) Mid()答案: B4. VB中表示循环结构的关键字是：A) ForB) WhileC) IfD) Do答案: D5. 下列哪个选项用于定义数组？A) Array[]B) Array()C) List[]D) List()答案: B第二部分：填空题1. 在VB中，实现条件判断可以使用 ___________ 语句。
答案: If2. VB中，用于判断两个变量是否相等的运算符是 ___________。
答案: =3. 在VB中，数组的下标从 ___________ 开始计数。
答案：04. VB中，使用 ___________ 关键字来声明一个变量。
答案: Dim5. VB中，用于结束循环的关键字是 ___________。
答案: Exit第三部分：编程题1. 编写一个VB程序，要求用户输入一个整数n，计算并输出1到n 之间所有整数的和。
答案:Private Sub btnCalculate_Click()Dim n As IntegerDim sum As Integern = Val(txtNumber.Text)sum = 0For i = 1 To nsum = sum + iNext iMsgBox "1到" & n & "之间所有整数的和为：" & sumEnd Sub2. 编写一个VB程序，要求用户输入一个字符串，将字符串中的大写字母全部转换为小写字母，并将结果输出。
全国计算机等级考试二级VB语言笔试试题及答案
2005年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic 语言程序设计(考试时间90 分钟，满分100 分)一、选择题 (每小题 2 分,共 70 分 )下列各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）下列叙述中正确的是A ．程序设计就是编制程序C．程序经调试改错后还应进行再测试C 。
B．程序的测试必须由程序员自己去完成D．程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是 A ．顺序存储的有序线性表 B ．线性链表AC．二叉链表。
D．有序线性链表（3）下列关于栈的描述正确的是 C 。
A．在栈中只能插入元素而不能删除元素B．在栈中只能删除元素而不能插入元素C．栈是特殊的线性表，只能在一端插入或删除元素D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是 D 。
A．一个逻辑数据结构只能有一种存储结构B．数据的逻辑结构属于线性结构，存储结构属于非线性结构C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是 C 。
A．软件工程只是解决软件项目的管理问题B．软件工程主要解决软件产品的生产率问题C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D．软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是 D 。
A ． PDL( 过程设计语言 ) B ．PAD 图C． N-S 图 D． DFD 图（7）下列叙述中正确的是 A 。
A ．软件交付使用后还需要进行维护B．软件一旦交付使用就不需要再进行维护C．软件交付使用后其生命周期就结束D．软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决 A 。
[整理]2012年3月全国计算机等级考试二级VB笔试试卷及参考答案带详细解析
![[整理]2012年3月全国计算机等级考试二级VB笔试试卷及参考答案带详细解析](https://img.taocdn.com/s3/m/50091c124b35eefdc9d3330a.png)
2012年3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90 分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）下列叙述中正确的是（）。
A）循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构C）循环队列是非线性结构D）循环队列是一种逻辑结构【解析】队列的存储表示有两种：一种是基于数组的存储表示，另一种是基于链表的存储表示。
队列的基于数组的存储表示亦称为顺序队列，它是利用一个一维数组作为队列元素的存储结构。
为了充分地利用数组的存储空间，把数组的前端和后端连接起来，形成一个环形的表，称为循环队列。
因此循环队列是队列的一种顺序存储结构。
队列不管采用链式存储结构还是顺序存储结构，它都是线性结构。
循环队列作为队列的特殊情况，它也是线性结构。
循环队列是在队列的基础上，将队列的头和尾接到一起形成一个环状，它给出了数据的逻辑结构在计算机内部的存储形式，因此是一种存储结构。
答案：B（2）下列叙述中正确的是A）栈是一种先进先出的线性表B）队列是一种后进先出的线性表C）栈与队列都是非线性结构D）以上三种说法都不对【解析】栈是一种后进先出（Last In First Out）或先进后出（First In Last Out）的线性表，它的一端封闭（称为栈底），在另一端进行插入和删除操作，允许插入和删除的一端称为栈顶。
队列（queue）是指允许在一端进行插入、而在另一端进行删除的线性表。
允许插入的一端称为队尾，通常用一个称为尾指针（rear）的指针指向队尾元素，即尾指针总是指向最后被插入的元素；允许删除的一端称为排头（也称为队头），通常也用一个排头指针（front）指向排头元素的前一个位置。
显然，在队列这种数据结构中，最先插入的元素将最先能够被删除，最后插入的元素最后才能被删除。
计算机二级《VB》考题与答案
计算机二级《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___的文档。
计算机二级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亿。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
全国计算机等级考试二级Visual Basic语言程序设计综合测试2(考试时间90分钟，满分100分)一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。
1:以下叙述中错误的是______。
A.Visual Basic是事件驱动型可视化编程工具B.Visual Basic应用程序不具有明显的开始和结束语句C.Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D.Visual Basic中控件的某些属性只能在运行时设置2:以下叙述中错误的是______。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件3:以下叙述中错误的是______。
A.双击鼠标可以触发DblClick事件B.窗体或控件的事件的名称可以由编程人员确定C.移动鼠标时，会触发MouseMove事件D.控件的名称可以由编程人员设定4:以下不属于Visual Basic系统的文件类型是______。
A..frmB..batC..vbgD..vbp5:以下叙述中错误的是______。
A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.保存Visual Basic程序时，应分别保存窗体文件及工程文件C.Visual Basic应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发6:以下能正确定义数据类型TelBook的代码是______。
A. Type TelBookName As String*10TelNum As Integer End Type B. Type TelBookName As String*10TelNum As Integer End TelBookC. Type TelBookName String*10TelNum Integer End Type TelBook D. Typedef TelBookName String*10TelNum Integer End Type7:以下声明语句中错误的是______。
A.Const var1=123B.Dim var2='ABC'C.DefInt a-zD.Static var3 As Integer8:设窗体上有一个列表框控件List1，且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是______。
A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text9:程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是______。
A.MouseDownB.MouseUpC.LoadD.Click10:设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是______。
A.TrueB.FalseC.1D.出错信息11:如果要改变窗体的标题，则需要设置的属性是______。
A.CaptionC.BackColorD.BorderStyle12:以下能判断是否到达文件尾的函数是______。
A.BOFB.LOCC.LOFD.EOF13:如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是______。
A.如果工程中含有Sub Main过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体14:窗体的MouseDown事件过程Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)有4个参数，关于这些参数，正确的描述是______。
A.通过Button参数判定当前按下的是哪一个鼠标键B.Shift参数只能用来确定是否按下Shift键C.Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x，y用来设置鼠标当前位置的坐标15:设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。
bo1.RemoveItem Textbo1.RemoveItem 2bo1.RemoveItem 3bo1.RemoveItem Combo1.Listcount16:以下关于焦点的叙述中，错误的是______。
A.如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B.当文本框失去焦点时，触发LostFocus事件C.当文本框的Enabled属性为False时，其Tab顺序不起作用D.可以用TabIndex属性改变Tab顺序17:如果要在菜单中添加一个分隔线，则应将其Caption属性设置为______。
A.＝B.*C.&D.-18:执行语句Open "Te1.dat" For Random As #1 Len=50后，对文件Te1.dat中的数据能够执行的操作是______。
A.只能写，不能读B.只能读，不能写C.既可以读，也可以写D.不能读，不能写19:在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Text1.TextSelect Case nCase 1 To 20x= 10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。
A.10B.20C.30D.4020:设有以下循环结构Do循环体Loop While<条件>则以下叙述中错误的是______。
A.若"条件"是一个为0的常数，则一次也不执行循环体B."条件"可以是关系表达式、逻辑表达式或常数C.循环体中可以使用Exit Do语句D.如果"条件"总是为True，则不停地执行循环体21:在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A.1 3.4 5.8B.1 3 5C.1 4 7D.无数据输出22:在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer,s As Integera = 8s = 1Dos = s + aa = a - 1Loop While a <= 0Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A.7 9B.34 0C.9 7D.死循环23:设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integerx = 10y = 5y = f(x)Print x;yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A.10 5B.20 5C.20 40D.10 4024:设有如下通用过程：Public Sub Fun(a(),ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn=10Call Fun(arr(),n)Text1.Text = nEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是______。
A.10B.15C.25D.2425:在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10,12,21,32,24)For i = 1 To 5If x(i) >c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A.89B.99C.23D.7726:在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。
如图所示。
当移动滚动框时，在相应的标签中显示滚动条的值。
当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。
以下不能实现上述功能的事件过程是______。
A. Private Sub Command1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))End SubB. Private Sub Command1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEnd SubC. Private Sub Command1_Click()Label3.Caption=HScroll1*HScroll2End SubD. Private Sub Command1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEnd Sub27:在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3<> 0 Then m = m + n \ 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。