全国计算机等级考试二级VB真题文档格式.docx
- 文档编号:17528417
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:12
- 大小:108.53KB
全国计算机等级考试二级VB真题文档格式.docx
《全国计算机等级考试二级VB真题文档格式.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级VB真题文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
D)一种操作系统
(9)在E-R图中,用来表示实体联系的图形是
A)椭圆图
B)矩形
C)菱形
D)三角形
(10)有三个关系R,S和T如下:
其中关系T由关系R和S通过某种操作得到,该操作为
A)选择
B)投影
C)交
D)并
(11)以下变量名中合法的是
A)x2-1
B)print
C)str_n
D)2x
(12)把数学表达式图1表示为正确的VB表达式应该是
A)(5x+3)/(2y-6)
B)x*5+3/2*y-6
C)(5*x+3)l图2(2*y-6)
D)(x*5+3)/(y*2-6)
(13)下面有关标准模块的叙述中,错误的是
A)标准模块不完全由代码组成,还可以有窗体
B)标准模块中的Private过程不能被工程中的其他模块调用
C)标准模块的文件扩展名为.bas
D)标准模块中的全局变量可以被工程中的任何模块引用
(14)下面控件中,没有Caption属性的是
A)复选框
B)单选按钮
C)组合框
D)框架
(15)用来设置文字字体是否斜体的属性是
A)FontUnderline
B)FontBold
C)FontSlope
D)FontItalic
(16)若看到程序中有以下事件过程,则可以肯定的是,当程序运行时
PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
Print“VBProgram”
EndSub
A)用鼠标左键单击名称为“Command1”的命令按钮时,执行此过程
B)用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程
C)用鼠标左键单击名称为“MouseDown”的控件时,执行此过程
D)用鼠标左键或右键单击名称为“Click”的控件时,执行此过程
(17)可以产生30-50(含30和50)之间的随机整数的表达式是
A)Int(Rnd*21+30)
B)Int(Rnd*20+30)
C)Int(Rnd*50-Rnd*30)
D)Int(Rnd*30+50)
(18)在程序运行时,下面的叙述中正确的是
A)用鼠标右键单击窗体中无控件的部分,会执行窗体的Form_Load事件过程
B)用鼠标左键单击窗体的标题栏,会执行窗体的Form_Click事件过程
C)只装入而不显示窗体,也会执行窗体的Form_Load事件过程
D)装入窗体后,每次显示该窗体时,都会执行窗体的Form_Click事件过程
(19)窗体上有名称为Command1的命令按钮和名称为Text1的文本框
PrivateSubCommand1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
PrivateSubText1_GotFocus()
Text1.Text=”等级考试”
运行以上程序,单击命令按钮后
A)文本框中显示的是“程序设计”,且焦点在文本框中
B)文本框中显示的是“等级考试”,且焦点在文本框中
C)文本框中显示的是“程序设计”,且焦点在命令按钮上
D)文本框中显示的是“等级考试”,且焦点在命令按钮上
(20)设窗体上有名称为Option1的单选按钮,且程序中有语句:
IfOptions.Value=TrueThen
下面语句中与该语句不等价的是
A)IfOption.ValueThen
B)IfOption1=TrueThen
C)IfValue=TrueThen
D)IfOption1Then
(21)设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。
下面叙述正确的是
A)程序运行时,若使滚动块向左移动,滚动条的Value属性值就增加
B)程序运行时,若使滚动块向左移动,滚动条的Value属性值就减少
C)由于滚动条的Max属性值下于Min属性值,程序会出错
D)由于滚动条的Max属性值下于Min属性值,程序运行时滚动条的长度会缩为一点,滚动块无法移动
(22)有如下过程代码:
Subvar_dim()
StaticnumaAsInteger
DimnumbAsInteger
numa=numa+2
numb=numb+1
printnuma;
numb
连续3次调用var_dim过程,第3次调用时的输出是
A)21
B)23
C)61
D)63
(23)在窗体上画1个命令按钮,并编写如下事件过程:
Fori=5to1step-0.8
PrintInt(i);
Nexti
运行程序,单击命令按钮,窗体上显示的内容为
A)543211
B)54321
C)43211
D)443211
(24)在窗体上画1个命令按钮,并编写如下事件过程:
Dima(3,3)
Form=1To3
Forn=1To3
Ifn=mOrn=4-mThen
a(m,n)=0
EndIf
Printa(m,n);
Nextn
Nextm
A)200
040
006
B)204
406
C)230
340
D)200
045
056
(25)设有以下函数过程
Functionfun(aAsInteger,bAsInteger)
DimcAsInteger
Ifa<
bThen
c=a:
a=b:
b=c
c=0
Do
c=c+a
LoopUntilcModb=0
fun=c
Endfunction
若调用函数fun时的实际参数都是自然数,则函数返回的是
A)a、b的最大公约数
B)a、b的最小公倍数
C)a除以b的余数
D)a除以b的商的整数部分
(26)窗体上有1个名称为Text1的文本框;
1个名为Timer1的计时器控件,其Interval属性值为5000,Enable属性值是True。
Timer1的事件过程如下:
PrivateSubTimer1_Timer()
StaticflagAsInteger
Ifflag=0Thenflag=1
flag=-flag
Ifflag=1Then
Text1.ForeColor=&
HFF&
‘&
为红色
Else
HC000&
为绿色
以下叙述正确的是
A)每次执行些事件过程时,flag的初始值为0
B)flag的值只可能取0或1
C)程序执行后,文本框的文字每5秒改变一次颜色
D)程序有逻辑错误,Else分支总也不能被执行
(27)为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:
Dima%,s%,k%
s=1
a=2
Fork=2To10
a=a*2
s=s+a
Nextk
Text1.Text=s
执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是
A)把s=1改为s=0
B)把Fork=2To10改为Fork=1To10
C)交换语句s=s+a和a=a*2的顺序
D)同时进行B)、C)两种修改
(28)标准模块中有如下程序代码:
PublicxAsInteger,yAsInteger
Subvar_pub()
x=10:
y=20
在窗体上有1个命令按钮,并有如下事件过程:
DimxAsInteger
Callvar_pub
x=x+100
y=y+100
Printx;
y
运行程序后单击命令按钮,窗体上显示的是
A)100100
B)100120
C)110100
D)110120
(29)设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:
Whilea>
b
a=a-b
Wend
fun=a
EndFunction
在调试时发现函数是错误的。
为使函数能产生正确的返回值,应做的修改是
A)把a=a-b改为a=b-a
B)把a=a-b改为a=a\b
C)把Whilea>
b改为Whilea<
D)把Whilea>
b改为Whilea>
=b
(30)下列关于通用对话框CommonDialog1的叙述中,错误的是
A)只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开
B)使用CommonDialog1.ShowColor方法,可以显示“颜色”对话框
C)CancelError属性用于控制用户单击“取消”按钮关闭对话框时,是否显示出错误警告
D)在显示“字体”对话框前,必须先设置CommonDialog1的flags属性,否则会出错
(31)在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
A)退出(X&
)
B)退出(&
X)
C)退出(X#)
D)退出(#X)
(32)在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:
DimssAsString
PrivateSubText1_KeyPress(KeyAsciiAsinteger)
Ifchr(KeyAscii)<
>
””Thenss=ss+chr(KeyAscii)
DimmAsString,iAsInteger
Fori=Len(ss)To1step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是
A)NUMBER100
B)REBMUN
C)REBMUN100
D)001REBMUN
(33)窗体的左右两端各有1条直线,名称分别为Line1、Line2;
名称为Shape1的圆靠在左边的Line1直线上(见图);
另有1个名称为Timer1的计时器控件,其Enable属性值是True。
要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Fork=Line1.X1ToLine2.X1Step100
IfShape1.Left+Shape1.Width<
Line2.X1Then
Shape1.Left=Shape1.Left+100
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。
为得到与题目要求相符的结果,下面修改方案中正确的是
A)把设计器的Interval属性设置为1
B)把Fork=Line1.X1ToLine2.X1Step100和Nextk两行删除
C)把Fork=Line1.X1ToLine2.X1Step100改为Fork=Line2.X1ToLine1.X1Step100
D)把IfShape1.Left+Shape1.Width<
Line2.X1Then改为IfShape1.Left<
(34)下列有关文件的叙述中,正确的是
A)以Output方式打开一个不存在的文件时,系统将显示出错信息
B)以Append方式打开的文件,既可以进行读操作,也可以进行写操作
C)在随机文件中,每个记录的长度是固定的
D)无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的
(35)窗体如图1所示。
要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。
若编写以下程序来实现此功能:
Dimn%,k%
n=Len(Text1.Text)
Fork=0ToList1.ListCount-1
IfLeft(List1.List(k),n)=Text1.TextThen
List1.RemoveItemk
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。
这说明程序不能适应所有情况,需要修改。
正确的修改方案是把Fork=0ToList1.ListCount-1改为
A)Fork=List1.ListCount-1To0Step-1
B)Fork=0ToList1.ListCount
C)Fork=1ToList1.ListCount-1
D)Fork=1ToList1.ListCount
二、填空题(每空2分,共30分)
(1)某二叉树有5个度为2的结点以及3个度为1的结点为,则该二叉树共有【1】个结点。
(2)程序流程图中的菱形框表示的是【2】。
(3)软件开发过程主要分为需求分析、设计、编码与测试四个阶段,其中【3】阶段产生“软件需求规格说明书”。
(4)在数据库技术中,实体集之间的联系可以是一对一或一对多或多对多的,那么“学生”和“可选课程”的联系为【4】。
(5)人员基本信息一般包括:
身份证号,姓名,性别,年龄等。
其中可以作为主关键字的是【5】。
(6)工程中有Form1、Form2两个窗体。
Form1窗体外观如图1所示。
程序运行时,在Form1中名称为Text1的文本框中输入一个数值(圆的半径),然后单击命令按钮“计算并显示”(其名称为Command1),则显示Form2窗体,且根据输入的圆的半径计算圆的面积,并在Form2的窗体上显示出来,如图2所示。
如果单击命令按钮时,文本框中输入的不是数值,则用信息框显示“请输入数值数据!
”请填空。
IfText1.Text=””Then
MsgBox“请输入半径!
”
ElseIfNotIsNumeric(【6】)Then
MsgBox“请输入数值数据!
Else
r=val(【7】)
Form2.show
【8】.Print“圆的面积是”&
3.14*r*r
(7)设有整形变量s,取值范围为0~100,表示学生的成绩。
有如下程序段:
Ifs>
=90Then
Level=”A”
ElseIfs>
=75Then
Level=”B”
=60Then
Level=”D”
下面用SelectCase结构改写上述程序,使两段程序所实现的功能完全相同。
请填空。
SelectCases
Case
【9】>
=90
Case75To89
Case60To74
Case
【10】
【11】
(8)窗体上有名称为Command1的命令按钮。
事件过程及2个函数过程如下:
DimxAsInteger,yAsInteger,z
x=3
y=5
z=fy(y)
printfx(fx(x)),y
EndSub
Functionfx(ByBalaAsInteger)
a=a+a
fx=a
Functionfy(ByRefaAsInteger)
fy=a
运行程序,并单击命令按钮,则窗体上显示的2个值依次是【12】和【13】。
(9)窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。
程序运行后,如果单击命令按钮,则可打开磁盘文件c:
\test.txt,并将文件中的内容(多行文本)显示在文本框中。
下面是实现此功能的程序,请填空。
Text1=””
Number=FreeFile
Open“c:
\test.txt”ForInputAsNumber
DoWhileNotEof(【14】)
LineInput#Number,s
Text1.Text=Text1.Text+【15】+Chr(13)+Chr(10)
Loop
CloseNumber
一、选择题
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
(9)
(10)
(11)
C
(12)
D
(13)
A
(14)
(15)
(16)
(17)
(18)
(19)
B
(20)
(21)
(22)
(23)
(24)
(25)
(26)
(27)
(28)
(29)
(30)
(31)
(32)
(33)
(34)
(35)
二、填空题
(6)Text1.Text
Text1.Text
Form2
(7)IS
ELSE
ENDSelect
(8)12
10
(9)Number
s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国 计算机等级考试 二级 VB
![提示](https://static.bdocx.com/images/bang_tan.gif)