【计算机类职业资格】二级VISUAL+BASIC笔试-411及答案解析.doc

1、二级 VISUAL+BASIC 笔试-411 及答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.栈通常采用的两种存储结构是( )。A) 顺序存储结构和链式存储结构 B) 散列方式和索引方式C) 链表存储结构和数组 D) 线性存储结构和非线性存储结构（分数：2.00）A.B.C.D.2.下列叙述中正确的是( )。A) 线性表是线性结构B) 栈与队列是非线性结构C) 线性链表是非线性结构D) 二叉树是线性结构（分数：2.00）A.B.C.D.3.设树 T 的度为 4，其中度为 1、2、3、4 的结点个数分别为 4、21、1，则 T 中的叶子结点数为

2、( )。A) 8 B) 7 C) 6 D) 5（分数：2.00）A.B.C.D.4.在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是( )。A) 可行性分析 B) 需求分析 C) 详细设计 D) 程序编码（分数：2.00）A.B.C.D.5.下列选项中不属于结构化程序设计方法的是( )。A) 自顶向下 B) 逐步求精 C) 模块化 D) 可复用（分数：2.00）A.B.C.D.6.在结构化程序设计中，模块划分的原则是( )。A) 备模块应包括尽量多的功能 B) 各模块的规模应尽量大C) 各模块之间的联系应尽量紧密 D) 模块内具有高内聚度、模块间具有低耦合度（分数：2.00）

3、A.B.C.D.7.下述关于数据库系统的叙述中正确的是( )。A) 数据库系统减少了数据冗余 B) 数据库系统避免了一切冗余C) 数据库系统中数据的一致性是指数据类型一致 D) 数据库系统比文件系统能管理更多的数据（分数：2.00）A.B.C.D.8.下列叙述中，正确的是( )。A) 用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系B) 用 E-R 图只能表示实体集之间一对一的联系C) 用 E-R 图只能表示实体集之间一对多的联系D) 用 E-R 图表示的概念数据模型只能转换为关系数据模型（分数：2.00）A.B.C.D.9.Visual FoxPro 关系数据库管理系统

4、能够实现的三种基本关系运算是( )。A) 索引、排序、查找 B) 建库、录入、排序C) 选择、投影、连接 D) 显示、统计、复制（分数：2.00）A.B.C.D.10.下面关于对象概念的描述中，错误的是( )。A) 对象就是 C 语言中的结构体变量 B) 对象代表着正在创建的系统中的一个实体C) 对象是一个状态和操作(或方法)的封装体 D) 对象之间的信息传递是通过消息进行的（分数：2.00）A.B.C.D.11.下列说法中错误的是( )。A) 资源文件的扩展名为.resB) 一个窗体对应一个窗体文件C) Visual Basic 中的一个工程只包含一个窗体D) Visual Basic 中一

5、个工程最多可以包含 255 个窗体（分数：2.00）A.B.C.D.12.双击窗体中的对象后，Visual Basic 将显示的窗口是( )。A) 项目(工程)窗 B) 工具箱 C) 代码窗口 D) 属性窗口（分数：2.00）A.B.C.D.13.设 a=5，b=4,c=3,d=2，下列表达式的值是( )。32*b Or a=c And bc Or cdA) 1 B) True C) False D) 2（分数：2.00）A.B.C.D.14.使用 Public Const 语句声明一个全局的符号常量时，该语句应放在( )。A) 过程中 B) 窗体模块的通用声明段C) 标准模块的通用声明段 D

6、) 窗体模块或标准模块的通用声明段（分数：2.00）A.B.C.D.15.若要获得滚动条的当前值，可访问的属性是( )。A) Text B) Value C) Max D) Min（分数：2.00）A.B.C.D.16.Mid(“Hello Everyone”，7，3)的执行结果是( )。A) ong B) every C) Eve D) one（分数：2.00）A.B.C.D.17.在窗体上添加一个名为 Command1 的命令按钮，一个名为 text1 的文本框，则执行如下事件过程后，文本框中的输出为( )。For i=1 To 3For i=1 To 3For k=1 To 2x=x+3

