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

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

www.nanhushi.com     佚名   不详 

答案
1.以下关于数据的逻辑结构的叙述中，哪一条是不正确的？
A、数据的逻辑结构是数据间关系的描述
B、数据的逻辑结构抽象地反映数据元素间的逻辑关系
C、数据逻辑结构具体的反映数据在计算机中的存储方式
D、数据的逻辑结构分为线性结构和非线性结构
A       B       C       D      
2.以下哪一个不是队列的基本运算？
A、从队尾插入一个新元素
B、从队列中删除第I个元素
C、判断一个队列是否为空
D、读取队头元素的值
A       B       C       D      
3.二叉树的先序遍历和中序遍历如下：
先序遍历：ABDFHCEGI
中序遍历：BFHDAEIGC
该二叉树根的右子树的根是____。
A、N
B、F
C、E
D、C
A       B       C       D      
4.已知一个有序表（13，20，25，37，48，58，61，78，83，90，101），当二分查找值48的元素时，____次比较后查找成功。
A、1
B、2
C、3
D、4
A       B       C       D      
5.面向对象的概念方法是____。
A、用来请求对象执行某些操作。
B、描述对象动态特征的一个操作序列。
C、描述对象静态特性的一个数据项。
D、描述对象动态或者静态特征的某个项目。
A       B       C       D      

答案
6.Object-orientde翻译成哪一个术语更为确切？
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.以下能正确定义数据类型TelBook的代码是
A、Type TelBook
Name As String*10
TelNum As Integer
End Type
B、Type TelBook
Name As String*10
TelNum As Integer
End TelBook
C、Type TelBook
Name String*10
TelNum Integer
End Type TelBook
D、Type TelBook
Name String*10
TelNum Integer
End Type
A       B       C       D      
12.设窗体上有一个列表框控件List1，且其中有若干列表项，则以下能表示当前被选中的列表项内容的是
A、List1.list
B、List1.listIndex
C、List1.Intdex
D、List1.Text
A       B       C       D      
13.设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是
A、True
B、False
C、1
D、出错信息
A       B       C       D      
14.以下能判断是否到达文件尾的函数是
A、BOF
B、LOG
C、LOF
D、EOF
A       B       C       D      
15.窗体的MouseDown事件过程
Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
有4个参数，关于这此参数，正确的描述是
A、通过Button参数判定当前按下的是哪一个鼠标键
B、Shift参数只能用来确定是否按下Shift
C、Shift参数只能用来确定是否按下Alt和Ctrl键
D、参数x,y用来设置鼠标当前位置的坐标
A       B       C       D      

答案
16.以下关于焦点的叙述中，错误的是
A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B、当文本框失去焦点时，触发LostFocus事件
C、当文本框的Enabled属性为False时，其Tab顺序不起作用
D、可以用TabIndex属性改变Tab顺序
A       B       C       D      
17.执行语句Open"Tel.dat"For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是
A、只能写，不能读
B、只能读，不能写
C、既可以读，也可以写
D、不能读，有能写
A       B       C       D      
18.设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体
A       B       C       D      
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a<=0
Print s;a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A、7 9
B、34 0
C、9 7
D、死循环
A       B       C       D      
20.设有如下通用过程：
Public Sub Fun(a(),ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr(),n)
Text1.Text=n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是
A、10
B、15
C、25
D、24
A       B       C       D      

答案
21.在窗体上画两个滚动条，名称分别为Hscroll1、hscroll2；六个标签，名称分别为
Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示
“A”“B”“A＊B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，
Label3显示“A＊B”的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当
单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示
在Label3中。以下不能实现上述功能的事件过程是：

A)、Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C)、Private Sub Command1_Click()
Label3.Caption=HScroll1*HScroll2
End Sub
D)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub
A       B       C       D      
22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A、15
B、18
C、21
D、24
A       B       C       D      
23.在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Lord()
Show
Text1.Text=""
Text1.SetFocus
End Sub

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print"程序设计"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print"Visual Basic"
End Sub
程序运行后，结果按“A”键，然后单击窗体，则在窗体上显示的内容是
A、Visual Basic
B、程序设计
C、A程序设计
D、Visual Basic
程序设计
A       B       C       D      
24.设有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A、1+1/2+2/3+3/4+4/5
B、1+1/2+2/3+3/4
C、1/2+2/3+3/4+4/5
D、1+1/2+1/3+1/4+1/5
A       B       C       D      
25.以下有关数组定义的语句序列中，错误的是
A、Static arr1(3)
arr(1)=100
arr(2)="Hello"
arr(3)=123.45
B、Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size=InputBox("输入：")
ReDim arr2(size)
......
End Sub
C、Option Base 1
Private Sub Command3_Click()
Dim arr3() As Integer
......
End Sub
D、Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
......
End Sub
A       B       C       D     

