2010年计算机等考二级VB模拟题及解析(2)

会计考友 · 发表于 2012-7-31 22:15:04

　　一、选择题
　　(1) 由两个栈共享一个存储空间的好处是
　　A) 减少存取时间，降低下溢发生的机率
　　B) 节省存储空间，降低上溢发生的机率
　　C) 减少存取时间，降低上溢发生的机率
　　D) 节省存储空间，降低下溢发生的机率
　　正确答案: B
　　(2) 设有两个串p和q，求q在p中首次出现位置的运算称作
　　A) 连接
　　B) 模式匹配
　　C) 求子串
　　D) 求串长
　　正确答案: B
　　(3) n个顶点的连通图中边的条数至少为
　　A) 0
　　B) 1
　　C) n-1
　　D) n
　　正确答案: C
　　(4) 对象实现了数据和操作的结合，是指对数据和数据的操作进行
　　A) 结合
　　B) 隐藏
　　C) 封装
　　D) 抽象
　　正确答案: C
　　(5) 下列叙述中，正确的是
　　A) 软件就是程序清单
　　B) 软件就是存放在计算机中的文件
　　C) 软件应包括程序清单及运行结果
　　D) 软件包括程序和文档
　　正确答案: D

会计考友 · 发表于 2012-7-31 22:15:05

　　(6) 软件设计中，有利于提高模块独立性的一个准则是
　　A) 低内聚低耦合
　　B) 低内聚高耦合
　　C) 高内聚低耦合
　　D) 高内聚高耦合
　　正确答案: C
　　(7) 软件生命周期中花费时间最多的阶段是
　　A) 详细设计
　　B) 软件编码
　　C) 软件测试
　　D) 软件维护
　　正确答案: D
　　(8) 下列4项中说法不正确的是
　　A) 数据库减少了数据冗余
　　B) 数据库中的数据可以共享
　　C) 数据库避免了一切数据的重复
　　D) 数据库具有较高的数据独立性
　　正确答案: C
　　(9) 下列4项中，必须进行查询优化的是
　　A) 关系数据库
　　B) 网状数据库
　　C) 层次数据库
　　D) 非关系模型
　　正确答案: A
　　(10) 最常用的一种基本数据模型是关系数据模型，它的表示应采用
　　A) 树
　　B) 网络
　　C) 图
　　D) 二维表
　　正确答案: D

会计考友 · 发表于 2012-7-31 22:15:06

　　(11) 下列说法不正确的是
　　A) 对象的可见性可设为True或False
　　B) 标题的属性值可设为任何文本
　　C) 属性窗口中属性可以按字母顺序排列
　　D) 某些属性的值可以跳过不设置，系统自动设为空值
　　正确答案: D
　　(12) 要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是
　　A) 设置BoderStyle的值为Fixed ToolWindow
　　B) 设置BoderStyle的值为Sizable ToolWindow
　　C) 设置BoderStyle的值为Fixed Dialog
　　D) 设置BoderStyle的值为Sizable
　　正确答案: C
　　(13) 下面的控件可作为其他控件容器的是
　　A) PictureBox和Data
　　B) Frame和Image
　　C) PictureBox和Frame
　　D) Image和Data
　　正确答案: C
　　(14) 如果要将文本框作为密码框使用时，应设置的属性为
　　A) Name
　　B) Caption
　　C) PasswordChar
　　D) Text
　　正确答案: C
　　(15) 有关程序代码窗口的说法错误的是
　　A) 在窗口的垂直滚动条的上面，有一个"拆分栏"，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分
　　B) 双击控件设计窗体即可打开程序代码窗口
　　C) 在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看
　　D) 默认情况下，窗体的事件是Load
　　正确答案: A

会计考友 · 发表于 2012-7-31 22:15:07

　　(16) Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是
　　A) $O
　　B) &O
　　C) $E
　　D) &E
　　正确答案: B
　　(17) MsgBox函数的返回值的类型为
　　A) 数值型
　　B) 变体类型
　　C) 字符串型
　　D) 日期型
　　正确答案: A
　　(18) 使"计算机技术"在当前窗体上输出的语句是
　　A) Print "计算机技术"
　　B) Picture.Print "计算机技术"
　　C) Printer.Print "计算机技术"
　　D) Debug.Print "计算机技术"
　　正确答案: A
　　(19) 用来设置文本框有无滚动条的属性是
　　A) ScrollBars
　　B) MultiLine
　　C) SelText
　　D) SelLength
　　正确答案: A
　　(20) 当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为True?
　　A) Style
　　B) Default
　　C) Caption
　　D) Cancel
　　正确答案: D