7、Next k,j,iText1.Text=str(X)A) 21 B) 42 C) 54 D) 72（分数：2.00）A.B.C.D.18.引用列表框(List1)最后一个数据项应使用( )。A) List1.List(List1.ListCount) B) List1.List(List.ListCount-1)C) List1.List(ListConut) D) List1.List(ListCount-1)（分数：2.00）A.B.C.D.19.复选框的 Value 属性为 0 时，表示( )。A) 复选框未被选中 B) 复选框被选中C) 复选框内有灰色的勾 D) 复选框操作有误（分数

8、：2.00）A.B.C.D.20.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim as=0:j=1a=Array(1，2，3，4)For i=4 To 1 Step-1S=S+a(i)*ij=j*10NextPrint sEnd Sub运行上面的程序并单击命令按钮，其输出结果是( )。A) 4221 B) 1234 C) 34 D) 12（分数：2.00）A.B.C.D.21.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Su

9、b Command1_Click()C=“ABCD”For n=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在横线处应填入的内容为( )。A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)（分数：2.00）A.B.C.D.22.有如下程序：Private Sub Form_Click()Dim i As Integer, Sum As IntegerSum=0For i=2 To 10If i Mod 2=0 And i Mod 30 ThenSum=Sum+i

10、End IfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为( )。A) 12 B) 30 C) 24 D) 18（分数：2.00）A.B.C.D.23.产生10，27之间的随机整数的 Visual Basic 表达式是( )。A) Int(Rnd(1)*27)+10 B)Int(Rnd(1)*28)+10 C)Int(Rnd(1)*27)+11 D)Int(Rnd(1)*28)+11（分数：2.00）A.B.C.D.24.以键盘上输入一个实数 nu，利用字符串函数对该数进行处理，如果输出的内容不是字符 End，则程序输出的内容是( )。nu:InputBox(“nu=

11、“)n $=Str$(nu)p=InStr(n$，“ . “)if p0 ThenPrint Mid$(n$.p)ElsePrint“END”End IfA) 用字符方式输出数据 nuB) 输出数据的整数部分C) 输出数据的小数部分D) 只去掉数据中的小数点，保留所有数字输出（分数：2.00）A.B.C.D.25.窗体上有一个命令按钮，命令按钮的单击事件过程如下。Private Sub Command1_Click()Dim aa:Array(1,2,3,4,5)For k=1 To 4s=s+a(k)NextPrint sEnd Sub运行程序后，单击命令按钮，输出结果是( )。A) 10

12、B) 14 C) 15 D) 120（分数：2.00）A.B.C.D.26.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程。Private Sub Command1_Click()For n=1 To 20If n Mod 3O Then m=m+n/3NextPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是( )。A) 15 B) 18 C) 21 D) 24（分数：2.00）A.B.C.D.27.在窗体上添加一命令按钮，其名为 Command1，然后编写如下代码。private Sub Command1_Click()Dim arr(

13、5)As Integer,arr1(5)As Integern=3For i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n);arr(n)End Sub程序的运行结果为( )。A) 3 11 B) 11 3 C) 13 3 D) 3 13（分数：2.00）A.B.C.D.28.单击命令按钮时，下列程序的执行结果是( )。Private Sub Command1_Click()Dim a As Integer,b As Integer,C As Integera=3:b=4:c=5Print SecProc(c,b，A)End SubFunction F

14、irProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FunctionFunction SecProc(x As Integer,y As Integer,z As Integer)SecProc=FirProc(z,x,y)+xEnd FunctionA) 20 B) 22 C) 28 D) 30（分数：2.00）A.B.C.D.29.下列程序运行后的输出结果是( )。Function Fun(n)x=n*nFun=x-11End FundionPrivate Sub Command1_Click()For k=

