二级VISUAL+BASIC真题.docx
- 文档编号:25544037
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:27
- 大小:125.62KB
二级VISUAL+BASIC真题.docx
《二级VISUAL+BASIC真题.docx》由会员分享,可在线阅读,更多相关《二级VISUAL+BASIC真题.docx(27页珍藏版)》请在冰豆网上搜索。
二级VISUAL+BASIC真题
全国计算机等级考试二级笔试2005年9月真题
公共基础知识和VisualBask语言程序设计
(考试时间90分钟,满分1OO分)
一、选择题(
(1)~(35)每小题2分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)下面叙述正确的是______。
A)程序设计就是编制程序
B)程序的测试必须由程序员自己去完成
C)程序经调试改错后还应进行再测试
D)程序经调试改错后不必进行再测试
(2)下列数据结构中,能用二分法进行查找的是______。
A)顺序存储的有序线性表B)线性链表
C)二叉链表D)有序线性链表
(3)下列关于栈的描述正确的是______。
A)在栈中只能插入元素而不能删除元素
B)在栈中只能删除元素而不能插入元素
C)栈是特殊的线性表,只能在一端插入或删除元素
D)栈是特殊的线性表,只能在一端插入元素,而在另一端删除元素
(4)下列叙述中正确的是______。
A)一个逻辑数据结构只能有一种存储结构
B)数据的逻辑结构属于线性结构,存储结构属于非线性结构
C)一个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数掘处理的效率
D)一个逻辑数据结构可以有多种存储结构,且各种存储结构影响数据处理的效率
(5)下列描述中正确的是______。
A)软件工程只是解决软件项目的管理问题
B)软件工程主要解决软件产品的生产率问题
C)软件工程的主要思想是强调在软件开发过程中需要应用工程化原则
D)软件工程只是解决软件开发中的技术问题
(6)在软件设计中,不属于过程设计工具的是______。
A)PDL(过程设计语言)B)PAD图
C)N-S图D)DFD图
(7)下列叙述中正确的是______。
A)软件交付使用后还需要进行维护
B)软件一旦交付使用就不需要再进行维护
C)软件交付使用后其生命周期就结束
D)软件维护是指修复程序中被破坏的指令
(8)数据库设计的根本目标是要解决______。
A)数据共享问题B)数据安全问题
C)大量数据存储问题D)简化数据维护
(9)设有如下关系表______。
则下列操作中,正确的是______。
A)T=R∩SB)T=R∪SC)T=R×SD)T=R/S
(10)数据库系统的核心是______。
A)数据模型B)数据库管理系统C)数据库D)数据库管理员
(11)假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序,以下正确的操作是______。
A)只保存窗体模块文件B)分别保存窗体模块、标准模块和工程文件
C)只保存窗体模块和标准模块文件D)只保存工程文件
(12)为了清除窗体上的一个控件,下列正确的操作是______。
A)按回车键
B)按Esc键
C)选择(单击)要清除的控件,然后按Del键
D)选择(单击)要清除的控件,然后按回车键
(13)以下叙述中错误的是______。
A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B)当程序运行时,双击一个窗体,则触发该窗体的DblClick事件
C)VisualBasic应用程序只能以解释方式执行
D)事件可以由用户引发,也可以由系统引发
(14)设a=2,b=3,c=4,d=5,下列表达式的值是______。
Nota<=cOr4*c=b^2Andb<>a+c
A)-1B)1C)TrueD)False
(15)设a=5,b=10,则执行c=Int((b-A)*Rnd+A)+1后,c值的范围为______。
A)5~10B)6~9C)6~10D)5~9
(16)在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:
PrivateSubCommandl_Click()
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBoxa$,,b$,c$,1
EndSub
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是______。
A)softwareandhardwareB)software
C)hardwareD)1
(17)在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommandl_Ciick()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
A)108B)18C)810D)出错
(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
PrivateSubFormLoad()
Show
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
PrivateSubText1_Change()
Text2.Text=Mid(Text1.Text,8)
EndSub
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2显示的内容是______。
A)BeijingChinaB)ChinaC)BeijingD)BeijingC
(19)在窗体上画一个列表框和一个命令按钮,其名称分别为Listl和Commandl,然后编写如下事件过程
PrivateSubForm_Load()
Listl.Addltem"Iteml"
Listl.Addltem"Item2"
Listl.Addltem"Item3"
EndSub
PrivateSubCommandl_Click()
Listl.List(Listl.ListCount)="AAAA"
EndSub
程序运行后,单击命令按钮,其结果为______。
A)把字符串“AAAA”添加到列表框中,但位置不能确定
B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C)把列表框中原有的最后一项改为“A从A”
D)把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)
(20)假定有如下事件过程:
PhvateSubForm_Click()
DimXASInteger,nASInteger
x=1
n=0
DoWhilex<28
x=x*3
n=n+1
Loop
Ptintx,n
EndSub
程序运行后,单击窗体,输出结果为______。
A)814B)563C)281D)2435
(21)有如下程序:
PrivateSubForm_C1ick()
DimCheCk,Counter
CheCk=True
Counter=0
Do
DoWhileCounter<20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PtintCounter,Check
EndSub
程序运行后,单击窗体,输出结果为______。
A)150B)20-1C)10TreeD)10False
(22)有如下程序:
:
PrivateSubFormClick()
DimiAsInteger,sumAsInteger
sum=0
Fori=2To10
IfiMod2<>0AndiMod3=0Then
sum=sum+i
EndIf
Nexti
Printsum
EndSub
程序运行后,单击窗体,输出结果为______。
A)12B)30C)24D)18
(23)在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:
PrivateSubCommandlClick()
Dimarrayl(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
arrayl(i,j)=i+j
Nextj
Nexti
Text1.Text=arrayl(2,3)+arrayl(3,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是______。
A)12B)13C)14D)15
(24)在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
PrivateSubCommandl_Click()
Dimal(4,4),a2(4,4)
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a1(i,j)=i+j
a2(i,j)=a1(i,j)+i+j
Nextj
Nexti
Printal(3,3);a2(3,3)
EndSub
程序运行后,单击命令按钮,在窗体上输出的是______。
A)66B)105C)721D)612
(25)有如下程序:
OptionBase1
PrivateSubFormClick()
Dimarr,Sum
Sum=0
alt=Array(1,3,5,7,9,11,13,15,17,19)
Fori=1To10
Ifarr(i)/3=arr(i)\3Then
Sum=Sum+arr(i)
EndIf
Nexti
PrintSum
EndSub
程序运行后,单击窗体,输出结果为______。
A)25B)26C)27D)28
(26)在窗体画一个命令按钮,然后编写如下事件过程:
PrivateSubCommandlClick()
Dima(5)AsString
Fori=1To5
a(i)=Chr(Asc("A")+(i-1))
Nexti
ForEachbIna
Printb;
Next
EndSub
程序运行后,单击命令按钮,输出结果是______。
A)ABCDEB)12345C)abcdeD)出错信息
(27)以下关于函数过程的叙述中,正确的是______。
A)如果不指明函数过程参数的类型,则该参数没有数据类型
B)函数过程的返回值可以有多个
C)当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递
D)函数过程形参的类型与函数返回值的类型没有关系
(28)函数过程F1的功能是:
如果参数b为奇数,则返回值为1,否则返回值为0。
以下能正确实现上述功能的代码的是______。
A)FunctionFl(bAsInteger)
IfbMod2=0Then
Return0
Else
Return1
EndIf
EndFunction
B)FunctionFl(bAsInteger)
IfbMod2=0Then
F1=0
Else
F1=1
EndIf
EndFunction
C)FunctionF1(bAsInteger)
IfbMod2=0Then
F1=1
Else
F1=0
EndIf
EndFunction
D)FunctionFl(bAsInteger)
IfbMod2<>Then
Return0
Else
Return1
EndIf
EndFunction
(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是______。
A)KeyAscii参数是所按键的ASCII码
B)KeyAscii参数的数据类型为字符串
C)KeyAscii参数可以省略
D)KeyAscii参数是所按键上标注的字符
(30)设窗体上有一个名为Text1的文本框,并编写如下程序:
PrivateSubForm_Load()
Show
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Print"程序设计"
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
Print"VisualBasic";
EndSub
程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是______。
A)VisualBasicB)程序设计
C)VisualBasic程序设计D)a程序设计
(31)假定有下表所列的菜单结构:
要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。
以下正确的事件过程是______。
A)PrivateSubbigicon_Click()
bigicon.Checked=False
EndSub
B)PfivateSubbigicon_Click()
Me.appear.bigicon.Checked=True
EndSub
C)PrivateSubbigicon_Click()
bigicon.Checked=Tree
EndSub
D)PrivateSubbigicon_Click()
appear.bigicon.Checked=Tree
EndSub
(32)假定通用对话框的名称为CommonDialogl,命令按钮的名称为Commandl,则单击命令按钮后,能使打开的对话框的标题为"NewTitle"的事件过程是______。
A)PdvateSubCommandl_click()
CommonDialogl.DialogTitle="NewTitle"
CommonDialogl.ShowPrinter
EndSub
B)PrivateSubCormnandl_click()
CommonDialogl.DialogTitle="NewTitle"
CommonDialogl.ShowFont
EndSub
C)PrivateSubCommandl_click()
CommonDialogl.DialogTitle="NewTitle"
CommonDialogl.ShowOpen
EndSub
D)PfivateSubCommandl_click()
CommonDialogl.DialogTitle="NewTitle"
CommonDialogl.ShowColor
EndSub
(33)如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
A)任何时刻最多只有一个窗体是活动窗体
B)不能把标准模块设置成启动模块
C)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D)如果工程中含有SubMain过程,则程序一定首先执行该过程
(34)假定在工程文件中有一个标准模块,其中定义了如下记录类型
TypeBooks
NameAsString*10
TelNumAsString*20
EndType
要求当执行事件过程Commandl_Click时,在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的事件过程是:
A)PrirateSubCommandlClick()
DimBAsBooks
Open"C:
\Person.txt"ForOutputAs#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1,B.Name,B.TelNum
Close#1
EndSub
B)PdrateSubCommandlCliok()
DimBAsBooks
Open"c:
\Person.txt"ForInputAs#1
B.Name=InputBox("输入姓名")
B.TeINum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
EndSub
C)PrivateSubCommandlClick()
DimBAsBooks
Open"c:
\Person.txt"ForOutputAs#1
Name=InputBox("输入姓名")
TelNunl=InputBox("输入电话号码")
Write#1,B
Close#1
EndSub
D)PrivateSubCommandlClick()
DimBAsBooks
Open"c:
\Person.txt"ForInputAs#1
Name=InputBox("输入姓名")
Temum=InputBox("输入电话号码")
Write#1,B.Name,B.TelNuin
Close#1
EndSub
(35)目录列表框的Path属性的作用是______。
A)显示当前驱动器或指定驱动器上的某目录下的文件名
B)显示当前驱动器或指定驱动器上的目录结构
C)显示根目录下的文件名
D)显示指定路径下的文件
二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。
(1)数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【1】。
(2)算法复杂度主要包括时间复杂度和【2】复杂度。
(3)在进行模块测试时,要为每个被测试的模块另外设计两类模块:
驱动模块和承接模块(桩模块)。
其中【3】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
(4)一棵二叉树第六层(根结点为第一层)的结点数最多为【4】个。
(5)数据结构分为逻辑结构和存储结构,循环队列属于【5】结构。
(6)设有以下函数过程:
Functionfun(mAsInteger)AsInteger
DimkAsInteger,sumAsInteger
sum=0
Fork=mTo1Step-2
sum=sum+k
Nextk
fun=sum
EndFunction
若在程序中用语句s=fim(10)调用此函数,则s的值为【6】。
(7)在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。
程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。
例如,若在Text1中输入的是abDfdb,则单击Commandl按钮后Text1中显示韵字符串是
ZYXWVUTSRQPONMLKJIHGEC。
请填空。
PrivateSubCommandl_C1ick()
DimStrAsString,sAsString,cAsString
str=UCase(Text1)
s=""
c="Z"
Whilec>="A"
IfInStr(Str,c)=0Then
s=【7】
EndIf
c=Chr$(Asc(c)【8】)
Wend
Ifs<>""Then
Text1=s
EndIf
EndSub
(8)在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式
计算。
下图窗体中3个文本框的名称依次是Text1、Text2、Text。
程序运行时在Text1、Text2中分别输入n和r的值,单击Commandl按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。
请填空。
PfivateSubCommandl_Click()
DimrAsInteger,nAsInteger
n=Text1
r=Text2
Text3=fun(n)/fun(【9】)/fun(r)
EndSub
Functionfun(nAsInteger)AsLong
DimtAsLong
【10】
Fork=1Ton
t=t*k
Next
fun=t
EndFunction
(9)以下是一个比赛评分程序。
在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。
运行时在文本框数组中输入7个分数,单击.“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低.分后的平均分即为最后得分),如图所示。
请填空。
PrivateSubCommandl_Click()
DimkAsInteger
DimsumAsSingle,maxAsSingle,minAsSingle
sum=Text1(0)
max=Text1(0)
min=【11】
Fork=【12】To6
Ifmax<Text1(k)Then
max=Text1(k)
EndIf
Ifmin>Text1(k)Then
min=Text1(k)
EndIf
sum=sum+Text1(k)
Nextk
Text2=(【13】)/5
EndSub
(10)如图所示,在列表框Listl中已经有若干人的简单信息,运行时在Te
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 VISUAL BASIC