您现在的位置： 中国男护士网 >> 考试频道 >> 计算机等级 >> 二级辅导 >> VB >> 模拟题 >> 正文    
　　全国计算机等级考试二级VB模拟试题5 【注册男护士专用博客】          

全国计算机等级考试二级VB模拟试题5

www.nanhushi.com     佚名   不详 

答案

一、选择题（每题2分，共计70分）

1.数据结构____。
A、用于描述系统的动态特性
B、描述系统的静态特性
C、是一组规则
D、描述数据之间的联系
A       B       C       D      
2.设有栈S和队列Q，其状态为空，元素a1，a2，a3，a4，a5，a6依次入栈，出栈的元素则进入队列Q，若6个元素出列的顺序是a2，a3，a4，a6，a5，a1，则栈的容量至少是____。
A、6
B、4
C、3
D、2
A       B       C       D      
3.设树T的度为4，其中度为1，2，3，4的结点个数分别为4，2，1，1。则T是的叶子结点个数为
A、8
B、7
C、6
D、5
A       B       C       D      
4.排序的重要目的是为了以后对已排序的数据元素进行____。
A、打印输出
B、分类
C、查找
D、合并
A       B       C       D      
5.下列关于结构化设计原则的描述，错误的是
A、在块和进程的非正常出口处往往需要调用GOTO语句，使用GOTO语句使程序执行效率提高，
但是滥用GOTO语句确实有害，应该避免使用GOTO语句。
B、程序设计时应该自顶向下，逐步求精。
C、程序设计时，应该将复杂问题进行模块化，就是将程序设计的总目标分解为若干个分目
标，再进一步分解为具体的小目标。
D、在进行程序设计时，应该尽量在一行书写一条语句，尽量做到效率第一，清晰第二。
A       B       C       D      

答案
6.下面不属于软件工程的三个要素的是
A、工具
B、过程
C、方法
D、环境
A       B       C       D      
7.成功的测试是指
A、运行测试实例后未发现错误
B、发现程序的错误
C、证明程序正确
D、软件产生
A       B       C       D      
8.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统联合体。
其中数据独立性最高的阶段是
A、数据库系统
B、文件系统
C、人工管理
D、数据项管理
A       B       C       D      
9.在关系数据库系统中，当关系的模型改变时，用户程序也可以不变，这是
A、数据的物理独立性
B、数据的逻辑独立性
C、数据的位置独立性
D、数据的存储独立性
A       B       C       D      
10.将E-R图转换成关系模式时，实体与联系都可以表示成
A、属性
B、关系
C、键
D、域
A       B       C       D      

答案
11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A、3
B、4
C、5
D、6
A       B       C       D      
12.在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组
元素的参数是
A、Tag
B、Index
C、ListIndex
D、Name
A       B       C       D      
13.假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S,i,1))+s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击“确定”
按钮后在窗体上的输出结果为
A、abcdefg
B、ABCDEFG
C、gfedcba
D、GFEDCBA
A       B       C       D      
14.以下叙述中错误的是
A、用Shell函数可以调用能够在Windows下运行的应用程序
B、用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数
C、调用Shell函数的格式应为：<变量名>=Shell(……)
D、用Shell函数不能执行DOS命令
A       B       C       D      
15.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A、单击鼠标
B、双击文本框
C、鼠标滑过文本框
D、按下键盘上的某个键
A       B       C       D      

答案
16.假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 then
PopupMenu popForm
End If
End Sub
则以下描述中错误的是
A、该过程的功能是弹出一个菜单
B、popForm是在菜单编辑器中定义的弹出式菜单的名称
C、参数X、Y指明鼠标的当前位置
D、Button = 2 表示按下的是鼠标左键
A       B       C       D      
17.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click()
X = 5 : Y=3
Call proc(X,Y)
Label1.Caption = X
Label2.Caption = Y
End Sub

Private Sub proc(ByVal a As Integer, ByVal b As Integer)
X = a * a
Y = b + b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是
A、5和3
B、25和3
C、25和6
D、5和6
A       B       C       D      
18.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A、10 10 10
B、30 30 30
C、30 30 10
D、10 30 30
A       B       C       D      
19.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
A       B       C       D      
20.窗体上有两名称分别为Text1、Text2的文本框，一个名称为Command1命令按钮。运行后的
窗体外观如图所示：

设有如下的类型声明
Type Person
name As String*8
major As String*20
End Type
当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中
的数据已正确地赋值给Person类型的变量p。
则能够正确地把数据写入文件的程序段是：
A)Open "c:\Test29.dat"For Random As #1
Put #1,1,p
Close #1
B)Open "c:\Test29.dat"For Random As #1
Get #1,1,p
Close #1
C)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
Put #1,1,p
Close #1
D)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
Get #1,1,p
Close #1
A       B       C       D     

答案
21.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A、工程资源管理器窗口
B、工具箱窗口
C、代码窗口
D、属性窗口
A       B       C       D      
22.以下叙述中正确的是
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文件
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
A       B       C       D      
23.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A、单选按钮
B、图片框
C、通用对话框
D、文本框
A       B       C       D      
24.设有如下变量声明
Dim TestDate AS Date
为变量TestDate正确赋值的表达式是
A、TestDate=#1/12002#
B、TestDate=#"1/1/2002"#
C、TestDate=date("1/1/2002")
D、Testdate=Format("m/d/yy","1/1/2002")
A       B       C       D      
25.设有如下声明：
Dim X As Integer
如果Sgn（X）的值为-1，则X的值是
A、整数
B、大于0的整数
C、等于0的整数
D、小于0的数
A       B       C       D     