15、1 To 2y=Fun(k):Print yNextEnd SubA) -10 -7 B) 10 8 C) 1 3 D) 0 4（分数：2.00）A.B.C.D.30.以下合法的 Visual Basic 标识符是( )。A) ForLoop B) Const C) 9abc D) a#x（分数：2.00）A.B.C.D.31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf X20 ThenY=XElseY=20+XEnd Iffunc=YEnd Functi

16、onPrivate Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer,X As Single,Y As Single)SW=TrueEnd SubPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“”)If SW ThenPrint func(intNum)E

17、nd IfEnd Sub程序运行后，单击命令按钮，将显示个输入对话框，如果在对话框中输入 25，则程序的执行结果为( )oA) 输出 0 B) 输出 25 C) 输出 45 D) 无任何输出（分数：2.00）A.B.C.D.32.有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (Button And 3)=3 ThenPrint “OK“End IfEnd Sub程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是( )。A) 左键 B) 右键C) 同时按下左键和右键 D) 按什么都不显示（分

18、数：2.00）A.B.C.D.33.下列说法正确的是( )。A) 在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B) 自定义对话框是由用户根据自己需要定义的C) 预定义对话框是用户在设置程序代码后定义的D) MsgBox 函数是用户的自定义对话框的函数（分数：2.00）A.B.C.D.34.在 Visual Basic 中，要将一个窗体从内存中释放，应使用的语句是( )。A) Hide B) Unload C) Load D) Show（分数：2.00）A.B.C.D.35.向顺序文件 Temp.txt 中写入 1、2、3 这 3 个数。在程序中加入( )可以

19、使程序功能完整。Private Sub Command1_Click()Open“c:/Temp.txt”,Output As#1Fori=0 To 3NextClose#1End SubA) Print#1,Temp.txt B) Get#1,i C) Print#1,i D) Unit#1,i（分数：2.00）A.B.C.D.二、填空题(总题数：12，分数：26.00)36.在最坏情况下，冒泡排序的时间复杂度为 (1) 。（分数：2.00）填空项 1:_37.设一棵完全二叉树共有 700 个结点，则在该二叉树中有 (2) 个叶子结点。（分数：2.00）填空项 1:_38.程序测试分为静态测

20、试和动态测试。其中 (3) 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。（分数：2.00）填空项 1:_39.用二维表的形式来表示实体之间联系的数据模型叫做 (4) 。（分数：2.00）填空项 1:_40.数据库管理系统常见的数据模型有层次模型、 (5) 和关系模型三种。（分数：2.00）填空项 1:_41.能够将文本框控件隐藏起来的属性是 (6) （分数：2.00）填空项 1:_42.表达式(2+8*3)/2 的值是 (7) （分数：2.00）填空项 1:_43.语句 Form2.Show 0 表示 (8) ；语句 Form3.Show 1 表示 (9)

21、 。（分数：2.00）填空项 1:_44.有以下程序：Private Sub Form_Activate()Fori=1 to 3x=3For i=i to 2x=x+6NextNextPrint XEnd Sub程序运行后，窗体上显示的结果为 (10) （分数：2.00）填空项 1:_45.InputBox 函数输入数据时，可以单击“确定”按钮或 (11) 表示确认。（分数：2.00）填空项 1:_46.下面程序是用来打印九九乘法表的，请填空。Dim i As Integer,j As Integer, Str1$Str1=”For i=1 To 9For i=1 To 9If (12) T

22、henStr1:Str1+Str$(j)+“”+Str$(i)+“=”+Str$(Va1(i)j)ElseStr1:Str1Chr(13)(13) End IfNextNextPrint Str1（分数：2.00）填空项 1:_47.有下面一个程序段，从文本框中输入数据，如果该数据满足条件“除以 4 余 1，除以 5 余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click()x=Va1(Text1.Text)If (14) ThenPrint XElseText1.Text=“”(15) End IfEnd Sub（分数：4.00

