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

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

www.nanhushi.com     佚名   不详 

答案

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

1.下面叙述正确的是
A、算法的执行效率与数据的存储结构无关
B、算法的空间复杂度是指算法程序中指令（或语句）的条数
C、算法的有穷性是指算法必须能在执行有限个步骤之后终止
D、以上三种描述都不对
A       B       C       D      
2.以下数据结构中不属于线性结构的是
A、队列
B、线性表
C、二叉树
D、栈
A       B       C       D      
3.在一颗二叉树上第5层的结点数最多是
A、8
B、16
C、32
D、15
A       B       C       D      
4.下面描述中，符合结构化程序设计风格的是
A、使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑
B、模块只有一个入口，可以有多个出口
C、注重提高程序的执行效率
D、不使用goto语句
A       B       C       D      
5.下面概念中，不属于面向对象方法的是
A、对象
B、继承
C、类
D、过程调用
A       B       C       D      

答案
6.在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是
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.下列模式中，能够给出数据库物理存储结构与物理存取方法的是
A、内模式
B、外模式
C、概念模式
D、逻辑模式
A       B       C       D      

答案
11.设计窗体有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息不能输入信息，以下实现该操作的语句是
A、Text1.Maxlength=0
B、Text1.Enabled=False
C、Text1.Visible=False
D、Text1.Width=0
A       B       C       D      
12.
A       B       C       D      
13.设菜单中只有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是
A、把Caption属性设置为 &Open
B、把Caption属性设置为 O&pen
C、把Name属性设置为 &Open
D、把Name属性设置为 O&pen
A       B       C       D      
14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A、分支 1
B、分支 2
C、Else 分支
D、程序出错
A       B       C       D      
15.以下关于MsgBox的叙述中，错误的是
A、MsgBox函数返回一个整数
B、通过MsgBox 函数可以设置信息框中图标和按钮类型
C、MsgBox 语句没有返回值
D、MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
A       B       C       D     

答案
16.在窗体上画一个名称为Timer的计时器控件，要求每隔0.5秒发生一次计时事件，则以下正确的属性设置语句是
A、Timer.Interval=0.5
B、Timer.Interval=5
C、Timer.Interval=50
D、Timer.Interval=500
A       B       C       D      
17.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程；
Private Sub Command1_Click()
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A、4 2
B、12 18
C、12 30
D、4 6
A       B       C       D      
18.以下关于多重窗体程序的叙述中，错误的是
A、用Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体
B、在多重窗体程序中，各窗体的菜单是彼此独立的
C、在多重窗体程序中，可以根据需要指定启动窗体
D、对于多重窗体程序，需要单独保存每个窗体
A       B       C       D      
19.以下合法的Visual Basic 标识符是
A、ForLoop
B、Const
C、9abc
D、a#x
A       B       C       D      
20.表达式 5 Mod 3 + 3\5*2 的值是
A、0
B、2
C、4
D、6
A       B       C       D      

答案
21.设x=4，y=8，z=7，以下表达式的值是
xz) Or zA、1
B、-1
C、True
D、False
A       B       C       D      
22.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$ = "VisualBasic"
Print String(3, a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A、VVV
B、Vis
C、sic
D、ll
A       B       C       D      
23.设有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
运行以上程序后，X的值是
A、36
B、27
C、38
D、57
A       B       C       D      
24.以下叙述中错误的是
A、在KeyPree事件过程中不能识别键盘的按下与释放
B、在KeyPree事件过程中不能识别回车键
C、在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同字母
D、在KeyDown和KeyUp事件过程中，从大键盘输入的“1”和从小键盘输入的“1”被视作不同的字符
A       B       C       D      
25.在窗体上画一个名称为CommonDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "all file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "VBTest"
CommonDialog1.Action = 1
End Sub
对于这个程序，以下叙述中错误的是
A、该对话框被设置为“打开”对话框
B、在该对话框中指定的默认文件名为空
C、该对话框的标题为VBTest
D、在该对话框中指定的默认文件类型为文本框（*.Txt）
A       B       C       D      

答案
26.设一个工程由两个窗体组成，其名称分别为Form1 和Form2 ，在Form1上有一个名称为Command1 的命令按钮。窗体Form1 的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a = 10
Call g(Form2, a)
End Sub
Private Sub g(f As Form, x As Integer)
y = IIf(x > 10, 100, -100)
f.Show
f.Caption = y
End Sub
运行以上程序，正确的是
A、Form1的Caption属性值为100
B、Form2的Caption属性值为-100
C、Form1的Caption属性值为-100
D、Form2的Caption属性值为100
A       B       C       D      
27.在窗体上画一个名称为Comman1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x = 10
y = 5
Call f1(x, y)
Print x, y
End Sub
Private Sub f1(x1 As Integer, y1 As Integer)
x1 = x1 + 2
y1 = y1 + 2
End Sub
程序运行后，单击命令按钮，在窗体上显示内容是
A、10 5
B、12 5
C、10 7
D、12 7
A       B       C       D      
28.设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n = InputBox("输入数据")
If n < 10 Then
Call GetArray(a, n)
End If
End Sub
Private Sub GetArray(b() As Integer, n As Integer)
Dim c(10) As Integer
j = 0
For i = 1 To n
b(i) = CInt(Rnd() * 100)
If b(i) / 2 = b(i) \ 2 Then
j = j + 1
c(j) = b(i)
End If
Next
Print j
End Sub
以下程序中错误的是
A、数组b中的偶函数被保存在数组c中
B、程序运行结束时，在窗体上显示的时c数组中元素的个数
C、GetArray过程的参数n 是按值传送的
D、如果输入的数据大于10，则窗体上不显示任何信息
A       B       C       D      
29.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5)
For i = 1 To UBound(a)
a(i) = a(i) + i - 1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A、4
B、5 .
C、6
D、7
A       B       C       D      
30.阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \ 3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A、13
B、14
C、27
D、15
A       B       C       D      

