计算机等级考试二级 VB笔试真题及答案文档格式.docx
《计算机等级考试二级 VB笔试真题及答案文档格式.docx》由会员分享，可在线阅读，更多相关《计算机等级考试二级 VB笔试真题及答案文档格式.docx（17页珍藏版）》请在冰点文库上搜索。
h2
n
2
x1
由关系Ｒ和S通过运算得到关系T，则所使用的运算为
A）并 B）自然连接 C）笛卡尔积 D）交
10、设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为
Ａ）课号，成绩 B）学号，成绩C）学号，课号 D）学号，姓名，成绩
11、以下叙述中错误的是
Ａ）标准模块文件的扩展名是.basB）标准模块文件是纯代码文件
C）在标准模块中声明的全局变量可以在整个工程中使用D）在标准模块中不能定义过程
12、在VisualBasic中，表达式3*2\5Mod3的值是
Ａ）１ B）０ C）３ D）出现错误提示
13、以下选项中，不合法的VisualBasic变量名是
Ａ）a5bB）_xyzC）a_bD）andif
14、以下数组定义语句中，错误的是
Ａ）Statica（10）AsIntegerB）Dimc（3,1to4）
C）Dimd（-10）D）Dimb（0to5,1to3）AsInteger
15、现有语句：
y=IIf（x>
0,xMod3,0），设x=10，则y的值是
Ａ）０ B）１ C）３ D）语句有错
16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为
Ａ）０ B）１ C）２ D）３
17、文本框Text1的KeyDown事件过程如下：
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
EndSub
其中参数KeyCode的值表示的是发生此事件时
Ａ）是否按下了Alt键或Ctrl键 B）按下的是哪个数字键
C）所按的键盘键的键码 D）按下的是哪个鼠标键
18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。
下面能够实现上述操作的事件过程是
Ａ）PrivateSubHscroll1_Changc（）B）PrivateSubHsctroll1_Change（）
PrintHScroll1.ValuePrintHScroll1.SmallChange
EndSubEndSub
C）PrivateSubHScroll1_Scroll（）D）PrivateSubHScroll1_Scroll（）
19、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是
Ａ）用鼠标右键单击此按钮 B）按键盘上的Esc键
C）按键盘上的回车键 D）用鼠标右键双击此按钮
20、要使两个单选按钮属于同一个框架，正确的操作是
Ａ）先画一个框架，再在框架中画两个单选按钮
B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中
C）先画两个单选按钮，再画框架将单选按钮框起来
D）以上三种方法都正确
21、能够存放组合框的所有项目内容的属性是
Ａ）CaptionB）TextC）ListD）Selected
22、设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。
要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是
Ａ）PrivateSubTimer1_Timer（）B）PrivateSubTimer1_Timer（）
Label1.Caption=TrueLabel1.Caption=Time$
C）PrivateSubTimer1_Timer（）D）PrivateSubTimer1_Timer（）
Label1.Interval=1Fork=lToTimer1.Interval
EndSubLabel1.Caption=Timer
Nextk
EndSub
23、设有如图所示窗体和以下程序：
PrivateSubCommand1_Click（）
Textl.Text=“VisualBasic”
PrivateSubText1_LostFocus（）
IfText1.Text<
>
“BASIC”Then
Text1.Text=””
Text1.SetFocus
EndIf
程序运行时，在Text1文件框中输入“Basic”（如图所示），然后单击Command1按钮，则产生的结果是
Ａ）文本框中无内容，焦点在文本框中B）文本框中为“Basic”,焦点在文本框中
C）文本框中为“Basic”,焦点的按钮上D）文本框中为“VisualBasic”,焦点的按钮上
24、窗体上有一个名称为Command1的命令按钮，其事件过程如下：
x=“VisualBasicProgramming”
a=Right（x,11）
b=Mid（x,7,5）
C=Msgbox（a,,b）
运行程序后单击命令按钮，以下叙述中错误的是
Ａ）信息框的标题是BasicB）信息框中的提示信息是Programming
C）C的值是函数的返回值 D）MsgBox的使用格式有错
25、设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。
Form1的代码如下：
PublicXAsInteger
PrivateSubForm_load（）
x=1
y=5
Form2.Show
Form2的代码如下：
PrivateSubCommand1_Ciick（）
PrintForm1.x,y
Module1的代码如下：
PublicyAsInteger
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；
再单击Form2上的命令按钮Command1，则窗体上显示的是
Ａ）１ ５ B）０ ５ C）０ ０ D）程序有错
26、窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。
窗体文件的程序如下：
PrivateTypex
aAsInteger
bASInteger
EndType
DimyAsx
y.a=InputBox（“”）
Ify.a\2=y.a/2Then
y.b=y.a*y.a
Else
y.b=Fix（y.a/2）
Text1.Text=y.b
对以上程序，下列叙述中错误的是
Ａ）x是用户定义的类型B）InputBox函数弹出的对话框中没有提示信息
C）若输入的是偶数，y.b的值为该偶数的平方
D）Fix（y.a/2）把y.a/2的小数部分四舍五入，转换为整数返回
27、窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。
命令按钮的事件过程如下：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0
CD1.Action=1
Case1
CD1.ShowSave
Case2
CD1.Action=5
Case3
End
EndSelect
对上述程序，下列叙述中错误的是
Ａ）单击“打开”按钮，显示打开文件的对话框
B）单击“保存”按钮，显示保存文件的对话框
C）单击“打印”按钮，能够设置打印选项，并执行打印操作
D）单击“退出”按钮，结束程序的运行
28、窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：
PrivateSubCommand1_ClickO
CallCale（HV.Value,HT.Value）
PublicSubCale（xASInteger,yASInteger）
Text1.Text=x*y
运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。
对以上程序，下列叙述中正确的是
Ａ）过程调用语句不对，应为Cale（HV,HT）
B）过程定义语句的形式参数不对，应为SubCale（xAsControl,yAsControl）
C）计算结果在文本框中显示出来
D）程序不能正确运行
29、现有如下程序：
PrivateSubCommand1_Click（）
S=0
Fori=1to5
S=S+f（5+i）
Next
PrintS
PublicFunctionf（xAsInteger）
Ifx>
=10Then
t=x+1
Else
t=x+2
f=t
EndFunction
运行程序，则窗体上显示的是
Ａ）38 B）49 C）61 D）70
30、窗体上有一个用菜单编辑器设计的菜单（见上图）。
运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。
以下叙述中错误的
Ａ）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”）
B）菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符
C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”）
D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”
31、窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。
如图所示。
现有如下程序：
PublicSubdisplay（xAsControl）
IfTypeOfxisLabelThen
x.Caption=“计算机等级考试”
x.Picture=Loadpicture（“pic.jpg”）
EndIf
PrivateSubLabel1_Click（）
Calldisplay（Label1）
PrivateSubPicture1_Click（）
Calldisplay（Picture1）
Ａ）程序运行时会出错 B）单击图片框，在图片框中显示一幅图片
C）过程中的X是控件变量 D）单击标签，在标签中显示一串文字
32、窗体上有两个名称分别为Text1、Text2的文本框。
Text1的KeyUp的事件过程如下：
PrivateSubText1_KeyUp（KeyCodeAsInteger,shiftASInteger）
DimCASstring
Tcxt2.Text=Chr（Asc（c）+2）
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
Ａ）Ａ B）aC）CD）c
33、设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：
DimSAsString,chAsString
S=“”
Fork=1TOLen（Text1）
ch=Mid（Text1,k,l）
S=ch+S
Nextk
Text1.Text=S
程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是
A）BasicB）cisaBC）BASICD）CISAB
34、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Dima（10）AsInteger,maxAsInteger
Fork=1TO10
a（K）=InputBox（“输入一个整数”）
Max=0
Fork=1To10
Ifa（k）＞maxThen
Max=a（k）
Printmax
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是
A）把Ifa（k）>
maxThen改为Ifa（k）<
maxThenB）把max=a（k）改为a（k）=max
C）把第2个循环语句Fork=1TO10改为Fork=2TO10D）把max=0改为max=a（10）
35、已知在4行3列的全局数组score（4,3）中存放了4个学生3门课程的考试成绩（均为整数）。
现需要计算每个学生的总分，某人编写程序如下：
OptionBase1
DimsumAsInteger
Sum=0
Fori=1To4
Forj=1To3
Sum=sum+score（i,j）
Nextj
Print“第”&
i&
”个学生的总分是:
”;
sum
Nexti
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。
程序需要修改。
以下修改方案中正确的是
A）把外层循环语句Fori=1TO4改为Fori=1To3
内层循环语句Forj=1TO3改为Forj=1TO4
B）把sum=0移到Fori=1TO4和Forj=1TO3之间
C）把sum=sum+score（i,j）改为sum=sum+score（j,i）
D）把sum=sum+score（i,j）改为sum=score（i,j）
二、填空题
（1）测试用例包括输入值集和[1]值集。
（2）深度为5的满二叉树有[2]个叶子结点。
（3）设某循环队列的容量为50，头指针Front=5（指向队头元素的前一位置），尾指针rear=29（指向队尾元素），则该循环队列中共有[3]个元素。
（4）在关系数据库中，用来表示实体之间联系的是[4]。
（5）在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，[5]负责数据的模式定义与数据的物理存取构建。
（6）设有以下的循环：
要求程序运行时执行3次循环体，请填空。
DO
x=x+2
Printx
LoopUntil[6]
（7）窗体上命令按钮Command1的事件过程如下：
DimtotalAsInteger
total=s
（1）+s
（2）
Printtotal
PrivateFunctions（mAsInteger）AsInteger
StaticxAsInteger
Fori=1Tom
x=x+1
Nexti
S=x
运行程序，第3次单击命令按钮Command1时，输出结果为[7]
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBasel
Dima（10）AsInteger
Fori=1To10
a（i）=i
Next
Callswap（[8]）
Printa（i）
Subswap（b（）AsInteger）
n=[9]
Fori=1Ton/2
t=b（i）
b（i）=b（n）
b（n）=t
[10]
Next
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a
（1）与a（10）的值互换，a
（2）与a（9）的值互换，请填空。
（9）在窗体上面一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
CommonDialog1.Filter=“AllFiles（*.*）|*.*|TextFiles”_
&
”（*.txt）|*.txt|BatchFiles（*.bat）|*.bat”
CommonDialog1Filterlndex=1
Commondialog1.ShowOpen
MsgBoxCommonDialog1.FileName
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是[11]；
如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是[12]。
（10）以下程序的功能是：
把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。
请填空。
DiminDataAsString
Text1.Text=“”
Open“smtext1.txt”[13]As[14]
DoWhile[15]
Input#2,inData
Text1.Text=Text1.Text&
inData
Loop
Close#2
EndSub
升级会员 