23、）填空项 1:_二级 VISUAL+BASIC 笔试-411 答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.栈通常采用的两种存储结构是( )。A) 顺序存储结构和链式存储结构 B) 散列方式和索引方式C) 链表存储结构和数组 D) 线性存储结构和非线性存储结构（分数：2.00）A. B.C.D.解析：解析 和线性表类似，栈也有两种存储方法，一是顺序栈，二是链式栈。栈的顺序存储结构是利用一组地址连续的存储单元一次存储自栈底到栈顶的数据元素，同时附设指针 top 指示栈顶元素的位置，由于栈的操作是线性表操作的特例，相对而言，链式栈的操作更易于实现

24、。2.下列叙述中正确的是( )。A) 线性表是线性结构B) 栈与队列是非线性结构C) 线性链表是非线性结构D) 二叉树是线性结构（分数：2.00）A. B.C.D.解析：解析 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分为两大类型：线性结构与非线性结构。如果一个非空的数据结构满足下列两个条件：有且只有一个根结点，每一个结点最多有一个前件，也最多有一个后件，则称该数据结构为线性结构，又称线性表。所以线性表、栈与队列、线性链表都是线性结构，而二叉树是非线性结构。3.设树 T 的度为 4，其中度为 1、2、3、4 的结点个数分别为 4、21、1，则 T 中的叶子结点数为( )。

25、A) 8 B) 7 C) 6 D) 5（分数：2.00）A. B.C.D.解析：解析 将题中所述的树用图形表示即可得到叶子结点的数目，另外还可用公式n0=1n2+2n3+3n4+1 来计算，其中 n0表示叶子结点，1n 2中的 n2表示度为 2 的结点，此题中度为 1 的结点有 4 个，度为 2 的结点有 2 个，度为 3 的结点有 1 个，度为 4 的结点有 1 个，计算过程如下。n0=1n2+2n3+3n4+1n0=12+21+31+1n0=84.在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是( )。A) 可行性分析 B) 需求分析 C) 详细设计 D) 程序编码（分数

26、：2.00）A.B. C.D.解析：解析 软件开发阶段包括需求分析、总体设计、详细设计、编码和测试五个阶段。其中需求分析阶段常用的工具是数据流图和数据字典。本题答案为 B)。5.下列选项中不属于结构化程序设计方法的是( )。A) 自顶向下 B) 逐步求精 C) 模块化 D) 可复用（分数：2.00）A.B.C.D. 解析：解析 结构化程序设计方法的主要原则是：自顶向下，逐步求精，模块化，限制使用 goto 语句。可复用性是指软件元素不加修改和稍加修改可在不同的软件开发过程中重复使用的性质。软件可复用性是软件工程追求的目标之一，是提高软件生产效率的最主要方法。面向对象的程序设计具有可复用性的优点

27、。6.在结构化程序设计中，模块划分的原则是( )。A) 备模块应包括尽量多的功能 B) 各模块的规模应尽量大C) 各模块之间的联系应尽量紧密 D) 模块内具有高内聚度、模块间具有低耦合度（分数：2.00）A.B.C.D. 解析：解析 在结构化程序设计中，一般较优秀的软件设计尽量做到高内聚、低耦合，这样有利于提高软件模块的独立性，也是模块划分的原则。7.下述关于数据库系统的叙述中正确的是( )。A) 数据库系统减少了数据冗余 B) 数据库系统避免了一切冗余C) 数据库系统中数据的一致性是指数据类型一致 D) 数据库系统比文件系统能管理更多的数据（分数：2.00）A. B.C.D.解析：解析 数据

28、库系统的数据具有高共享性和低冗余性，但不能完全避免数据冗余；数据的一致性是指在系统中同一数据的不同出现应保持相同的值。8.下列叙述中，正确的是( )。A) 用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系B) 用 E-R 图只能表示实体集之间一对一的联系C) 用 E-R 图只能表示实体集之间一对多的联系D) 用 E-R 图表示的概念数据模型只能转换为关系数据模型（分数：2.00）A. B.C.D.解析：解析 两个实体之间的联系实际上是实体集间的函数关系，这种函数关系可以有下面几种，即一对一的联系、一对多(或多对一)的联系和多对多的联系；概念模型便于向各种模型转换。由于概念

