计算机等级考试二级vb试试题副本Word下载.docx
《计算机等级考试二级vb试试题副本Word下载.docx》由会员分享，可在线阅读，更多相关《计算机等级考试二级vb试试题副本Word下载.docx（21页珍藏版）》请在冰点文库上搜索。
b）数据管理语言
c）数据操纵语言
d）数据控制语言
（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是
a）文件
b）数据库
c）字段
d）记录
（9）数据库设计中，用e-r图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的
a）需求分析阶段
b）逻辑设计阶段
c）概念设计阶段
d）物理设计阶段
（10）有两个关系r和t如下：
则由关系r得到关系t的操作是
a）选择
b）投影
c）交
d）并
（11）在vb集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是
（12）设x是整型变量，与函数ⅱf（x>
0,-x,x）有相同结果的代数式是
a）|x|
b）-|x|
c）x
d）-x
（13）设窗体文件中有下面的事件过程：
privatesubcommand1_click（）
dims
a%=100
printa
endsub
其中变量a和s的数据类型分别是
a）整型，整型
b）变体型，变体型
c）整型，变体型
d）变体型，整型
（14）下面哪个属性肯定不是框架控件的属性
a）text
b）caption
c）left
d）enabled
（15）下面不能在信息框中输出“vb”的是
a）msgbox"
vb"
b）x=msgbox（"
）
c）msgbox（"
d）callmsgbox"
（16）窗体上有一个名称为option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
privatesuboption1_c1ick（indexasinteger）
…
下面关于此过程的参数index的叙述中正确的是
a）index为1表示单选按钮被选中，为o表示未选中
b）index的值可正可负
c）index的值用来区分哪个单选按钮被选中
d）index表示数组中单选按钮的数量
（17）设窗体中有一个文本框text1，若在程序中执行了text1.setfocus，则触发
a）text1的setfocus事件
b）text1的gotfocus事件
c）text1的lostfocus事件
d）窗体的gotfocus事件
（18）vb中有3个键盘事件：
keypress、keydown、keyup，若光标在text1文本框中，则每输入一个字母
a）这3个事件都会触发
b）只触发keypress事件
c）只触发keydown、keyup事件
d）不触发其中任何一个事件
（19）下面关于标准模块的叙述中错误的是
a）标准模块中可以声明全局变量
b）标准模块中可以包含一个submain过程，但此过程不能被设置为启动过程
c）标准模块中可以包含一些public过程
d）一个工程中可以含有多个标准模块
（20）设窗体的名称为form1，标题为win，则窗体的mousedown事件过程的过程名是
a）form1_mousedown
b）win_mousedown
c）form_mousedown
d）mousedown_form1
21）下面正确使用动态数组的是
a）dimarr（）asinteger
redimarr（3,5）
b）dimarr（）asinteger
redimarr（50）asstring
c）dimarr（）
redimarr（50）asinteger
d）dimarr（50）asinteger
redimarr（20）
（22）下面是求最大公约数的函数的首部
functiongcd（byvalxasinteger,byvalyasinteger）asinteger
若要输出8、12、16这3个数的最大公约数，下面正确的语句是
a）printgcd（8,12），gcd（12,16），gcd（16,8）
b）printgcd（8,12,16）
c）printgcd（8），gcd（12），gcd（16）
d）printgcd（8,gcd（12,16））
（23）有下面的程序段，其功能是按图1所示的规律输出数据
dima（3,5）asinteger
fori=1to3
forj=1to5
a（i,j）=i+j
printa（i,j）;
next
print
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是
a）fori=1to5
forj=1to3
printa（j,i）;
b）fori=1to3
c）forj=1to5
d）fori=1to5
next
（24）窗体上有一个text1文本框，一个command1命令按钮，并有以下程序
privatesubcommandl_click（）
dimn
iftext1.text<
>
"
23456"
then
n=n+1
print"
口令输入错误"
&
n&
"
次"
endif
希望程序运行时得到左图所示的效果，即：
输入口令，单击“确认口令”命令按钮，若输入的口令不是“”，则在窗体上显示输入错误口令的次数。
但上面的程序实际显示的是右图所示的效果，程序需要修改。
下面修改方案中正确的是
a）在dimn语句的下面添加一句：
n=o
b）把print"
改为print"
+n+"
c）把print"
&
str（n）&
d）把dimn改为staticn
（25）要求当鼠标在图片框p1中移动时，立即在图片框中显示鼠标的位置坐标。
下面能正确实现上述功能的事件过程是
a）privatesubp1_mousemove（buttonasinteger,shiftasinteger,xassingle,yassingle）
printx,y
b）privatesubp1_mousedown（buttonasinteger,shiftasinteger,xassingle,yassingle）
picture.printx,y
c）privatesubp1_mousemove（buttonasinteger,shiftasinteger,xassingle,yassingle）
p1.printx,y
d）privatesubform_mousemove（buttonasinteger,shiftasinteger,xassingle,yassingle）
（26）计算二的近似值的一个公式是
。
某人编写下面的程序用此公式计算并输出π的近似值：
privatesubcomand1_click（）
pi=1
sign=1
n=20000
fork=3ton
sign=-sign/k
pi=pi+sign/k
nextk
printpi*4
运行后发现结果为3.22751，显然，程序需要修改。
a）把fork=3ton改为fork=1ton
b）把n=20000改为n=
c）把fork=3ton改为fork=3tonstep2
d）把pi=1改为pi=0
（27）下面程序计算并输出的是
a=10
s=0
do
s=s+a*a*a
a=a-1
loopuntila<
=0
prints
a）13+23+33+…+103的值
b）10!
+…+3!
+2!
+1!
的值
c）（1+2+3+…+10）3的值
d）10个103的和
（28）若在窗体模块的声明部分声明了如下自定义类型和数组
privatetyperec
codeasinteger
captionasstring
endtype
dimarr（5）asrec
则下面的输出语句中正确的是
a）printarr.code
（2）,arr.caption
（2）
b）printarr.code,arr.caption
c）printarr
（2）.code,arr
（2）.caption
d）printcode
（2）,caption
（2）
（29）设窗体上有一个通用对话框控件cd1，希望在执行下面程序时，打开如图所示的文件对话框
cd1.dialogtitle="
打开文件"
cd1.initdir="
c:
\"
cd1.filter="
所有文件|*.*|word文档|*.doc|文本文件|*.txt"
cd1.filename="
cd1.action=1
ifcd1.filename="
then
print"
未打开文件"
else
要打开文件"
cd1.filename
endsub
但实际显示的对话框中列出了c:
\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。
下面的修改方案中正确的是
a）把cd1.action=1改为cd1.action=2
b）把“cd1.filter=”后面字符串中的“所有文件”改为“文本文件”
c）在语句cd1.action=1的前面添加：
cd1.filterindex=3
d）把cd1.filename="
改为cd1.filename="
文本文件"
（30）下面程序运行时，若输入395，则输出结果是
dimx%
x=inputbox（"
请输入一个3位整数"
printxmod10,x\100,（xmod100）\10
a）395
b）539
c）593
d）359
（31）窗体上有list1、list2两个列表框，list1中有若干列表项（见图），并有下面的程序：
fork=list1.listcount-1to0step-1
iflist1.selected（k）then
list2.additemlist1.list（k）
list1.removeitemk
程序运行时，按照图示在list1中选中2个列表项，然后单击commandl命令按钮，则产生的结果是
a）在list2中插入了“外语”、“物理”两项
b）在list1中删除了“外语”、“物理”两项
c）同时产生a）和b）的结果
d）把list1中最后1个列表项删除并插入到list2中
（32）设工程中有2个窗体：
form1、form2，form1为启动窗体。
form2中有菜单。
其结构如表。
要求在程序运行时，在form1的文本框text1中输入口令并按回车键（回车键的ascii码为13）后，隐藏form1，显示form2。
若口令为“teacher”，所有菜单项都可见;
否则看不到“成绩录入”菜单项。
为此，某人在form1窗体文件中编写如下程序：
privatesubtext1_keypress（keyasciiasinteger）
ifkeyascii=13then
iftext1.text="
teacher"
form2.input.visible=true
form2.input.visible=false
form1.hide
form2.show
程序运行时发现刚输入口令时就隐藏了form1，显示了form2，程序需要修改。
a）把form1中text1文本框及相关程序放到form2窗体中
b）把form1.hide、form2.show两行移到2个endif之间
c）把ifkeyascii=13then改为ifkeyascii="
teaeher"
d）把2个form2.input.visible中的“form2”删去
（33）某人编写了下面的程序，希望能把text1文本框中的内容写到out.txt文件中
open"
out.txt"
foroutputas#2
text1"
close#2
调试时发现没有达到目的，为实现上述目的，应做的修改是
a）把print"
改为print#2,text1
改为printtext1
改为write"
d）把所有#2改为#1
（34）窗体上有一个名为command1的命令按钮，并有下面的程序：
dimarr（5）asinteger
fork=1to5
arr（k）=k
progarr（）
printarr（k）
subprog（a（）asinteger）
n=ubound（a）
fori=nto2step-1
forj=1ton-1
ifa（j）
t=a（j）:
a（j）=a（j+1）:
a（j+1）=t
nextj
nexti
程序运行时，单击命令按钮后显示的是
a）12345
b）54321
c）01234
d）43210
（35）下面程序运行时，若输入“visualbasicprogramming”，则在窗体上输出的是
dimcount（25）asinteger,chasstring
ch=ucase（inputbox（"
请输入字母字符串"
））
fork=1tolen（ch）
n=asc（mid（ch,k,1））-asc（"
a"
ifn>
=0then
count（n）=count（n）+1
m=count（0）
fork=1to25
ifm
m=count（k）
printm
a）0
b）1
c）2
d）3
二、填空题
（1）一个队列的初始状态为空。
现将元素a,b,c,d,e,f,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为【1】。
（2）设某循环队列的容量为50，如果头指针front=45（指向队头元素的前一位置），尾指针rear=10（指向队尾元素），则该循环队列中共有【2】个元素。
（3）设二叉树如下：
对该二叉树进行后序遍历的结果为【3】。
（4）软件是【4】、数据和文档的集合。
（5）有一个学生选课的关系，其中学生的关系模式为：
学生（学号，姓名，班级，年龄），课程的关系模式为：
课程（课号，课程名，学时），其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：
选课（学号，【5】，成绩）。
（6）为了使复选框禁用（即呈现灰色），应把它的value属性设置为【6】。
（7）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为labl1、timer1和command1，如图1所示。
程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。
以下是实现上述功能的程序，请填空。
privatesubform_load（）
label1.caption="
欢迎"
timer1.enabled=false
timer1.interval=【7】
privatesubtimer1_timer（）
label1.visible=【8】
【9】
（8）有如下程序：
privatesubform_click（）
n=10
i=0
i=i+n
n=n-2
loopwhilen>
2
printi
程序运行后，单击窗体，输出结果为【10】。
（9）在窗体上画一个名称为command1的命令按钮。
然后编写如下程序：
optionbase1
dima（10）asinteger
fori=1to10
a（i）=i
callswap（【11】）
printa（i）;
subswap（b（）asinteger）
n=ubound（b）
fori=1ton/2
t=b（i）
b（i）=b（n）
b（n）=t
【12】
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a
（1）与a（10）的值互换，a
（2）与a（9）的值互换，……。
请填空。
（10）在窗体上画一个文本框，其名称为text1，在属性窗口中把该文本框的multiline属性设置为true，然后编写如下的事件过程：
d:
\test\smtext1.txt"
forinputas#1
dowhilenot【13】
lineinput#1,aspect$
whole$=whole$+aspect$+chr$（13）+chr$（10）
loop
text1.text=whole$
【14】
\test\smtext2.txt"
forou
升级会员 