会计考友 · 发表于 2012-7-31 22:15:08

　　(21) 在Visual Basic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为
　　A) 0
　　B) 2
　　C) 1
　　D) 3
　　正确答案: C
　　(22) 属性BorderColor的作用是
　　A) 设置直线颜色和形状边界颜色
　　B) 设置直线或形状背景颜色
　　C) 设置直线或形状边界线的线型
　　D) 设置形状的内部颜色
　　正确答案: A
　　(23) 下面哪个程序段能够正确实现如果A
　　A) If A
　　A=-1
　　Print A
　　B) If A
　　A=-1:Print A
　　C) If A
　　A=1:Print A
　　Else
　　A=-1:
　　End If
　　D) If A
　　A=-1
　　Print A
　　Print A
　　正确答案: C

会计考友 · 发表于 2012-7-31 22:15:09

　　(25) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、 Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1 中显示当前文件夹中文件的数量。如图所示。
　　能够正确实现上述功能的程序是
　　A) Private Sub Dir1_Change()
　　File1.Path=Dir1.Path
　　End Sub
　　Private Sub Dive1_Change()
　　Dir1.Path=Drive1.Drive
　　Label1.Caption=File1.ListCount
　　End Sub
　　B) Private Sub Dir1_Change()
　　File.Path=Dir1.Path
　　End Sub
　　Private Sub Dive1_Change()
　　Dir1.Path=Drive1.Drive
　　Label1.Caption=File1.List
　　End Sub
　　C) Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
　　Label1.Caption = File1.ListCount
　　End Sub
　　Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
　　Label1.Caption = File1.ListCount
　　End Sub
　　(D) Private Sub Dir1_Change()
　　File1.Path=Dir1.Path
　　Label1.Caption=File1.ListCount
　　End Sub
　　Private Sub Dive1_Change()
　　Dir1.Path=Drive1.Drive
　　Label1.Caption= File1.List
　　End Sub
　　正确答案: C
　　(26) 设有声明语句
　　Option Base 1
　　Dim b(-1 To 10, 2 To 9, 20) As Integer
　　则数组b中全部元素的个数
　　A) 2310
　　B) 1920
　　C) 1500
　　D) 1658
　　正确答案: B
　　(27) 单击命令按钮，下列事件过程的执行结果为
　　Private Sub Command1_Click()
　　Dim x As Integer, y As Integer
　　x=40: y=72
　　Call PtoP(x, y)
　　Print x; y
　　End Sub
　　Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
　　n=n \ 10+2
　　m=m \ 10+2
　　End Sub
　　A) 0 8
　　B) 40 72
　　C) 4 50
　　D) 78 50
　　正确答案: B

会计考友 · 发表于 2012-7-31 22:15:10

　　(28) 下列程序的执行结果为
　　Private Sub Command1_Click()
　　Dim p As Integer, q As Integer
　　p=12: q=20
　　Call Value(p, q)
　　Print p; q
　　End Sub
　　Private Sub Value(ByVal m As Integer, ByVal n As Integer)
　　m=m * 2: n=n - 5
　　Print m; n
　　End Sub
　　A)20 12
　　20 15
　　B)12 20
　　12 25
　　C)24 15
　　12 20
　　D)24 12
　　12 15
　　正确答案: C
　　(29) 在窗体上画一个命令按钮，然后编写如下程序：
　　Private Sub Command3_Click()
　　Cop 2
　　Cop 3
　　Cop 4
　　End Sub
　　Sub Cop (a As Integer)
　　Static x As Integer
　　x=x + a
　　Print x;
　　End Sub
　　程序运行后，单击命令按钮，输出结果为
　　A) 2 3 4
　　B) 2 5 9
　　C) 3 5 4
　　D) 2 4 3
　　正确答案: B

会计考友 · 发表于 2012-7-31 22:15:11