29、模型不依赖于具体的数据库管理系统，因此，容易向关系模型、网状模型和层次模型等各种模型转换。9.Visual FoxPro 关系数据库管理系统能够实现的三种基本关系运算是( )。A) 索引、排序、查找 B) 建库、录入、排序C) 选择、投影、连接 D) 显示、统计、复制（分数：2.00）A.B.C. D.解析：解析 关系数据库管理系统能够实现的三种基本关系运算是选择(从关系中找出满足给定条件的元组的操作称为选择)、投影(从关系模式中指定若干个属性组成新的关系)、连接(是关系的横向组合)。10.下面关于对象概念的描述中，错误的是( )。A) 对象就是 C 语言中的结构体变量 B) 对象代表着正在创

30、建的系统中的一个实体C) 对象是一个状态和操作(或方法)的封装体 D) 对象之间的信息传递是通过消息进行的（分数：2.00）A. B.C.D.解析：解析 对象是由数据和容许的操作组成的封装体，与客观实体有直接的对应关系，对象之间通过传递消息互相联系，从而模拟现实世界中不同事物彼此之间的联系，B)、C)、D)是正确的，对象的思想广泛应用于 C+、Java 等语言中，因此 A)错误。11.下列说法中错误的是( )。A) 资源文件的扩展名为.resB) 一个窗体对应一个窗体文件C) Visual Basic 中的一个工程只包含一个窗体D) Visual Basic 中一个工程最多可以包含 255 个

31、窗体（分数：2.00）A.B.C. D.解析：解析 Visual Basic 中的一个工程可以包括一个或多个窗体，最多不超过 255 个窗体。因此选项D)是正确的，而选项 C)的说法是不正确的。资源文件的扩展名是.res，所以选项 A)是正确的。一个窗体对应于一个窗体文件，所以选项 B)也是正确的。12.双击窗体中的对象后，Visual Basic 将显示的窗口是( )。A) 项目(工程)窗 B) 工具箱 C) 代码窗口 D) 属性窗口（分数：2.00）A.B.C. D.解析：解析 在 Visual Basic 中，打开代码窗口有两种方式：一是双击窗体中的对象；二是从工程资源管理器中选择“代码

32、窗口”文件夹。13.设 a=5，b=4,c=3,d=2，下列表达式的值是( )。32*b Or a=c And bc Or cdA) 1 B) True C) False D) 2（分数：2.00）A.B. C.D.解析：解析 32*b 是假的，a=c 是假的，bc 是真的，cd 是真的。最后一项参与的是或运算，所以最终结果一定是真的。14.使用 Public Const 语句声明一个全局的符号常量时，该语句应放在( )。A) 过程中 B) 窗体模块的通用声明段C) 标准模块的通用声明段 D) 窗体模块或标准模块的通用声明段（分数：2.00）A.B.C. D.解析：解析 Public Cons

33、t 语句声明一个全局的符号常量时，该语句应该放在标准模块的通用声明段中。根据定义变量的关键字不同，变量的作用范围和作用时间也不同，要熟记这些关键字的功能。15.若要获得滚动条的当前值，可访问的属性是( )。A) Text B) Value C) Max D) Min（分数：2.00）A.B. C.D.解析：解析 滚动条的 Value 指示当前滚动条值。16.Mid(“Hello Everyone”，7，3)的执行结果是( )。A) ong B) every C) Eve D) one（分数：2.00）A.B.C. D.解析：解析 Mid(字符串，p，n)：从第 p 个字符开始，向后截取 n 个