答案
31.在窗体上画一个名称为File的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x = Shell(File1.FileName, 1)
End Sub
以下关于该程序的叙述中，错误的是
A、x 没有实际作用，因此可以将该语句写为：Call Shell（file1.FileName，1）
B、双击文件列表框中的文件，将触发该事件过程
C、要执行的文件名字通过File.FileName 指定
D、File中显示的是当前驱动器、当前目录下的文件，
A       B       C       D      
32.
A       B       C       D      
33.执行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
输出结果为
A、ABA
B、BBABBA
C、ABBABA
D、AABAAB
A       B       C       D      
34.在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5)
Sum = 0
For i = 1 To 5
Sum = Sum + a(i)
Next i
x = Sum / 5
For i = 1 To 5
If a(i) > x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A、1 2
B、1 2 3
C、3 4 5
D、4 5
A       B       C       D      
35.假定一个工程有一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
Public x As Integer
Public y As Integer
Sub S1()
x = 1
S2
End Sub
Sub S2()
y = 10
Form1.Show
End Sub
Model2代码如下：
Sub Main()
S1
End Sub
其中 sub Main 被设置为启动过程。 程序运行后，各模块的执行顺序是
A、form1→Model1→Model2
B、Model1→Model2→Form1
C、Model2→Model1→Form1
D、Model2→Form1→Model1
A       B       C       D      

答案

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

1.算法的复杂度主要包括____复杂度和空间复杂度。
输入答案，中间不含空格:
2.数据的逻辑结构在计算机存储空间中的存放形式称为数据的____。
输入答案，中间不含空格:
3.若按功能划分，软件测试的方法通常分为白盒测试方法盒____测试方法。
输入答案，中间不含空格:
4.如果一个工人可管理多个设备，而一个设备只能被一个工人管理，则实体“工人”和实体“设备”之间存在____关系。
输入答案，中间不含空格:

答案
5.关系数据库管理系统能实现的专门关系运算包括选择、连接、____。
输入答案，中间不含空格:
6. 本程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，
相当于一次投币，1代表正面，0代表方面。在窗体上有三个文本框，名称分别是
Text1、Text2、Text3，分别用于显示用户输入投币总数、出现正面的次数和出现
反面的次数，如图所示，程序运行后，在文本框Text1种输入次数，然后单击“开始”按钮，
按照输入的次数模拟投币，分别统计出正面、反面的次数，并显示出结构。以下是实现上
述功能的程序，请填空。

Private sub Command1_click()
Randomize
n=Cint(Text1.Text)
n1=0
n2=0
For i=1 to ____
r=Int(Rnd*2)
if r=____ Then
n1=n1+1
Else
n2=n2+1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub
输入答案，中间不含空格:
7.上一题
输入答案，中间不含空格:
8. 阅读程序：
Opention Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "输入的数据是：";
For i=1 To 3
a(i) = InputBox("输入数据")
Print a(i);
Next
Print
If a(1) < a(2) Then
t = a(1)
a(1) = a(2)
a(2) = ____
End If
If a(2)>a(3) Then
m = a(2)
ElseIf a(1) > a(3) Then
m=____
Else
m=____
End If
Print "中间数是";m
END SUB
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示，请填空。

输入答案，中间不含空格:
9.上一题
输入答案，中间不含空格:

答案
10.上一题
输入答案，中间不含空格:
11. 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画出7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标签为“计算结果”。运行程序时会自动生成3个随机整数，分别显示再标签数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。

Private Sub Command1_Click()
Sum = 0
For i=0 To 4
Sum = Sum + ____
Next
____ = Sum
End Sub

输入答案，中间不含空格:
12. 在窗体上画两个名称分别为Command1和Command2、标签分别为“初始化”和“求和”的命令按钮。程序运新过后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文档中显示出来，如图所示。请填空。


Option Base 1
Dim a(3,2) As Integer

Private Sub Command1_Click()
For i=1 To 3
For j=1 To 2
____ = i+j
Next j
End Sub

Private Sub Command2_Click()
For i=1 To 3
For j=1 To 2
s = s + ____
Next j
Next i
Text1.text=____
End Sub
输入答案，中间不含空格:
13.上一题
输入答案，中间不含空格:
14.上一题
输入答案，中间不含空格:

 

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

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

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

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

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