全国计算机二级考试vb试题共24页word资料Word下载.docx
《全国计算机二级考试vb试题共24页word资料Word下载.docx》由会员分享,可在线阅读,更多相关《全国计算机二级考试vb试题共24页word资料Word下载.docx(12页珍藏版)》请在冰豆网上搜索。
![全国计算机二级考试vb试题共24页word资料Word下载.docx](https://file1.bdocx.com/fileroot1/2023-1/30/7fc4d557-b8b2-47d0-8917-d8e666987670/7fc4d557-b8b2-47d0-8917-d8e6669876701.gif)
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)设窗体文件中有下面的事件过程:
Private
Sub
Command1_Click()
Dim
s
a%=100
Print
a
End
Sub
其中变量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)Call
MsgBox
(16)窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程
Option1_C1ick(Index
As
Integer)
…
下面关于此过程的参数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)标准模块中可以包含一个Sub
Main过程,但此过程不能被设置为启动过程
C)标准模块中可以包含一些Public过程
D)一个工程中可以含有多个标准模块
(20)设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是
A)Form1_MouseDown
B)Win_MouseDown
C)Form_MouseDown
D)MouseDown_Form1
(21)下面正确使用动态数组的是
A)Dim
arr()
Integer
…
ReDim
arr(3,5)
B)Dim
arr(50)As
String
C)Dim
arr()
arr(50)
D)Dim
arr(20)
(22)下面是求最大公约数的函数的首部
Function
gcd(ByVal
x
Integer,
ByVal
y
Integer)
若要输出8、12、16这3个数的最大公约数,下面正确的语句是
A)Print
gcd(8,12),gcd(12,16),gcd(16,8)
B)Print
gcd(8,12,16)
C)Print
gcd(8),gcd(12),gcd(16)
D)Print
gcd(8,gcd(12,16))
(23)有下面的程序段,其功能是按图1所示的规律输出数据
a(3,5)
For
i=1
To
3
For
j=1
5
A(i,j)=i+j
Print
a(i,j);
Next
Print
Next
若要按图2所示的规律继续输出数据,则接在上述程序段后面的程序段应该是
A)For
a(j,i);
B)For
C)For
D)For
(24)窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序
Commandl_Click()
Dim
n
If
Text1.Text<
>
23456"
Then
n=n+1
口令输入错误"
&
n
次"
End
If
希望程序运行时得到左图所示的效果,即:
输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。
但上面的程序实际显示的是右图所示的效果,程序需要修改。
下面修改方案中正确的是
A)在Dim
n语句的下面添加一句:
n=O
B)把Print
改为Print
+n+"
C)把Print
Str(n)&
D)把Dim
n改为Static
(25)要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。
下面能正确实现上述功能的事件过程是
A)Private
P1_MouseMove(Button
AS
Integer,Shift
Integer,X
Single,
Y
Single)
X,Y
B)Private
P1_MouseDown(Button
Picture.Print
C)
Private
P1.Print
D)Private
Form_MouseMove(Button
(26)计算二的近似值的一个公式是。
某人编写下面的程序用此公式计算并输出π的近似值:
Comand1_Click()
PI=1
Sign=1
n=20000
k=3
Sign=-Sign/k
PI=PI+Sign/k
Next
k
PI*4
运行后发现结果为3.22751,显然,程序需要修改。
A)把For
改为
k=1
B)把n=20000改为n=20000000
C)把For
n改为For
Step
2
D)把PI=1改为PI=0
(27)下面程序计算并输出的是
a=10
s=0
Do
s=s+a*a*a
a=a-1
Loop
Until
a<
=0
A)13+23+33+…+103的值
B)10!
+…+3!
+2!
+1!
的值
C)(1+2+3+…+10)3的值
D)10个103的和
(28)若在窗体模块的声明部分声明了如下自定义类型和数组
Type
rec
Code
Caption
Type
arr(5)
则下面的输出语句中正确的是
arr.Code
(2),arr.Caption
(2)
arr.Code,arr.Caption
arr
(2).Code,arr
(2).Caption
Code
(2),Caption
(2)
(29)设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框
CD1.DialogTitle="
打开文件"
CD1.InitDir="
C:
\"
CD1.Filter="
所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"
CD1.FileName="
CD1.Action=1
Print"
未打开文件"
Else
要打开文件"
CD1.FileName
但实际显示的对话框中列出了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,则输出结果是
x%
x=InputBox("
请输入一个3位整数"
Mod
10,x\100,(x
100)\10
A)3
9
B)5
3
9
C)5
D)3
5
(31)窗体上有List1、List2两个列表框,List1中有若干列表项(见图),并有下面的程序:
k=List1.ListCount-1
0
-1
List1.Selected(k)
List2.AddItem
List1.List(k)
List1.RemoveItem
程序运行时,按照图示在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窗体文件中编写如下程序:
Text1_KeyPress(KeyAscii
KeyAscii=13
Text1.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个End
If之间
C)把If
Then改为
KeyAscii="
Teaeher"
D)把2个Form2.input.Visible中的“Form2”删去
(33)某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中
Open
out.txt"
Output
#2
Text1"
Close
调试时发现没有达到目的,为实现上述目的,应做的修改是
A)把Print
#2,Text1
Text1
改为Write
D)把所有#2改为#1
(34)窗体上有一个名为Command1的命令按钮,并有下面的程序:
arr(k)=k
prog
arr(k)
Sub
prog(a()
n=Ubound(a)
i=n
2
step
n-1
if
a(j)<
a(j+1)
t=a(j):
a(j)=a(j+1):
a(j+1)=t
j
i
程序运行时,单击命令按钮后显示的是
A)12345
B)54321
C)01234
D)43210
(35)下面程序运行时,若输入“Visual
Basic
Programming”,则在窗体上输出的是
count(25)
ch
ch=Ucase(InputBox("
请输入字母字符串"
))
Len(ch)
n=Asc(Mid(ch,k,1))-Asc("
A"
If
n>
=0
Count(n)=Count(n)+
1
Next
m=count(0)
25
m<
count(k)
m=count(k)
m
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所示。
以下是实现上述功能的程序,请填空。
Form_Load()
Label1.Caption="
欢迎"
Timer1.Enabled=False
Timer1.Interval=
【7】
Timer1_Timer()
Label1.Visible=
【8】
command1_Click()
【9】
(8)有如下程序:
Form_Click()
n=10
i=0
Do
i=i+n
n=n-2
Loop
While
程序运行后,单击窗体,输出结果为
【10】
(9)在窗体上画一个名称为Command1的命令按钮。
然后编写如下程序:
Option
Base
a(10)
10
a(i)=i
Call
swap
(
【11】
a(i);
swap(b()
n=Ubound(b)
/
t=b(i)
b(i)=b(n)
b(n)=t
【12】
En