34、字符。p 和 n 都是算术表达式。17.在窗体上添加一个名为 Command1 的命令按钮，一个名为 text1 的文本框，则执行如下事件过程后，文本框中的输出为( )。For i=1 To 3For i=1 To 3For k=1 To 2x=x+3Next k,j,iText1.Text=str(X)A) 21 B) 42 C) 54 D) 72（分数：2.00）A.B.C. D.解析：解析 For 循环控制结构每次执行循环语句时，X 值都增加，则(32)33=633=183=54。18.引用列表框(List1)最后一个数据项应使用( )。A) List1.List(List1.ListC

35、ount) B) List1.List(List.ListCount-1)C) List1.List(ListConut) D) List1.List(ListCount-1)（分数：2.00）A.B. C.D.解析：解析 ListCount 属性返回控件的列表部分项目的个数。List 属性返回控件的列表部分的项目，语法为：列表框名称 .List(索引)。19.复选框的 Value 属性为 0 时，表示( )。A) 复选框未被选中 B) 复选框被选中C) 复选框内有灰色的勾 D) 复选框操作有误（分数：2.00）A. B.C.D.解析：解析 复选框 Value 属性为 0，表示复选框未被选中。

36、20.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim as=0:j=1a=Array(1，2，3，4)For i=4 To 1 Step-1S=S+a(i)*ij=j*10NextPrint sEnd Sub运行上面的程序并单击命令按钮，其输出结果是( )。A) 4221 B) 1234 C) 34 D) 12（分数：2.00）A.B. C.D.解析：解析 数组名 a 为变体型变量，用 Array 函数对其进行初始化，得到 a(1)=1，a(2)=2，a(3)=3和 a

37、(4)=4。变量 j 在循环中每次计算后扩大 10 倍，变量 s 的计算过程为s=41+310+2100+11000=1234。21.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()C=“ABCD”For n=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在横线处应填入的内容为( )。A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)（分数：2.00）A.B. C.D.解析：解析 L

38、eft(c,n)取字符串 c 左边 n 个字符；Right(c,n)取字符串 c 右边 n 个字符；Mid(c，N1 ,N2)取字符子串，在 c 中从 N1 位开始向右取 N2 个字符，默认 N2 到结束。22.有如下程序：Private Sub Form_Click()Dim i As Integer, Sum As IntegerSum=0For i=2 To 10If i Mod 2=0 And i Mod 30 ThenSum=Sum+iEnd IfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为( )。A) 12 B) 30 C) 24 D) 18（分数：2.

39、00）A.B.C. D.解析：解析 本题程序段的作用是将从 2 到 10 中是 2 的倍数但不是 3 的倍数的数求和然后输出。在 2到 10 中满足条件的数字是 2，4，8，10，所以和是 24，故本题的正确答案是选项 C)。23.产生10，27之间的随机整数的 Visual Basic 表达式是( )。A) Int(Rnd(1)*27)+10 B)Int(Rnd(1)*28)+10 C)Int(Rnd(1)*27)+11 D)Int(Rnd(1)*28)+11（分数：2.00）A.B. C.D.解析：解析 Rnd(x)产生一个 0.11110.99999 之间的单精度随机数。24.以键盘上输

40、入一个实数 nu，利用字符串函数对该数进行处理，如果输出的内容不是字符 End，则程序输出的内容是( )。nu:InputBox(“nu=“)n $=Str$(nu)p=InStr(n$，“ . “)if p0 ThenPrint Mid$(n$.p)ElsePrint“END”End IfA) 用字符方式输出数据 nuB) 输出数据的整数部分C) 输出数据的小数部分D) 只去掉数据中的小数点，保留所有数字输出（分数：2.00）A.B.C. D.解析：解析 题中通过 InputBox 函数输入一个实数并赋值给 nu，并用 Str$和 InStr 进行函数转换后进行判断，最后输出结果。25.窗体

