计算机二级VBWord文档格式.docx
- 文档编号:7196076
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:13
- 大小:22.47KB
计算机二级VBWord文档格式.docx
《计算机二级VBWord文档格式.docx》由会员分享,可在线阅读,更多相关《计算机二级VBWord文档格式.docx(13页珍藏版)》请在冰点文库上搜索。
进行前序遍历的结果为
A)DYBEAFCZXB)YDEBFZXCA
C)ABDYECFXZD)ABCDEFXYZ
(7)某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
A)n+1B)n-1C)2nD)n/2
(8)在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是
A)并B)交C)投影D)笛卡儿乘积
(9)在E—R图中,用来表示实体之间联系的图形是
A)矩形B)椭圆形C)菱形D)平行四边形
(10)下列叙述中错误的是
A)在数据库系统中,数据的物理结构必须与逻辑结构一致
B)数据库技术的根本目标是解决数据共享问题
C)数据库技术是指己有数据管理系统的基础上建立数据库
D)数据库系统需要操作系统的支持
(11)下面可以正确定义2个整形变量和1个字符串变量的语句的是
A)Dimn,mASInterger,sASStringB)Dima%,b$,cASString
C)DimaASInteger,b,cASStringD)Dimx%,yASInteger,zASString
(12)下列表述中不能判断x是否为偶数的是
A)x/2=Int(x/2)B)xMod2=0C)Fix(x/2)=x/2D)x\2=0
13)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是
A)窗体的Click事件过程的过程名是Myform_Click
B)命令按钮的Click事件过程名是C1_Click
C)命令按钮的Click事件过程的过程名是Command1_Click
(14)设窗体上有1个滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是
A)MaxB)MinC)SmallChangeD)LargeChang
(15)1个二维数组可以存放1个矩形.在程序开始有语句OptionBase0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是
A)Dima(-2To0,2)ASIntegerB)Dima(3,2)ASIngeger
C)Dima(4,3)ASIngegerD)Dima(-1To-4,-1To-3)ASIngeger
(16)若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是
A)8个”$”B)1个”$”C)8个”*”D)无任何内容
(17)设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是
A)Combo1.RemoveItemCombo1.TextB)Combo1.RemoveItem4
C)Combo1.RemoveItemCombo1.ListCountD)Combo1.RemoveItem5
(18)工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是
A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()
Form2.ShowForm2.Visible
EndSubEndSub
C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()
LoadForm2Form2.Load
(19)若在某窗体模块中有如下事件过程
PrivateSubCommand1_Click(IndexASInteger)
……
EndSub
则以下叙述中正确的是
A)此事件过程与不带参数的事件过程没有区别
B)有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C)有1个名称为Command1的空件数组,数组中有多个不同类型控件
D)有1个名称为Command1的空件数组,数组中有多个相同类型控件
(20)以下循环语句中在任何情况下都至少执行一次循环体的是
A)DoWhile<
条件>
B)While<
循环体循环体
LoopWend
C)DoD)DoUntil<
LoopUntil<
Loop
(21)在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是
A)Cd1.Action=2B)Cd1.Action=1
C)Cd1.ShowSave=TureD)Cd1.ShowSave=0
(22)下面关于菜单的叙述中错误的是
A)各级菜单中的所有菜单项的名称必须唯一
B)同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同
C)弹出式菜单也用菜单编辑器编辑
(23)已知有下面的过程
PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)
正确调用此过程的语句是
A)Callprocl(5)B)Callproc15,”abc”,False
C)proc1(12,”abc”,True)D)proc15,“abc”
(24)在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。
下面能够正确实现上述功能的程序是
A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()
Text1.Left=100Text1.Left=Text1.Left-100
EndSubEndSub
C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()
Text1.Move.Text.Left+100Text1.Move.Text.Left
(25)某人创建了1个工程,其中的窗体名称为Form1;
之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是
A)在工程属性对话框中把“启动对象”设置为Form2
B)在Form1的Load事件过程中加入语句LoadForm2
C)在Form2的Load事件过程中加入语句Form2.Show
D)在Form2的TabIndex属性设置为1,把Form1的TabIndex属性设置为2
(26)窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。
要求程序运行时,单击命令按钮,就可以把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。
下面能够实现上述功能的程序是
A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()
Open“out.txt”ForInpitAs#1Open“out.txt”ForOutpitAs#1
Print#1,Text1.TextPrint#1,Text1.Text
Close#1Close#1
C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()
Open“out.txt”ForAppendAs#1Open“out.txt”ForRandomAs#1
Close#1 Close#1
(27)为计算1+3+5+……+99的值,某人编程如下
k=1
s=0
Whilek<
=99
k=k+2:
s=s+k
Wend
Prints
在调试时发现运行结果有错误,需要修改。
下列错误原因和修改方案中正确的是
A)While…Wend循环语句错误,应改为Fork=1To99…Nextk
B)循环条件错误,应改为Whliek<
99
C)循环前的赋值语句k=1错误,应改为k=0
D)循环中两条赋值语句的顺序错误,应改为s=s+k:
k=k+2
(28)下面程序在调试时出现了死循环
PrivateSubCommand1_Click()
n=InputBox(“请输入一个整数”)
Do
IfnMod2=0Then
n=n+1
Else
n=n+2
ElseIf
LoopUntiln=1000
下面关于死循环的叙述中正确的是
A)只有输入的n是偶数时才会出现死循环,否则不会
B)只有输入的n是奇数时才会出现死循环,否则不会
C)只有输入的n是大于1000的整数时才会出现死循环,否则不会
D)输入任何整数都会出现死循环
(29)在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。
要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入了1个文件名后,就可以打开该文件。
以下是Command1_Click事件过程的两种算法
算法1:
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
算法2:
IfCommonDialog1.FileName<
>
””Then
EndIf
下面关于这两种算法的叙述中正确的是
A)显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B)显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C)两种算法的执行结果完全一样
D)算法1允许输入的文件名中含有空格,而算法2不允许
(30)窗体上有1个名称为List的列表框,其中已经输入了若干个项目(如图所示):
还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序
DimstrAsString,sAsString,kAsInteger
s=Text1
Str=””
Fork=List1.ListCount-1to0Step-1
IfInStr(List.List(k),s)>
0then
str=str&
List.List(k)&
””
Nextk
Ifstr=””Then
Text2=”没有匹配的项目”
Text2=str
程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是
A)京B)北京南京
C)南京D)没有匹配的项目
(31)在窗体上画1一个名称为Command1的命令按钮,并编写以下程序
Printfun(“ABCDEFG”)
Functionfun(stAsString)AsString
stlen=Len(st)
temp=””
Fork
fun=temp
EndFunction
程序运行时,单击命令按钮,则窗体上显示的是
A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED
(32)在窗体上先后画2个图片框,名称分别为Picture1和banana,banana中添加了香蕉图片(见图1),且将banana.DragMode属性设置为1。
要求程序运行时,可以用鼠标把banana拖拽到Picture1中(见图2)。
能实现此功能的事件过程是
A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)
EndSub
B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MovePicture1.Left+X.Picture1.Top+Y
C)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
D)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.Movebanana.Left+X,banana.Top+Y
(33)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程
OptionBase1
PribateSubCommand1_Click()
Dima(5.5)AsInteger
Fori=1To5
a(I,j)*5\10
Nextj
Nexti
S=0
Fori=1To5
S=s+a(i,i)
Nexti
程序运行后,单击命令按钮,输出结果是
A)15B)13C)11D)9
(34)在窗体上从左到右有Text1、Text2两个文本框(见图),要求程序运行时,在Text1中输入1个分数后按回车键,则判断分数的合法性,若分数为0~100中的1个数,周围光标移到Text2中;
否则光标不动,并弹出对话框显示“分数错”,下面程序中正确的是
A)PrivateSubText1__KeyPress(KeyAsciiASInteger)
IfKeyAscii=13Then‘回车符的ACSII码是13
a=Val(Text1)
Ifa>
=0ora<
=100Then
Text2.SetFocus
Text1.SetFocusMsgBox(“分数错”)
B)PrivateSubText1__KeyPress(KeyAsciiASInteger)
=0Anda<
Text1.SetFocus
Text2.SetFocusMsgBox(“分数错”)
C)PrivateSubText1__KeyPress(KeyAsciiASInteger)
Ifa<
0Anda>
100Then
D)PrivateSubText1__KeyPress(KeyAsciiASInteger)
(35)在窗体上画2个命令按钮,名称分别为Command1、command2,并编写如下程序
Constn=5,m=4
Dima(m,n)
K=1
Fori=1Tom
Forj=1Ton
a(i,j)=k
k=k+1
Nextj
PrivateSubCommand2_Click()
Summ=0
Ifi=1Ori=mThen
Summ=summ+a(i,j)
Ifj=IOrj=nThen
Printsumm
过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵;
过程Command2_Click()的作用是
A)计算矩阵外围一圈元素的累加和
B)计算矩阵除外一圈以外的所有元素的累加和
C)计算矩阵第1列和最后一列元素的累加和
D)计算矩阵第1行和最后一行元素的累加和
二、填空题(每空2分,共30分)
请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上,答在试卷上,答在试卷上不得分,
注意:
以命令关键字填空的必须写完整
(1)在深度为7的满二叉树中,度为2的结点个数为__________。
(2)软件测试分为白箱(盒)测试和黑箱(盒)测试,等价类划分法属于___________测试。
(3)在数据库系统中,实现各种数据管理功能的核心软件称为数据库管理系统__________
(4)软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和维护阶段。
编码和测试属于_____阶段。
(5)在结构化分析使用的数据流图(DFD)中,利用_____对其中的图形元素进行确切解释。
(6)1++++…….n的最大的n。
请填空
PrivateSubCommand1__Click()
Dims,m,nASInteger
m=Val(InputBox(“请输入一个大于100的整数”))
n=______________
DoWhilesN=n+1
S=s+n*n
Loop
Print“满足不等式的最大n是____________
(7)下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。
请填空。
DimincharASString,tempASString,outcharASString
Outchar=””
Open=”file1.txt”ForInputAS#1
Open=”file2.txt”ForOutputAS_________
n=LOF(__________)
inchar=Input$(n,1)
Fork=1Ton
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)=_________Then
outchar=outchar&
temp
print#2,______________
close#2
close#1
(8)在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为0∽3(见图1)。
在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。
要求在程序执行时,鼠标单击1个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。
图2是单击“第3季度”单选按钮产生的结果。
Dimsales(12)AsLong
PrivateSubForm__Load()
open“sales.txt”ForInputAS#1
Fork=1To12
Input#1,sales(k)
Close#1
PrivateSub___________(Index,ASInteger)
DimsumASLong,kASIngeger,monthASIngeger
sum=0
month=Index*____________
Fork=1To3
month=month+1
sum=sum+sales(month)
Label1.Caption=Opl(Index).________________&
“销售总额:
”
Text1=sum
(9)某人编写如下函数来判断a是否为素数,若是,则函数返回True;
否则返回False
FunctionPrime(aAsInteger)ASBoolean
DimkAsInterger,isprimeAS
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VB