　　(30) 有如下事件过程，单击命令按钮扣，输出结果为
　　Private Sub Command1_Click()
　　Dim b%(1 To 4) , j%, t#
　　For j=1 To 4
　　b(j) =j
　　Next j
　　t=Tax(b() )
　　Print "t="; t,
　　End Sub
　　Function Tax (a() As Integer)
　　Dim t#, i%
　　t=1
　　For i=2 To UBound(A)
　　t=t * a(i)
　　Next i
　　Tax=t
　　End Function
　　A) t=18
　　B) t=24
　　C) t=30
　　D) t=32
　　正确答案: B
　　(31) 设在窗体上有一个文本框，然后编写如下的事件过程：
　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
　　Const Alt=4
　　Const Key_F2=&H71
　　altdown%=(Shift And Alt) > 0
　　f2down%=(KeyCode=Key_F2)
　　If altdown% And f2down% Then
　　Text1.Text="abl"
　　End If
　　End Sub
　　程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
　　A) Alt+F2
　　B) abl
　　C) 随机出几个数
　　D) 不发生变化
　　正确答案: D

会计考友 · 发表于 2012-7-31 22:15:12

　　(32) 设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是
　　A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
　　X As Single, Y As Single)
　　If Button=2 Then PopupMenu Bt, 2
　　End Sub
　　B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
　　X As Single, Y As Single)
　　PopupMenu Bt
　　End Sub
　　C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
　　X As Single, Y As Single)
　　PopupMenu Bt,0
　　End Sub
　　D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
　　X As Single, Y As Single)
　　If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
　　End Sub
　　正确答案: A
　　(33) 在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　Cont.FileName=""
　　Cont.Flags=vbOFNFileMustExist
　　Cont.Filter="All Files|*.*"
　　Cont.FilterIndex=3
　　Cont.DialogTitle="Open File"
　　Co nt.Action=1
　　If Cont.FileName="" Then
　　MsgBox "No file selected"
　　Else
　　Open Cont.FileName For Input As #1
　　Do While Not EOF(1)
　　Input #1, b$
　　Print b$
　　Loop
　　End If
　　End Sub
　　以下各选项，对上述事件过程描述错误的是
　　A) 该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
　　B) 选择后单击"打开"按钮，所选择的文件名即作为对话框的FileName属性值
　　C) Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
　　D) 过程中的"Cont.Action=1"用来建立Open对话框，它与Cont.ShowOpen等价
　　正确答案: C

会计考友 · 发表于 2012-7-31 22:15:13

　　(34) 已知使用Show方法的格式为：[窗体名称].Show [模式]，如果要使窗体是"模态型"窗体，则"模式"值为
　　A) True
　　B) 0
　　C) 1
　　D) False
　　正确答案: C
　　(35) 下面叙述不正确的是
　　A) 对顺序文件中的数据操作只能按一定的顺序操作
　　B) 顺序文件结构简单
　　C) 能同时对顺序文件进行读写操作
　　D) 顺序文件中只能知道第一个记录的位置
　　正确答案: C
　　二、填空题
　　(1) 当线性表采用顺序存储结构实现存储时，其主要特点是【1】。
　　正确答案: 1.(逻辑结构中相邻的结点在存储结构中仍相邻)
　　(2) 软件工程的出现是由于【2】。
　　正确答案: 1.(软件危机的出现)
　　(3) 单元测试又称模块测试，一般采用【3】测试。
　　正确答案: 1.(白盒法)
　　(4) 数据库恢复是将数据库从【4】状态恢复到某一已知的正确状态。
　　正确答案: 1.(错误)
　　(5) 数据的基本单位是【5】。
　　正确答案: 1.(数据元素)
　　(6) 下列语句的输出结果是【6】。
　　Print Format$(6658.6, "000,000.00")
　　正确答案: 1.(006,658.60)
　　(7) 如果在D盘当前文件夹下已经存在名为PIC.dat的顺序文件，那么执行语句Open "D:\PIC.dat" For Append As #1之后将【7】。
　　正确答案: 1.(在文件尾添加新内容)
　　(8) 在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
　　Private Sub Command1_Click()
　　num=Val(Text1.Text)
　　If 【8】 Then
　　Print num
　　Else
　　Text1.Text=""
　　【9】
　　End If
　　End Sub
　　正确答案: 1.(num Mod 6 = 2 And num Mod 5 = 3) 2.(Text1.SetFocus)

		自动登录	找回密码
密码			立即注册

[考试试题] 2010年计算机等考二级VB模拟题及解析(2)