2010年3月计算机等级考试二级VB试题

算法的时间复杂度是指

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是

软件(程序)调试的任务是

数据流程图(DFD图)是

软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于

数据库管理系统中负责数据模式定义的语言是

在学生管理的关系数据库中，存取一个学生信息的数据单位是

数据库设计中，用e-r图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的

有两个关系r和t如下：
 　　
则由关系r得到关系t的操作是

在vb集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是
　　

设x是整型变量，与函数ⅱf(x>0,-x,x)有相同结果的代数式是

设窗体文件中有下面的事件过程：
private sub command1_click()
dim s
a%=100
print a
end sub
其中变量a和s的数据类型分别是

下面哪个属性肯定不是框架控件的属性

下面不能在信息框中输出“vb”的是

窗体上有一个名称为option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
private sub option1_c1ick(index as integer)
…
end sub
下面关于此过程的参数index的叙述中正确的是

设窗体中有一个文本框text1，若在程序中执行了text1.setfocus，则触发

vb中有3个键盘事件：keypress、keydown、keyup，若光标在text1文本框中，则每输入一个字母

下面关于标准模块的叙述中错误的是

设窗体的名称为form1，标题为win，则窗体的mousedown事件过程的过程名是

下面正确使用动态数组的是

下面是求最大公约数的函数的首部
function gcd(byval x as integer, byval y as integer) as integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是

有下面的程序段，其功能是按图1所示的规律输出数据
dim a(3,5) as integer
for i=1 to 3
for j=1 to 5
a(i,j)=i+j
print a(i,j);
next
print
next
 　　
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是

窗体上有一个text1文本框，一个command1命令按钮，并有以下程序
private sub commandl_click()
dim n
if text1.text<>"23456" then
n=n+1
print "口令输入错误" & n & "次"
end if
end sub
 　　
希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是

要求当鼠标在图片框p1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

计算二的近似值的一个公式是　　 。
某人编写下面的程序用此公式计算并输出π的近似值：
private sub comand1_click()
pi=1
sign=1
n=20000
for k=3 to n
sign=-sign/k
pi=pi+sign/k
next k
print pi*4
end sub
运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是

下面程序计算并输出的是
private sub comand1_click()
a=10
s=0
do
s=s+a*a*a
a=a-1
loop until a<=0
print s
end sub

若在窗体模块的声明部分声明了如下自定义类型和数组
private type rec
code as integer
caption as string
end type
dim arr(5) as rec
则下面的输出语句中正确的是

设窗体上有一个通用对话框控件cd1，希望在执行下面程序时，打开如图所示的文件对话框
private sub comand1_click()
cd1.dialogtitle="打开文件"
cd1.initdir="c:\"
cd1.filter="所有文件|*.*|word文档|*.doc|文本文件|*.txt"
cd1.filename=""
cd1.action=1
if cd1.filename=""then
print"未打开文件"
else
print"要打开文件"& cd1.filename
end if
end sub
但实际显示的对话框中列出了c:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
　　

下面程序运行时，若输入395，则输出结果是
private sub comand1_click()
dim x%
x=inputbox("请输入一个3位整数")
print x mod 10,x\100,(x mod 100)\10
end sub

窗体上有list1、list2两个列表框，list1中有若干列表项(见图)，并有下面的程序：
 　　
private sub comand1_click()
for k=list1.listcount-1 to 0 step -1
if list1.selected(k) then
list2.additem list1.list(k)
list1.removeitem k
end if
next k
end sub
程序运行时，按照图示在list1中选中2个列表项，然后单击commandl命令按钮，则产生的结果是

设工程中有2个窗体： form1、form2，form1为启动窗体。form2中有菜单。其结构如表。要求在程序运行时，在form1的文本框text1中输入口令并按回车键(回车键的ascii码为13)后，隐藏form1，显示form2。若口令为“teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在form1窗体文件中编写如下程序：
private sub text1_keypress(keyascii as integer)
if keyascii=13 then
if text1.text="teacher" then
form2.input.visible=true
else
form2.input.visible=false
end if
end if
form1.hide
form2.show
end sub
程序运行时发现刚输入口令时就隐藏了form1，显示了form2，程序需要修改。下面修改方案中正确的是
　　

某人编写了下面的程序，希望能把text1文本框中的内容写到out.txt文件中
private sub comand1_click()
open "out.txt" for output as #2
print "text1"
close #2
end sub
调试时发现没有达到目的，为实现上述目的，应做的修改是

窗体上有一个名为command1的命令按钮，并有下面的程序：
private sub comand1_click()
dim arr(5) as integer
for k=1 to 5
arr(k)=k
next k
prog arr()
for k=1 to 5
print arr(k)
next k
end sub
sub prog(a() as integer)
n=ubound(a)
for i=n to 2 step -1
for j=1 to n-1
if a(j)
t=a(j):a(j)=a(j+1):a(j+1)=t
end if
next j
next i
end sub
程序运行时，单击命令按钮后显示的是

下面程序运行时，若输入“visual basic programming”，则在窗体上输出的是
private sub comand1_click()
dim count(25) as integer, ch as string
ch=ucase(inputbox("请输入字母字符串"))
for k=1 to len(ch)
n=asc(mid(ch,k,1))-asc("a")
if n>=0 then
count(n)=count(n)+ 1
end if
next k
m=count(0)
for k=1 to 25
if m
m=count(k)
end if
next k
print m
end sub

一个队列的初始状态为空。现将元素a,b,c,d,e,f,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为＿＿ 。

设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有＿＿ 个元素。

设二叉树如下：
 　　
对该二叉树进行后序遍历的结果为＿＿ 。

软件是＿＿、数据和文档的集合。

有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，＿＿ ，成绩)。

为了使复选框禁用(即呈现灰色)，应把它的value属性设置为＿＿ 。

在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为labl1、timer1和command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。
 　　
private sub form_load()
label1.capti_dj="欢迎"
timer1.enabled=false
timer1.interval= ＿＿
end sub
private sub timer1_timer()
label1.visible= ＿＿
end sub
private sub command1_click()
＿＿
end sub

有如下程序：
private sub form_click()
n=10
i=0
do
i=i+n
n=n-2
loop while n>2
print i
end sub
程序运行后，单击窗体，输出结果为＿＿ 。

在窗体上画一个名称为command1的命令按钮。然后编写如下程序：
option base 1
private sub command1_click()
dim a(10) as integer
for i=1 to 10
a(i)=i
next
call swap (＿＿ )
for i=1 to 10
print a(i);
next
end sub
sub swap(b() as integer)
n=ubound(b)
for i=1 to n / 2
t=b(i)
b(i)=b(n)
b(n)=t
＿＿
next
end sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

在窗体上画一个文本框，其名称为text1，在属性窗口中把该文本框的multiline属性设置为true，然后编写如下的事件过程：
private sub form_click()
open "d:\test\smtext1.txt" for input as #1
do while not ＿＿
line input #1, aspect$
whole$=whole$+aspect$+chr$(13)+chr$(10)
loop
text1.text=whole$
＿＿
open "d:\test\smtext2.txt" for output as #1
print #1, ＿＿
close #1
end sub
运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。