答案
26.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为
A、15 16
B、15 6
C、15 15
D、5 6
A       B       C       D      
27.设a=3,b=5,则以下表达式值为真的是
A、a>=b And b>10
B、(a>b) Or (b>0)
C、(a<0) Eqv (b>0)
D、(-3+5>a) And (b>0)
A       B       C       D      
28.设有语句
x=InputBox("输入数值","0""示例")
程序运行后，如果从键盘上输入数值（并按回车键，则下列叙述中正确的是）
A、变量X的值是数值10
B、在InputBox对话框标题栏中显示的是"示例"
C、0是默认值
D、变量X值是字符串"10"
A       B       C       D      
29.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
A、Left
B、Mid
C、String
D、Instr
A       B       C       D      
30.设a="Visual Basic"，下面使b="Basic"的语句是
A、b=Lift(a,8,12)
B、b=Mid(a,8,5)
C、b=Right(a,5,5)
D、b=Left(a,8,5)
A       B       C       D      

答案
31.以下能够触发文本框Change事件的操作是
A、文本框失去焦点
B、文本框获得焦点
C、设置文本框的焦点
D、改变文本框的内容
A       B       C       D      
32.在窗体上有一个文本框控件，名称为为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_ _____()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是
A、Enabled
B、Visble
C、Interval
D、Timer
A       B       C       D      
33.在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为"宋体"和"黑体"；一个复选框，名称为Check，标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中，则能够实现上述要求的语句序列是
A、Option1.Value=True
Check1.Value=False
B、Option1.Value=True
Check1.Value=True
C、Option2.Value=False
Check1.Value=True
D、Option1.Value=True
Check1.Value=1
A       B       C       D      
34.为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A、Value
B、Default
C、Cance1
D、Enabled
A       B       C       D      
35.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
for I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容为是
A、BB
CCC
DDDD
EEEEE
B、A
BB
CCC
DDDD
C、B
CC
DDD
EEEE
D、AA
BBB
CCCC
DDDDD
A       B       C       D      

答案

二、填空题（每空2分，共计30分）

1.设一棵完全二叉树共有700个结点，则在该二叉树中____有个叶子结点。
输入答案，中间不含空格:
2.树最适合用来表示元素之间具有____关系的数据。
输入答案，中间不含空格:
3.软件的面向数据流的设计方法，利用其定义的映射方法可以把数据流图变换成软件结构，
在映射中，一般将数据流分为____和事务流两种。
输入答案，中间不含空格:
4.一般数据库系统提供模式描述语言严格地表示数据库的内容。用DDL写的一个数据集的定
义的全部语句称为____。模式是对数据库结构的一种描述，而不是数据库本身。
输入答案，中间不含空格:
5.数据模型可分为两个级别，一个是独立于计算机系统的模型，称为概念模型；另一个是直
接面向数据库的逻辑结构，称为____模型。
输入答案，中间不含空格:

答案
6.Visual Basic提供的对数据文件的三种访问方式为随机访问方式、____和二进制访问方式。
输入答案，中间不含空格:
7.执行下面的程序段后，变量S的值为____。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i
输入答案，中间不含空格:
8.为了运行时把d:\pic文件夹下的图形文件a.jpg装入图片框架Picture1，所使用的语句为____。
输入答案，中间不含空格:
9.计时器控件能有规律的以一定时间间隔触发____事件，并执行该事件过程中的程序代码。
输入答案，中间不含空格:
10.设有如下程序
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 20 :b = 50
P1 a, b
p2 a, b
p3 a, b
Print "a=";a,"b=";b
End Sub

Sub p1(x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
Sub p2(ByVal x As Integer, y As Integer)
x = x + 10
y = y + 20
End Sub
Sub p3(ByVal x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a = ____和 b =____。
输入答案，中间不含空格:

答案
11.上一题
输入答案，中间不含空格:
12. 在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属
性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车
键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列
表中，并在Label2中给提示“成功添加输入项”如图所示：

如果存在，则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。

Private Sub Combo1.____(KeyAscii As Integer)
IfKey Ascii=13 then
For i=0 To Combo1.listCount-1
If Combo1.Text= ____ Then
Label2.Caption="输入项已在组合框中"
Exint Sub
End If
Next i
Label2.Caption="已成功添加输入项"
Combo1.____ Combo1.Text
End Sub[gif]bs-2003-1-f-9.gif
输入答案，中间不含空格:
13.上一题
输入答案，中间不含空格:
14.上一题
输入答案，中间不含空格:
15.设有如下程序
Private Sub search(a()As Variant, ByVal key As Variant, index%)
Dim I%
For I = LBound(a) To UBound(a)
If key = a(I) Then
index = I
exit Sub
End If
Next I
index = -1
End Sub
Private Sub Form_Load()
Show
Dim b() As Variant
Dim n As Integer
b = Array(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Print n
End sub
程序运行后，输出结果是____。
输入答案，中间不含空格:

 

分享到 :
文章录入：杜斌    责任编辑：杜斌 
  • 上一篇文章：

  • 下一篇文章：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
     

    联 系 信 息
    QQ:88236621
    电话:15853773350
    E-Mail:malenurse@163.com
    免费发布招聘信息
    做中国最专业男护士门户网站
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    专 题 栏 目

    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）                            【进男护士社区逛逛】
    姓 名：
    		* 游客填写 　·注册用户 ·忘记密码
    主 页：

    评 分：
    1分 2分 3分 4分 5分
    评论内容：
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点，与本网站立场无关。
    • | 设为首页 | 加入收藏 | 招商合作 | 管理团队 | 友情链接 | 广告服务 | 联系我们 | 管理登录 |