1、二级 VISUAL+BASIC 笔试 382 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用2.需求分析阶段的任务是确定（分数：2.00）A.软件开发方法B.软件开发工具C.软件开发费用D.软件系统功能3.如果进栈序列为 e1，e2，e3，e4，则可能的出栈序列是（分数：2.00）A.e3，e1，e4，e2B.e2，e4，e3，e1C.e3，e4，e1，e2D.任意顺序4.有如下程序
2、： Private Sub Command1_Click() a$=“A WORKER IS HERE“ x=Len(a$) For i=1 To x-1 b$=Mid$(a$，i，3) If b$=“WOR“，Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为（分数：2.00）A.1B.2C.3D.55.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly Commo
3、nDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*)B.Text Files(*.txC.Batch Files(*.baD.All Files(*.*)|Text Files(*.tx6.下列有关数据库的描述，正确的是（
4、分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字7.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序8.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪个属性（分数：2.00）A.ValueB.VisibleC.EnabledD.Default9.设 A=“
5、123456“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为（分数：2.00）A.123456B.123445C.5D.610.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4) As IntegerB.Option Base 1:Dim a(5)C.Dim a & (5)D.Dime a(5) As Integer11.下面说法不正确的是（分数：2.00）A.变量名的长度不能超过 255 个字符B.变量名可以包含小数点或者内嵌的类型声明字符C.变量名不能使用关键字D.变量名的第一个字符必须是字母12.设 a=6，则执行 x=IIF(a5，-
6、1，0) 后，x 的值为（分数：2.00）A.5B.6C.0D.-113.将 E-R 图转换到关系模式时，实体与联系都可以表示成（分数：2.00）A.属性B.关系C.键D.域14.假定有如下的窗体事件过程： Private Sub Form_Click() a$=“Microsoft Visual Basic“ b$=Right(a$，5) c$=Mid(a$，1，9) MsgBox a$，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.Microsoft VisualB.MicrosoftC.BasicD.515.为了使
7、模块尽可能独立，要求（分数：2.00）A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强16.下面程序段执行结果为 x=Int(Rnd() +4) Select Case x Case 5 Print “excellent“ Case 4 Print “good“ Case 3 Print “pass“ Case Else Print “fail“ End Select（分数：2.00）A.excellentB.goodC
8、.passD.fall17.如果将文本框的 Locked 属性设置为 True，则以下说法正确的是（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面修改文本框中的内容C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa“，D.以上均不正确18.要使文本框可输入多行文字，要更改的默认选项是（分数：2.00）A.SorollBoars 和 MultiLineB.VisibleC.SorollBoarsD.以上都不是19.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。 Func
9、tion Fun1(b As Integer) if _ Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 20)B.y Mod 20D.y Mod 20preminder=x/yx=yy=preminderLoopgys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是_。Private Sub Command1_Click() Dim a As Integer，b As Integera=10:b=2x=gys(a，b) Print xEnd Sub（分数
10、：2.00）填空项 1:_46.语句 Form2.Show 0 表示U 11 /U； 语句 Form3.Show 1 表示U 12 /U；（分数：4.00）填空项 1:_47.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open “Num.txt“ For Output As #1 For i=1 To 8 _ Next Close#1 End Sub（分数：2.00）填空项 1:_48.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的
11、正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open U14 /U Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) U 15 /U Next i Close #2 End Sub（分数：4.00）填空项
12、1:_二级 VISUAL+BASIC 笔试 382 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法具有 5 个特性：有穷性：一个算法必须(对任何合法的输入值) 在执行有穷步之后结束，且每一步都可在有限时间内完成，即运行时间是有限的；确定性：算法中每一条指令必须有确切的含义，读者理解时不会产生歧义。可行性：一个算法是可行的，即算法中描述的操作都可以通过已经实现的基本运算
13、执行有限次来实现。输入：一个算法有零个或多个输入，这些输入取自于某个特定的对象的集合。输出：一个算法有一个或多个输出。2.需求分析阶段的任务是确定（分数：2.00）A.软件开发方法B.软件开发工具C.软件开发费用D.软件系统功能 解析：解析 需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调查现实世界要处理的对象(组织、部门、企业等) ，充分了解原系统的工作概况，明确用户的各种需求，然后在此基础上确定新系统的功能。选项 A) 软件开发方法是在总体设计阶段需完成的任务；选项 B)软件开发工具是在实现阶段需完成的任务；选项 C) 软件开发费用是在可行性研究阶段需完成的任务。3.如果进栈序
14、列为 e1，e2，e3，e4，则可能的出栈序列是（分数：2.00）A.e3，e1，e4，e2B.e2，e4，e3，e1 C.e3，e4，e1，e2D.任意顺序解析：解析 由栈“后进先出”的特点可知：A)中 e1 不可能比 e2 先出；C)中 e1 不可能比 e2 先出；D)中栈是先进后出的，所以不可能是任意顺序。B)中出栈过程如图 2.4 所示。 4.有如下程序： Private Sub Command1_Click() a$=“A WORKER IS HERE“ x=Len(a$) For i=1 To x-1 b$=Mid$(a$，i，3) If b$=“WOR“，Then S=S+1 N
15、ext Print S End Sub 单击命令按钮，程序运行结果为（分数：2.00）A.1 B.2C.3D.5解析：解析 此题考查字符串函数与循环语句的嵌套使用。S 用来记录找到指定字符串的次数，在“A WORKER IS HERE”中只出现一次，所以返回值是 1。5.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Tex
16、t Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*) B.Text Files(*.txC.Batch Files(*.baD.All Files(*.*)|Text Files(*.tx解析：解析 通用对话框控件 CommonDialog1 的 Filter 属性用来指定在对话框中显示的文件类型。
17、利用该属性可以设置多个文件类型，供用户在对话框“文件类型”的下拉列表中选择。Filter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符文件扩展名，称为“过滤器”。如“*. txt”等，各对字符串间也用管道符隔开。其格式如下： 窗体.对话框名.Filter=“描述符 1|过滤器 1|描述符 2|过滤器 2“ 如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器) 可以由 FilterIndex 属性来指定，该属性是一个整数。用 Filter 属
18、性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为 2用 FilterIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*) 。6.下列有关数据库的描述，正确的是（分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字 解析：解析 数据处理是指将数据转换成信息的过程，故选项 A)叙述错误；数据的物理独立
19、性是指数据的物理结构的改变，不会影响数据库的逻辑结构，故选项 B)叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项 C)叙述错误。7.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序 解析：解析 在最坏情况下，快速排序、冒泡排序和直接插入排序需要的比较次数都为 n(n-1)/2，堆排序需要的比较次数为 nlog2n。8.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪个属性（分数：2.00）A.ValueB.Visible
20、C.Enabled D.Default解析：解析 在 Visual Basic 中，控制控件有效性的属性是 Enabled，设置为 True，则处于有效状态，如果设置成 False，则处于无效状态，所以选项 C)是正确的；Visible 属性是控制空间可见性的，有两种值：True 和 False，默认情况下是 True；如果将对象的 Visible 值设为 False，窗体和控件在设计阶段仍可见，只有运行时才隐藏，所以选项 B)不正确；Default 是决定窗体默认命令按钮的属性，另外，一个窗体只能有一个默认命令按钮，所以选项 D)也不正确；Value 属性在不同的控件中有不同的作用。9.设
21、A=“123456“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为（分数：2.00）A.123456B.123445 C.5D.6解析：解析 Left(A,4) =“1234“ Mid(A,4,2) =“45“ Val(“1234“+“45“) =123445 其中，Left 和 Mid 均为字符串截取函数，“+”为字符串连接符。10.定义有 5 个整数型元素的数组，正确的语句是（分数：2.00）A.Dim a(4) As Integer B.Option Base 1:Dim a(5)C.Dim a & (5)D.Dime a(5) As Integer解析：解析 在选项
22、 B 中，语句 OptionBase1 不能放在过程中与 Dim 语句写在一行；选项 C 中，使用了多余的字符“&”；选项 D 中的关键字错误。选项 A 中的 4 表示最大下标的值，而起始下标默认为 0，数组包含 a(0)a(4)5 个元素。11.下面说法不正确的是（分数：2.00）A.变量名的长度不能超过 255 个字符B.变量名可以包含小数点或者内嵌的类型声明字符 C.变量名不能使用关键字D.变量名的第一个字符必须是字母解析：解析 在 Visual Basic 中，可以用名字来表示内存的位置，以便访问内存中的数据。有关变量命名的规则如下： 名字只能由字母、数字和下画线组成。 名字的第一个字
23、符必须是英文字母，最后一个字符可以是类型说明符。 名字的有效字符为 255 个。 不能用 Visual Basic 的保留字作变量名，但可以把保留字嵌入变量名中；同时变量名也不能是末尾带有类型说明符的保留字，例如变量 Print 和Print $是非法的，而变量 Print_Number 则是合法的。12.设 a=6，则执行 x=IIF(a5，-1，0) 后，x 的值为（分数：2.00）A.5B.6C.0D.-1 解析：解析 IIF 方法根据表达式的值来快定返回其第 2 和第 3 个参数中的某一个，表达式是其第 1 个参数。在本题中 a5 为 True，所以返回的是-1。13.将 E-R 图转
24、换到关系模式时，实体与联系都可以表示成（分数：2.00）A.属性B.关系 C.键D.域解析：解析 关系数据库逻辑设计的主要工作是将 E-R 图转换成指定 RDBMS 中的关系模式。首先，从 E-R 图到关系模式的转换是比较直接的，实体与联系都可以表示成关系，E-R 图中属性也可以转换成关系的属性，实体集也可以转换成关系。14.假定有如下的窗体事件过程： Private Sub Form_Click() a$=“Microsoft Visual Basic“ b$=Right(a$，5) c$=Mid(a$，1，9) MsgBox a$，34，b$，c$，5 End Sub 程序运行后，单击窗体
25、，则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.Microsoft VisualB.MicrosoftC.Basic D.5解析：解析 b$位置是 Msgbox 标题栏上的名称，MsgBox 的格式为 MsgBox(prompt，buttons，title，helpfile，context) ，其中显示在对话框标题栏中的是字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。15.为了使模块尽可能独立，要求（分数：2.00）A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C.模块的内聚程度要尽量低，
26、且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强解析：解析 模块的独立程度可以由两个定性标准度量：耦合性和内聚性。耦合性是衡量不同模块彼此间互相依赖(连接) 的紧密程度；内聚性是衡量一个模块内部各个元素彼此结合的紧密程度。一般来说，要求模块之间的耦合尽可能弱，而内聚性尽可能高。16.下面程序段执行结果为 x=Int(Rnd() +4) Select Case x Case 5 Print “excellent“ Case 4 Print “good“ Case 3 Print “pass“ Case Else Print “fail“ End Select（
27、分数：2.00）A.excellentB.good C.passD.fall解析：解析 在 Visual Basic 中，组成变量名的英文字母不区分大小写，例 Single 和 single 是一样的，在定义了一个变量之后，只要字符相同，则不管它大小写是否相同，指的都是同一个变量。17.如果将文本框的 Locked 属性设置为 True，则以下说法正确的是（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面修改文本框中的内容 C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa“，D.以上均不正确解析：解析 文本
28、框的 Locked 属性是用来指定文本框是否锁定，当设置值为 False(默认值)时，可以编辑文本框中的文本，当设置值为 True 时，可以滚动和选择控件中的文本，但不可以编辑。18.要使文本框可输入多行文字，要更改的默认选项是（分数：2.00）A.SorollBoars 和 MultiLine B.VisibleC.SorollBoarsD.以上都不是解析：解析 MultiLine 被设置为 True 时可以使用多行文字，不用改 SorollBoars。19.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。 Function Fun1(b As Inte
29、ger) if _ Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 20)B.y Mod 20D.y Mod 20preminder=x/yx=yy=preminderLoopgys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是_。Private Sub Command1_Click() Dim a As Integer，b As Integera=10:b=2x=gys(a，b) Print xEnd Sub（分数：2.00）填空项 1:_ （正确答案
30、：5）解析：解析 本题的难点是 Do WhileLoop 循环控制问题。y=2、5、0.4 的过程中，最后 x=5。46.语句 Form2.Show 0 表示U 11 /U； 语句 Form3.Show 1 表示U 12 /U；（分数：4.00）填空项 1:_ （正确答案：11将窗体 Form2 作为无模式对话框显示）解析：12将窗体 Form3 作为模式对话框显示 解析 显示窗体有两种模式：第一种模式显示窗体，其格式为窗体.Show VbMode1，使用该模式必须等本窗体运行结束后，才能继续运行后面的程序；第二种是非模式显示窗体，使用该模式则正好与第一种模式相反。47.下列程序的功能是：将数
31、据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open “Num.txt“ For Output As #1 For i=1 To 8 _ Next Close#1 End Sub（分数：2.00）填空项 1:_ （正确答案：Print#1，i）解析：解析 向文件中写入数据时用 Print 语句。48.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private T
32、ype Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open U14 /U Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) U 15 /U Next i Close #2 End Sub（分数：4.00）填空项 1:_ （正确答案：14 “C:/Data1.txt“ For Random As #2 Len=10）解析：15 Put #2，i，Ksc 解析 第 1 个空白行已经告诉我们是打开文件的语句，现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中，有 3 个成员，其中角度为整型数据，占2 个字节；弦和余弦函数值为单精度类型，各占 4 个字节，故文件的记录占 10 个字节。若不指定 Len 参数，则隐含一个记录占 128 字节。为了节省存储空间，可在 Open 语句中只写 Len 参数值。程序中没有将数据写入随机文件的语句，第 2 个空白行应是 Put 语句。