41、上有一个命令按钮，命令按钮的单击事件过程如下。Private Sub Command1_Click()Dim aa:Array(1,2,3,4,5)For k=1 To 4s=s+a(k)NextPrint sEnd Sub运行程序后，单击命令按钮，输出结果是( )。A) 10 B) 14 C) 15 D) 120（分数：2.00）A.B. C.D.解析：解析 Array 函数在默认的情况下，数组的下标从 O 开始，所以 s=a(1)+a(2)+a(3)+a(4)=2+3+4+5=14。26.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程。Private Sub Co

42、mmand1_Click()For n=1 To 20If n Mod 3O Then m=m+n/3NextPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是( )。A) 15 B) 18 C) 21 D) 24（分数：2.00）A.B.C. D.解析：解析 n 从 1 到 20，循环共执行 20 次，当 n=21 时，循环条件不成立，循环结束，最后输出 n 的值为 21。因此，选项 C)正确。If 语句是判断每个条件是否成立，第一次碰到条件成立的表达式，执行其后面的语句后退出 If 语句。27.在窗体上添加一命令按钮，其名为 Command1，然后编写如下代码。

43、private Sub Command1_Click()Dim arr(5)As Integer,arr1(5)As Integern=3For i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n);arr(n)End Sub程序的运行结果为( )。A) 3 11 B) 11 3 C) 13 3 D) 3 13（分数：2.00）A.B. C.D.解析：解析 在给数组赋值时，如果每次都是赋给数组中同一个成员，那么后面的赋值将覆盖以前的值。28.单击命令按钮时，下列程序的执行结果是( )。Private Sub Command1_Click()Dim a A

44、s Integer,b As Integer,C As Integera=3:b=4:c=5Print SecProc(c,b，A)End SubFunction FirProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FunctionFunction SecProc(x As Integer,y As Integer,z As Integer)SecProc=FirProc(z,x,y)+xEnd FunctionA) 20 B) 22 C) 28 D) 30（分数：2.00）A.B.C. D.解析：解析 此题程

45、序代码中用了双层调用，考生对这样的问题要多加小心，千万不要把实参和相对应的形参弄混。主调过程 Command1_Click 输出的是 SecProc(c，b，A)的返回值，调用过程 SecProc 时，主调过程分别把实参 c、b、a 地址传给形参 x、y、z，此时在过程 SecProc 中，SecProc=FirProc(a，c，B) +c。 由此看出，程序段执行此语句时，将调用过程 FirProc。把实参 a、c、b 的地址分别传给形参x、y、z，此时在过程 FirProc 中，FirProc=2*x+y+3*z，所以 FirProc(a,c,B)=6+4+15=25, SecProc(a,

46、c,b)=25+3=28，所以选项 C)是正确的。29.下列程序运行后的输出结果是( )。Function Fun(n)x=n*nFun=x-11End FundionPrivate Sub Command1_Click()For k=1 To 2y=Fun(k):Print yNextEnd SubA) -10 -7 B) 10 8 C) 1 3 D) 0 4（分数：2.00）A. B.C.D.解析：解析 本题的难点是子函数过程的调用。子函数过程的名称变量 Fun 将计算结果返回。30.以下合法的 Visual Basic 标识符是( )。A) ForLoop B) Const C) 9ab

47、c D) a#x（分数：2.00）A. B.C.D.解析：解析 Const 为 VisualBasic 保留字，9abc 数字开头不行，a#x 中#不允许使用。31.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf X20 ThenY=XElseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As

48、Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer,X As Single,Y As Single)SW=TrueEnd SubPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“”)If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示个输入对话框，如果在对话框中输入 25，则程序的执行结果为( )oA) 输出 0 B) 输出 25 C) 输出 45 D) 无任何输出（分数：2.00）A.B.C.D. 解析：解析 本题考查的是鼠标事件，当压下鼠标左键(发生 MouseDown 时)，SW 的值为 False，当松开鼠标左键(触发 MouseUp 时)，SW 的值为 True。32.有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (Button And 3)=3 ThenPrint “OK“End IfEnd Sub