答案
26.以下不能在“工程资源管理器”窗口中列出的文件类型是
A、.bas
B、.res
C、.frm
D、.ocx
A       B       C       D      
27.以下关于窗体的描述中，错误的是
A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B、窗体的Load事件在加载窗体时发生
C、当窗体的Enabled属生为False时通过鼠标和键盘对窗体的操作都被禁止
D、窗体的Height、Width属于用于设置窗体的高和宽
A       B       C       D      
28.下列可作为Visual Basic变量名的是
A、A#A
B、4A
C、?xy
D、constA
A       B       C       D      
29.设有如下的记录类型
Type Student
number As String
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A、Student.name ="张红"
B、Dim s As Student
s.name ="张红"
C、Dim s As Type Student
s.name ="张红"
D、Dim s As Type
s.name ="张红"
A       B       C       D      
30.函数String(n,"str")的功能是
A、把数值型数据转换为字符串
B、返回由n个字符组成的字符串
C、从字符串中取出n个字符
D、从字符串中第n个字符的位置开始取子字符串
A       B       C       D      

答案
31.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A)Cos(a+b)^2+5*exp(2) B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2)
A       B       C       D      
32.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$,8)
c$ = Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则弹出的信息框的标题栏中显示的信息是
A、software and hardware
B、software
C、hardware
D、1
A       B       C       D      
33.执行如下语句：
a = InputBox("Today","Tomorrow","yesterday",,,"Day before yesterday",5)
将显示一个输入对话框，在对话框的输入区中显示的信息是
A、Today
B、Tomorrow
C、Yesterday
D、Day before yesterday
A       B       C       D      
34.表示滚动条控件取值范围最大值的属性是
A、Max
B、LargeChange
C、Value
D、Max-Min
A       B       C       D      
35.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.name = List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.name = List1.text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.text
End Sub
A       B       C       D     

答案

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

1.数据结构是一门研究非数值计算的程序设计问题中计算机的____以及它们之间的关系和运算等的学科。
输入答案，中间不含空格:
2.排序方法中，从未排序序列中挑选元素，并将其依次放入已排序序列（初始时为空）的一端的方法，称为____。
输入答案，中间不含空格:
3.需求分析阶段的最后成果是____，是软件开发中的重要文档之一。
输入答案，中间不含空格:
4.每个实体有若干特性，每一个特性称为____。
输入答案，中间不含空格:
5.关系代数运算中，传统的集合运算有____、并、交和差。
输入答案，中间不含空格:

答案
6.执行下面的程序段后，i的值为______，s的值为______。
s=2
For i=3.2 To 4.9 Step 0.8
s=s+1
Next i
输入答案，中间不含空格:
7.上一题
输入答案，中间不含空格:
8.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的“A”键（即不按住Shift键），则在窗体上输出的字符分别是_____和_____。
输入答案，中间不含空格:
9.上一题
输入答案，中间不含空格:
10.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、
Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7)
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
“VisualBAsic”,则在标签中显示的内容是_____。
输入答案，中间不含空格:

答案
11. 在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1
和Label1，通过属性窗口把列表框中的项目显示为：“第一个项目”“第二个项目”
“第三个项目”“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命
令按钮，即可将所选择的项目删除，并在标签中显示列表框中当前的项目数，运行情况
如图所示（选择“第三个项目”的情况）。下面时实现上述功能的程序，请填空。

Private Sub Command1_Click()
If List1.ListIndex>=____Then
List1.RemoveItem____
Label1.Caption = ____
Else
MsgBox "请选择要删除的项目"
End If
End Sub
输入答案，中间不含空格:
12.上一题
输入答案，中间不含空格:
13.上一题
输入答案，中间不含空格:
14.以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并
在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open".\smtext1.txt"_____As#1
Do While_____
Input #1,inData
Text1.Text=Text1.Text & inData
Loop
Close #1
End Sub
输入答案，中间不含空格:
15.上一题
输入答案，中间不含空格:

 

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

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

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

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

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