《2022年二级VB真题月 .pdf》由会员分享,可在线阅读,更多相关《2022年二级VB真题月 .pdf(17页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、1 真题 二级 VB真题 2012 年 3 月一、选择题 ( 每小题 2 分,共 70 分) 下列各题 A 、B 、C 、D 四个选项中,只有一个选项是正确的。第 1 题:下列叙述中正确的是 ( )。A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构参考答案: A 循环队列是一种顺序存储的线性结构,所以,“循环队列是队列的一种链式存储结构”、“循环队列是非线性结构”和“循环队列是一种逻辑结构”的说法都是错误的。第 2 题:下列叙述中正确的是 ( )。A.栈是一种先迸先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是
2、非线性结构D.以上三种说法都不对参考答案: D 栈和队列都是线性结构, 并且栈是后进先出, 队列是先进先出, 所以三种说法都不对。第 3 题:一棵二叉树共有 2S个结点,其中 5 个是叶子结点,则度为1 的结点数为( ) 。A.16 B.10 C.6 D.4 参考答案: A 根据公式 n0=n2+1,叶子结点个数为S,则度为 2 的结点数为 4,那么度为 l 的结点数 n1=n-n0-n2=25-4-5=16 。第 4 题:在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( ) 。A.外模式B.内模式C.概念模式D.逻辑模式名师资料总结 - - -精品资料欢迎下载 - - - - -
3、 - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页,共 17 页 - - - - - - - - - 2 参考答案: A 数据库系统在其内部具有三级模式:概念模式、内模式与外模式。其中,内模式( 又称物理模式 ) 给出了数据库的物理存储结构与物理存取方法,如数据存储的文件结构、索引、集簇及hash 等存取方式与存取路径,内模式的物理特性主要体现在操作系统及文件级上,它还未深入到设备级( 如磁盘及磁盘操作 ) 上。概念模式是数据库系统中全局数据逻辑结构的描述,是全体用户(应用) 的公共数据视图,主要描述数据的概念记录类型及它们之间的关系,它
4、还包括一些数据间的语义约束。外模式 ( 子模式或用户模式 ) 是用户的数据视图,也就是用户所见到的数据模式,它由概念模式推导而出的,在一般的DBMS 中都提供相关的外模式描述语言 (DDL)。第 5 题:在满足实体完整性约束的条件下( ) 。A.一个关系中应该有一个或多个候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字参考答案: A 在关系 R中如记录完全函数依赖于属性(组) X,则称 X为关系 R中的一个候选关键字。候选关键字的性质有:在一个关系中,候选关键字可以有多个;任何两条记录的候选关键字值都是不相同的;关键字可能由一个属性
5、构成, 也可能由多个属性构成; 在任何关系中至少有一个关键字。所以,在满足实体完整性约束的条件下,一个关系中应该有一个或多个候选关键字。第 6 题:有三个关系 R、S和 T 如下:则由关系 R和 S 得到关系 T 的操作是 ( ) 。A.自然连接B.并C.交名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页,共 17 页 - - - - - - - - - 3 D.差参考答案: D 自然连接是二元运算, 其结果是得到两个关系中公共属性名字上相等的所有元组的组合;并是指将两个关系中
6、的元素全部合并到一个新的关系之中;交是指将那些同时属于两个关系的元素组成一个新的关系;差是指将属于前一个集合但不属于后一个集合的元素组成新的关系。由图中可以看出, 关系 T是由属于 R但不属于 S的元组组成的集合,所以答案为差。第 7 题:软件生命周期中的活动不包括( ) 。A.市场调研B.需求分析C.软件测试D.软件维护参考答案: A 一个软件产品或软件系统通常要经历孕育、诞生、成长、成熟、衰亡等阶段,一股称为软件生存周期。 通常而言, 软件生命周期可以划分为六个阶段:问题的定义及规划、需求分析、软件设计、编码、软件测试、运行维护。所以,软件生命周期中的活动不包括市场调研。第 8 题:下面不
7、属于需求分析阶段任务的是( )。A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划参考答案: D 需求分析的基本任务是: 问题识别: 双方确定对问题的综合需求,这些需求包括功能需求、性能需求、环境需求、用户界面需求。分析与综合,导出软件的逻辑模型。编写文档:包括编写需求规格说明书,编写初步用户使用手册,确认测试计划,修改完善软件开发计划。制定软件集成测试计划属于概要设计。第 9 题:在黑盒测试方法中,设计测试用例的主要根据是( ) 。A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图参考答案: A 通常,软件的测试方法包括白盒测试与黑
8、盒测试。白盒测试也称结构测试或逻辑驱动测试, 它是按照程序内部的结构测试程序。黑盒测试也称功能测试, 它是通过测试来检测每个功能是否都能正常使用。黑盒测试着眼于程序外部结构, 不考虑内部逻辑结构, 把程序看作一个不能打开的黑盒子,主要针对软件界面和软件名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页,共 17 页 - - - - - - - - - 4 功能进行测试。第 10 题:在软件设计中不使用的工具是( ) 。A.系统结构图B.PAD图C.数据流图 (DFD图) D.程序
9、流程图参考答案: C 软件设计包括概要设计和详细设计,软件概要设计中, 面向数据流的设计方法有变换型系统结构图和事务型数据流两种。软件详细设计,程序流程图( PDF) 和PAD( 问题分析图 ) 是过程设计的常用工具。 数据流图是结构化分析方法中使用的工具,它以图形的方式描绘数据在系统中流动和处理的过程,由于它只反映系统必须完成的逻辑功能,所以它是一种功能模型,是在可行性研究阶段用到的。第 11 题:以下合法的 VB变量名是 ( )。A.case B.name 10 C.t-name D.x*y 参考答案: A VB 变量的命名规则有:变量名必须是字母或汉字开头,而不能使用数字或其他字符开头;
10、变量名中不能含有小数点、 空格;变量名的总字数不能超过255个;不能含有 VB的专用保留字,在 VB中有特殊意义的单词、字母的组合。故本题答案选择 B。第 12 题:设 x 是小于 10 的非负数。对此陈述,以下正确的VB表达式是 ( ) 。A.O=x10 B.Ox10 C.x=0 And x 10 D.x=0 0r x =10 参考答案: C 在 VB语言中,表示变量的范围不能用两个表示范围的符号来连接变量,应该用连接词 And和 Or 来连接两个表达式,本题正确的表达式应该为“X=0 And X10”,故选择 C)。第 13 题:以下关于窗体的叙述中,错误的是( )。A.窗体的 Name
11、属性用于标识一个窗体B.运行程序时,改变窗体大小,能够触发窗体的Resize 事件C.窗体的 Enabled 属性为 False 时,不能响应单击窗体的事件D.程序运行期间,可以改变Name 属性值参考答案: D 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页,共 17 页 - - - - - - - - - 5 窗体的 Name 属性用于标识一个窗体,只能在属性窗口中定义而不能在程序运行期间改变。 改变窗体大小, 需要触发窗体的 Resize 事件。窗体的 Enable 属
12、性用于确定窗体是否可用,当取值为True 时窗体可正常运行,当取值为False 时,窗体不能响应任何事件。故本题答案选择D)。第 14 题:下面定义窗体级变量a 的语句中错误的是 ( )。A.Dim a% B.Private a% C.Private a As Integer D.Static a% 参考答案: D 在 VB中,根据作用域不同,变量可以分为窗体级变量和模块级变量,前者只能用于本窗体,而后者可以用于同一工程的所有窗体。定义窗体级变量可以用Dim语句或者 Private语句,但是不能用Static来声明。故本题答案选择D)。第 15 题:表达式 Int(Rnd(0) *50) 所产
13、生的随机数范围是 ( )。A.(0,50) B.(1,50) C.(0,49) D.(1,49) 参考答案: C Rnd函数的功能是用于产生 0,1 之间的随机数, Rnd(0) *50是产生 0 ,50 之间的随机数; Int() 函数的功能为取整,所以本题答案选择C)。第 16 题:设 x=5,执行语句 Print x=x+10,窗体上显示的是 ( )。A.15 B.5 C.True D.False 参考答案: D VB中,Pnnt 语句的主要功能是向窗体输出某些内容,以字符串为主,也可以是数字,但是不能是运算语句,否则将返回False 。故本题答案选择D)。第 17 题:设有如下数组声明
14、语句: Dim arr(-2 to 2,0 to 3) As Integer 该数组所包含的数组元素个数是( ) 。A.20 B.16 C.15 D.12 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页,共 17 页 - - - - - - - - - 6 参考答案: A 本题中定义了一个5 行 4 列的二维数组,所以数组元素个数应该为5*4=20 个。第 18 题:现有由多个单选按钮构成的控件数组,用于区别该控件数组中各控件的属性是( ) 。A.Name B.Index C
15、.Caption D.Value 参考答案: A 控件数组由一组相同类型的控件组成,它们具有相同的名称。 在控件数组中, 用于区别各控件的属性是Index 值。故本题答案选择B。第 19 题:设有分段函数:以下表示上述分段函数的语句序列中错误的是( ) 。A.Select Case x Case Is0 y=5 Case Is =5,Is 0 y=2*x Case Else y=x*x+1 End Select B.If x 0 Then y=5 Elself x =5 Then y=2*x Else y=x*x+1 End If C.y=IIf(x0,5,IIf(x=5,2*x,x*x+1)
16、 ) D.If x 0 Then y=5 If x=5 And X=0 Then y=2*x If x5 Then y=x*x+1 参考答案: A 本题考查了 Select 语句、 If语句和 IIf语句的使用。在选项A中,Case Is =5,1s 0 与题目中 0=X=5的条件不符,故答案选择A。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页,共 17 页 - - - - - - - - - 7 第 20 题:设程序中有如下语句: x=InputBox(输入 , 数据,1
17、00) Print x 运行程序,执行上述语句,输入5 并单击输入对话框上的“取消”按钮,则窗体上输出 ( )。A.0 B.5 C.100 D.空白参考答案: D 本题考查 InputBox 的使用,只有单击“确定”按钮时,才会将输入的值返回,单击“取消”按钮时不能将输入的值返回,所以5 并没有返回并赋值给x,所以在窗体上输出“空白”。故本题选择D)。第 21 题:现有如下一段程序: Option Base 1 Private Sub Command1_Click() Dim a a=Array(3 ,5,7,9) x=1 For i=4 To 1 Step-1 s=s+a(i) *x x=x
18、*10 Next Print s End Sub 执行程序,单击 Command1 命令按钮,执行上述事件过程,输出结果是( ) 。A.9753 B.3579 C.35 D.79 参考答案: A 本题考查了数组的定义及for 循环的使用。程序先定义了一个一维数组a,包含4 个元素 3,5,7,9。在 for 循环中, x 的作用是使 a 中的元素成为 s 的个位、十位、百位和干位,最终s=3579。故本题答案选择B。第 22 题:设有一个命令按钮Command1 的事件过程以及一个函数过程。程序如下: Private Sub Command1_Click() Static x As Integ
19、er x=f(x+5) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页,共 17 页 - - - - - - - - - 8 Cls Print x End Sub Private Function f(x As Integer) As Integer f=x+x End Function 连续单击命令按钮3 次,第 3 次单击命令按钮后,窗体上显示的计算结果是( ) 。A.10 B.30 C.60 D.70 参考答案: D 函数 f() 的作用是使变量x 的值增加一倍。在命
20、令按钮Command1 的 Click事件中,调用 f() 函数,第一次单击后为10,第二次为 30,第三次为 70。故本题答案选择 D)。第 23 题:以下关于菜单设计的叙述中错误的是( ) 。A.各菜单项可以构成控件数组B.每个菜单项可以看成是一个控件C.设计菜单时,菜单项的“有效”未选,表示该菜单项不显示D.菜单项只响应单击事件参考答案: C 菜单的“有效”属性用于决定菜单是否可用,“可见”属性用于设置菜单是否显示。故本题选择 C)。第 24 题:以下关于多窗体的叙述中,正确的是( ) 。A.任何时刻,只有一个当前窗体B.向一个工程添加多个窗体,存盘后生成一个窗体文件C.打开一个窗体时,
21、其他窗体自动关闭D.只有第一个建立的窗体才是启动窗体参考答案: A 在一个工程中, 可以同时存在多个窗体, 但是当前窗体有且只有一个; 当向工程中添加了多个窗体时, 存盘时需要对每个窗体进行单独存盘;可以通过菜单栏的“工程工程 | 属性”来设置不同的启动窗体;打开一个窗体时并不会自动关闭其他窗体。故本题答案选择C)。第 25 题:窗体上有一个名称为CommonDialog1的通用对话框,一个名称为Command1 的命令按钮,并有如下事件过程: Private Sub Command1_Click() CommonDialog1.DefaultExt= doc 名师资料总结 - - -精品资料
22、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页,共 17 页 - - - - - - - - - 9 CommonDialog1.FileName= VB.txt CommonDialog1.Filter=All(*.*) |*.*|Word|*Doc| CommonDialog1.Filterlndex=1 CommonDialog1.ShowSave End Sub 运行上述程序,如下叙述中正确的是( )。A.打开的对话框中文件“保存类型”框中显示“All(*.*) B.实现保存文件的操作,文件名是VB
23、.txt C.DefaultExt属性与 FileName 属性所指明的文件类型不一致,程序出错D.对话框的 Filter属性没有指出 txt 类型,程序运行出错参考答案: A 当通用对话框显示为”打开”或”另存为”类型时,返回或设置所选的文件的路径和文件名需用到FileName 属性。 Filter(过滤器 ) 属性用于指定在对话框的文件列表中显示文件的类型。 语法格式为“对象名 Filter= 描述 | 文件扩展名” 。在本题中,由于 FileName与 DefaultExt要求的 doc不一致, 不能正确保存 VB.txt文件,但是程序不报错,在文件类型中显示ALL(*) 。故本题答案选
24、择A。第 26 题:设程序中有如下数组定义和过程调用语句: Dim a(10) As Integer . Call p(a) 如下过程定义中,正确的是( ) 。A.Private Sub p(a As Integer) B.Private Sub p(a() As Integer) C.Private Sub p(a(10) As Integer) D.Private Sub p(a(n) As Integer) 参考答案: A p() 为被调用的函数,其参数为整型的数组类型,在p 函数的定义过程中使用的是形参,不需要制定数组a() 的长度,所以选项A正确。第 27 题:若要获得组合框中输入的
25、数据,可使用的属性是( ) 。A.Listlndex B.Caption C.Text D.List 参考答案: C 在组合框的属性中, Listlndex属性用于表示元素号, Caption 属性用于表示组合框的标题, Text 属性用于表示元素的内容,List属性用于输入组合框的不同元素项目。故本题答案选择C)。第 28 题:在窗体上画两个名称分别为Text1 、Text2 的文本框, Text1 的 Text 属性为名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页,共 1
26、7 页 - - - - - - - - - 10 “DataBase”,如图所示。现有如下事件过程: Private Sub Text1_Change() Text2.Text= Mid(Text1,1,5) End Sub 运行程序,在文本框Text1 中原有字符之前输入a,Text2 中显示的是( ) 。A.DataA B.DataB C.aData D.aBase 参考答案: C Mid(str,m,n) 表示从字符串 str 的第 m位开始取 n位字符作为新的字符串返回。在本题中, 由于在元字符之前输入了a,所以 Text1 为“aDataBase”,从第 1 位开始取 5 个字符的结
27、果为“ aData”,故本题答案选择C)。第 29 题:有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr(10) arr+Array(10, 35, 28, 90, 54, 68, 72,90) For Each a Inarr If a50 Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误,错误之处是( )。A.数组定义语句不对,应改为Dimarr 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -
28、- - - - - - 第 10 页,共 17 页 - - - - - - - - - 11 B.没有指明 For 循环的终值C.应在 For 语句之前增加 Sum=0 D.Next a 应改为 Next 参考答案: A 本题中定义的数组长度为10,但是赋值却只有8 个,所以赋值与本身数组的长度不匹配,修改方法是将arr 设置为 arr (8) 或者直接为 Dimarr ,将 arr 设置为变体变量。故本题答案选择A。第 30 题:要求产生 10 个随机整数,存放在数组arr 中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下
29、程序: Option Base 1 Private Sub Command1_Click() Dim arr(10) As Integer For 1-1 To 10 循环1 arr(i) =Int(Rnd*100) Print arr(i) ; Next x=InputBox(输入 110 的一个整数: ) For i=x+1 To 10 循环2 arr(i-1) =arr(i) Next For i=1 To 10 循环3 Print arr(i) : Next End Sub 程序运行后发现显示的结果不正确。应该进行的修改是( ) 。A.产生随机数时不使用Int 函数B.循环 2 的初值
30、应为 i=x C.数组定义改为 Dim a(11) As Integer D.循环 3 的循环终值应改为9 参考答案: D 循环 3 的作用是输出删掉一个数之后的数组,原数组个数为10,但是现在的数组个数为 9,如果循环到 10,当 i=10 时,由于 arr( 10) 已经不存在了,所以会随机输出一个数。故本题答案选择D)。第 31 题:使用驱动器列表框Drive1 ,目录列表框 Dir1 、文件列表框 File1时,需耍设置控件的同步。以下能够正确设置两个控件同步的命令是( ) 。A.Dir1.Path=DrivelPath B.File1.Path=DirlPath C.File1.Pa
31、th=DrivelPath D.Drive1.Drive=DirlPath 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页,共 17 页 - - - - - - - - - 12 参考答案: A 设置两个控件同步的命令有File1 Path=DirlPath和 DirlPath=Drive1Drive,故本题选择 B。第 32 题:以下关于弹出式菜单的叙述中,。错误的是( )。A.一个窗体只能有一个弹出式菜单B.弹出式菜单在菜单编辑器中建立C.弹出式菜单的菜单名 (主菜单项
32、 ) 的“可见”属性通常设置为False D.弹出式菜单通过窗体的PopupMenu 方法显示参考答案: A 弹出式菜单也需要在菜单编辑器中建立,通常将主菜单的“可见”属性设置为False ,并通过窗体的 PopupMenu 方法来显示。故本题答案选择A。第 33 题:有如下程序: Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.X=ABCD a.Y=12345 Print a End Sub 程序运行时出现错误。错误的原因是( )。A.Type 定义语
33、句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print不对参考答案: D 用 Private声明的 Type 类型可以放在窗体中。由于a 代表一个类,所以在输出a 的信息时需要注明输出a 的哪一个属性,即Print语句有错误,应该修改为Print a.X,a.Y。故本题答案选择D)。第 34 题:在窗体上画两个名称分别为Text1 、Text2 的文本框,一个名称为Label1 的标签,窗体外观如图a 所示。要求当改变任一个文本框的内容,就会将该文本框的内容显示在标签中,如图b 所示。实现上述功能的程序如下:名师资料总结 - - -精品资料欢迎下载 - - - - -
34、 - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页,共 17 页 - - - - - - - - - 13 Private Sub Text1_Change() Call ShowText(Text1) End Suo Private Sub Text2_Change() Call ShowText(Text2) End Sub Private Sub ShowText(T As TextBox ) Labe1 1.Caption=文本框中的内容是: T.Text End Sub 关于上述程序,以下叙述中错误的是( )。A.ShowTe
35、xt 过程的参数类型可以是Contro1 B.ShowText 过程的参数类型可以是Variant C.两个过程调用语句有错,应分别改为Call ShowText(Text1.Text)、Call ShowText(Text2.Text) D.ShowText 过程中的 T 是控件变量参考答案: C 题干中, ShowText() 函数中用的是 TextBox 类型的控件参数, C选项中的实参是具体的控件属性,而不是控件变量。故本题答案选择C)。第 35 题:设有打开文件的语句如下: Open test.dat For Random As#1 要求把变量 a 中的数据保存到该文件中,应该使用的
36、语句是( )。A.Input #1,a B.Write #1 、a C.Put #1 、a D.Get #1,a 参考答案: C 选项 A表示读取变量 a,选项 A是向文件 #1 中写入指定字符串; 选项 C表示将一名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页,共 17 页 - - - - - - - - - 14 个变量的数据写入磁盘文件;选项D 表示从文件中获取字节。故本题答案选择C)。二、填空题 ( 每空 2 分,共 30 分)第 36 题:在长度为 n 的顺序储的
37、线性表中删除一个元素,最坏情况下需要移动表中的元素个数为 _。参考答案:n-1 线性表的存储结构有两种: 顺序存储 ( 称为线性表 ) 和链式存储 ( 线性链表 ) 。在长度为 n 的顺序存储线性表中删除一个元素, 最坏情况下需要移动表中n-1 个数据。第 37 题:设循环队列的存储空间为Q(1:30) ,初始状态为 front=rear=30。现经过一系列入队与退队运算后, front=16 ,rear=15 ,则循环队列中有 _个元素。参考答案:29 通过题干的描述可知此循环队列共30个空间,另外队尾指针 rear 的值小于队头指针 front的值,所以利用公式 (rear-front+3
38、0) %30=29 ,可知此循环队列的元素个数为 29。第 38 题:数据库管理系统提供的数据语言中,负责数据的增、删、改和查询的是_ 。参考答案:数据操纵语言数据库管理系统提供以下的数据语言:数据定义语言 (DDL) :负责数据的模式定义与数据的物理存取构建;数据操纵语言 (DML) :负责数据的操纵,如查询与增加、删除、修改等;数据控制语言:负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等。第 39 题:在将 E-R 图转换到关系模式时,实体和联系都可以表示成_ 。参考答案:关系关系数据库逻辑设计的主要工作是将E-R 图转换成指定RDBMS 中的关系模式,这种转换是比较直接的,实
39、体与联系都可以表示成关系。第 40 题:常见的软件工程方法有结构化方法和面向对象方法,类、继承以及多态性等概念属于 _。参考答案:面向对象方法面向对象方法是一种基于对象模型的程序设计方法,包括面向对象分析、面向对象设计、 面向对象编程, 是目前应用范围最广的设计方法。其中对象模型包括 6 个要素:封装、抽象、模块化、层次结构、类、并发性和持久。面向对象方法的主要特征是封装、继承和多态性。第 41 题:名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页,共 17 页 - - -
40、- - - - - - 15 下面的事件过程执行时,可以把Text1 文本框中的内容写到文件“file1.txt”中去。请填空。 Private Sub Command1_Click() Open file1.txt”For _ As#1 Print _ ,Text1.text Close#1 End Sub 参考答案:Output ; #1 Output 语句用于指定打开文件, 对文件进行写操作, 并指定打开的文件号为#1,Print的作用是向 #1 号文件中写入文本框Text1 中的内容,故在第 7 空应该填入#1。第 42 题:设窗体上有一个名称为Label1 的标签。程序运行时,单击鼠
41、标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Label1 标签中;单击鼠标右键则停止实时显示,并将标签中内容清除。下面的程序可实现这一功能,请填空。 Dim down As Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single) _ Select Case Case 1 down=True Case 2 down=False End Select End Sub Private Sub Form_MouseMove(Button As Integer, S
42、hift As Integer,X As Single,Y As Single) If _ _ =X=XY= Y Else Label1.Caption= End If End Sub 参考答案:Button ; down ; Label1.Caption 本题考查的是窗体的MouseDown 和 MouseMove 事件。在 MouseDown 事件中,通过选择 Button 的值来确定鼠标是否被按下, 如果按下则将 clown 设置为 true ,否则设置为 false 。在 MouseMove 事件中,通过 Button 值来确定鼠标左键是否被按下,当鼠标左键被按下时, Button=1
43、 ,此时将标签的 Caption 属性设置为鼠标的坐标值,所以第10 空应该填写 Labell.Caption。第 43 题:窗体上有 List1 、List2两个列表框,程序运行时,在两个列表框中分别选中1名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页,共 17 页 - - - - - - - - - 16 个项目,如图 a 所示,单击名称为 Command1 的“交换”按钮,则把选中的项目互换,互换后的位置不限,如图b 所示。下面的程序可实现这一功能,请填空。 Priv
44、ate Sub Command1_Click() If List1.Text=Or List2,Text=Then MsgBox请选择交换的物品 ! Else List1.AddItemList2.Text List2.Removeltem _ _ List1.Removeltem List1.Listlndex End If End Sub 参考答案:List2.Listlndex ; List2.Addltem List1.Text 先将 LisC2 中选中的内容添加到List1中,同时删除 List2中对应的项目,利用 Removeltem方法, 故第 11 空应该填入 List2.Li
45、stlndex。 结合上面的思路,将 List1中的内容添加到List2中,同时删除 List1中选中的内容。所以第12空应该填入 List2Addltem List1.Text。第 44 题:设窗体上有 Text1 文本框和 Command1 命令按钮,并有以下程序: Private Sub Commandl_Click() femp$= For k=1 To Len(Text1) ch$=Mid(Text1,k,1) If Not found(temp, ch) Then temp=temp_ End If Next k Text1= _ 名师资料总结 - - -精品资料欢迎下载 - -
46、- - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页,共 17 页 - - - - - - - - - 17 End Sub Private Function found(str As String, ch As String) As Boolean For k=1 To Len(str) If ch=Mid(str,k,1) Then found= _ Exit Function End If Next k found=False End Function 运行时,在文本框中输入若干英文字母,然后单击命令按钮,则可以删去文本框
47、中所有重复的字母。例如,若文本框中原有字符串为“abcddbbc”,则单击命令按钮后文本框中字符串为“alocd ”。其中函数 found 的功能是判断字符串 str中是否有字符 ch, 若有,函数返回 True,否则返回 False 。请填空。参考答案:ch ; temp ; True 本题的功能是实现删除重复的字符。函数found 用于判断 ch 是否在字符串str之中,若存在则返回true ,否则返回false ,故第 15 空应该填入True。Command1 的 Click事件用于查找重复的字符,并生成新的字符串。其中,temp用于存储新的字符串, ch$用于获取 Text1 中的字符,通过调用found 函数来判断 ch 是否重复, 若不重复则添加到temp的后面。 最后, 将 temp的值赋给 text1 ,显示新的无重复字符的字符串。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页,共 17 页 - - - - - - - - -
限制150内