资源描述
年3月世界打算机等级检验二级口试试卷
VisualBasic语言次第方案
〔检验时辰90分钟，总分值100分〕
一、 选择题〔每题2分，共70分〕
以下各题A〕、B〕、C〕、D〕四个选项中，只需一个选项是精确的，请将精确选项填涂在答题卡呼应位置上，答在试卷上不得分。
〔1〕以下关于栈表达精确的选项是A
A〕栈顶元素开场能被删除B〕栈顶元素最后才能被删除
C〕栈底元素永世不克不迭被删除D〕以上三种说法都差错
〔2〕以下表达中精确的选项是A
A〕有一个以上根结点的数据结构不用定是非线性结构
B〕只需一个根结点的数据结构不用定是线性结构
C〕循环链表是非线性结构
D〕双向链表是非线性结构
〔3〕某二叉树共有7个结点，其中叶子结点只需1个，那么该二叉树的深度为〔假定根结点在第1层〕D
A〕3B〕4 C〕6D〕7
〔4〕在软件开拓中，需求分析阶段发作的要紧文档是D
A〕软件集成测试方案B〕软件详细方案说明书
C〕用户手册D〕软件需求规格说明书
〔5〕结构化次第所恳求的全然结构不包括B
A〕次第结构B〕GOTO跳转
C〕选择〔分支〕结构D〕重复〔循环〕结构
〔6〕上面描画中差错的选项是6-10B
A〕系统总体结构图支持软件系统的详细方案
B〕软件方案是将软件需求转换为软件表示的过程
C〕数据结构与数据库方案是软件方案的任务之一
D〕PAD图是软件详细方案的表示货色
〔7〕担负数据库中查咨询把持的数据库语言是C
A〕数据定义语言B〕数据管理语言C〕数据把持语言D〕数据把持语言
〔8〕一个教师可解说多门课程，一门课程可由多个教师解说，那么实体教师跟课程间的联系是D
A〕1:1联系B〕1：m联系C〕m：1联系D〕m：n联系
〔9〕有三个关系R、S跟T如下：
RST
C
1
A
B
C
A
1
2
B
2
1
C
3
1
A
B
c
3
那么由关系R跟S失落失落关系T的把持是C
A〕自然连接B〕交C〕除D〕并
〔10〕定义无标志整数类为UInt，上面可以作为类UInt实例化值的是B
A〕-369B〕369 C〕0.369D〕整数聚拢{1，2，3，4，5}
〔11〕在VisualBasic集成状况中，可以列出工程中所有模块名称的窗口是A
A〕工程资源管理器窗口B〕窗体方案窗口
C〕属性窗口D〕代码窗口
〔12〕假定编写了如下4个窗体状况的状况过程，那么运行应用次第并表示窗体后，已经实行的状况过程是A
A〕LoadB〕ClickC〕LostFocusD〕KeyPress
(13)为了使标签存在“透明〞的表示结果，需求设置的属性是C
A)CaptionB)AlignmentC)BackStyleD)AutoSize
〔14〕上面可以发作20-30〔含20跟30〕的随机整数的表达式是B
A)Int〔Rnd*10+20〕B)Int〔Rnd*11+20〕
C)Int〔Rnd*20+30〕D)Int〔Rnd*30+20〕
〔15〕设窗体上有一个名称为HS1的水平滚动条，假定实行了语句：C
HS1.Value=〔HS1.Max-HS1.Min〕/2+HS1.Min那么
A〕滚动块处于最左端
B〕滚动块处于最右端
C〕滚动块处于中间位置
D〕滚动块可以处于任何位置，详细位置取决于Max、Min属性的值
（16） 窗体上有一个名称为Cb1的组合框，次第运行后，为了输出选中的列表项，应应用的语句是B
（17） A〕PrintCb1.Selected
B〕PrintCb1.List(Cb1.ListIndex)
D〕PrintCb1.List(ListIndex)
(17)为了在窗体上树破2组单项选择按钮，同时当次第运行时，每组都可以有一个单项选择按钮被选中，那么以下做法中精确的选项是D
A)把这2组单项选择按钮设置为名称差异的2个控件数组
B)使2组单项选择按钮的Index属性分不一样
C)使2组单项选择按钮的名称分不一样
D)使2组单项选择按钮分不画到2个差异的框架中
〔18〕假定一个直线控件在窗体上呈现为一条垂直线，那么可以判定的是B
A〕它的Y1、Y2属性的值相当
B〕它的X1、X2属性的值相当
C〕它的X1、Y1属性的值分不与X2、Y2属性的值相当
D〕它的X1、X2属性的值分不与Y1、Y2属性的值相当
〔19〕设a=2,b=3,c=4,d=5,那么上面语句的输出是A
Print3>2*bOra=cAndb<>cOrc>d
A)False
B)1
C)True
D)-1
(20)窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击状况的状况过程是A
A)PrivateSubForm1_Click()
…
EndSub
B)PrivateSubForm_Click()
…
EndSub
C)PrivateSubCommand1_Click()
…
EndSub
D)PrivateSubCommand_Click()
…
EndSub
(21)默认状况下，上面声明的数组的元素个数是D
Dima〔5，-2to2〕
A〕20
B〕24
C〕25
D〕30
〔22〕设有如下次第段
Dima(10)
……
ForEachxIna
Printx;
Nextx
在上面的次第段中，变量x必须是B
A)整型变量B〕变体型变量C〕静态数组D)静态数组
〔23〕设有以下函数过程
PrivateFunctionFun(a()AsIntegerAsString)AsInteger
…
EndFunctionA
假定已有变量声明：
Dimx(5)AsInteger,nAsInteger,chAsString
那么上面精确的过程调用语句是A
A)x(0)=Fun(x,“ch〞)B)n=Fun(n,ch)
C)CallFunx,“ch〞D)n=Fun(x(5),ch)
(24)假定用上面的语句打开文件：C
Open“Filel.txt〞ForInputAS#1
那么不克不迭精确读文件的语句是
A)Input#1，ch$B)LineInput#1，ch$
C)ch$=Input$(5,#1)D)Read#1,ch$
(25)上面次第实行结果是D
PrivateSubCommand1_Click〔〕
a=10
Fork=1To5Step-1
A=a-k
Nestk
Printa;k
EndSub
A)-56B)-5-5 C)100D)101
〔26〕设窗体上有一个名为Text1的文体框跟一个名为Command1的命令按钮，并有以下状况过程：
PrivateSubCommand1_Click()
X!=Val(Text1.Text)
SelectCasex
CaseIs<-10,Is>=20
Print“输出差错〞
CaseIs<0
Print20-x
CaseIs<10
Print20
CaseIs<=20
Printx+10
EndSelect
EndSub
次第运行时，假定在文本框中输出-5，那么单击命令按钮后的输出结果是C
A)5B)20 C)25D)输出差错
〔27〕设有如下次第
PrivateSubCommand1_Click()
X=10:y=0
Fori=1To5
Do
x=x-2
y=y+2
LoopUnti1y>5Orx<-1
Next
EndSub
运行次第，其中Do循环实行的次数是C
A)15B)10 C)7D)3
〔28〕阅读次第
PrivateSubCommand1_Click
Dimarr
DimiAsInteger
Arr=Array(0,1,2,3,4,5,6,7,8,9,10)
Fori=0To2
Printarr〔7–i〕;
Next
EndSub
次第运行后，窗体上表示的是：B
A)876B)765
C)654D)543
〔29〕在窗体上画一个名为Command1的命令按钮，然后编写以下次第：
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fork=10TO1Step-1
a〔k〕=20-2*k
Nextk
K=k+7
Printa(k-a(k))
EndSub
运行次第，单击命令按钮，输出结果是A
A)18B)12 C)8D)6
(30)窗体上有一个名为Command1的命令按钮，并有如下次第：
PrivateSubCommand1_Click()
Dima(10),x%
Fork=1To10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod2
Nextk
Printx
EndSub
次第运行后，单击命令按钮，输出结果是：A
A)10个数中奇数的个数B)10个数中偶数的个数
C)10个数中奇数的累加跟D)10个数中偶数的累加跟
(31)窗体上有一个名为Command1的命令按钮跟一个名为Timer1的计时器，并有上面的状况过程：
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubForm_Load()
Timer1.Interval=10
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Command1.Left=Command1.Left+10
EndSub
次第运行时，单击命令按钮，那么发作的结果是D
A) 命令按钮每10秒向左移动一次
B) 命令按钮每10秒向右移动一次
C) 命令按钮每10毫秒向左移动一次
D) 命令按钮每10毫秒向右移动一次
〔32〕设窗体上有一个名为List1的列表框，并编写上面的状况过程：C
PrivateSubList1_Click()
DimchASString
ch=List1.List(List1.ListIndex)
List1.RemoveItemList1.ListIndex
List1.AddItemch
EndSub
次第运行时，单击一个列表项，那么发作的结果是
A)该列表项被移到列表的最后面B)该列表项被删除
C)该列表项被移到列表的最后面D)该列表项被删除后又在原位置拔出
〔33〕窗体上有一个名为Command1的命令按钮，并有如下次第：
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=8
b=12
PrintFun(a,b);a;b
EndSub
PrivateFunctionFun(ByValaAsInteger,bAsInteger)AsInteger
a=aMod5
b=b\5
Fun=a
EndFunction
次第运行时，单击命令按钮，那么输出结果是B
A〕332
B〕382
C〕8812
D〕3812
〔34〕为了从当前文件夹中读入文件File1.txt，某人编写了上面的次第：
PrivateSubCommand1_Click()
Open"File1.txt"ForOutputAs#20
DoWhileNotEOF(20)
LineInput#20,ch$
Printch
Loop
EndSub
次第调试时，觉察有差错，上面的修改方案中精确的选项是D
A〕在Open语句中的文件名前添加道路
B〕把次第中各处的“20”改为“1”
C〕把Printch语句改为Print#20,ch
D〕把Open语句中的Output改为Input
〔35〕以下次第运行后的窗体如以下列图，其中组合框的名称是Combo1，已有列表项如以下列图；命令按钮的名称是Command1。
PrivateSubCommand1_Click()
IfNotcheck(Combo1.Text)Then
MsgBox("输出差错")
ExitSub
EndIf
Fork=0ToCombo1.ListCount-1
IfCombo1.Text=Combo1.List(k)Then
MsgBox("添加工程失落败")
ExitSub
EndIf
Nextk
Combo1.AddItemCombo1.Text
MsgBox("添加工程成功")
EndSub
PrivateFunctionCheck(chAsString)AsBoolean
n=Len(ch)
Fork=1Ton
c$=UCase(Mid(ch,k,1))
Ifc<"A"Orc>"Z"Then
Check=False
ExitFunction
EndIf
Nextk
Check=True
EndFunction
次第运行时，假定在组合框的编辑区中输出“Java〞,那么单击命令按钮后发作的结果是B
A〕表示“输出差错〞
B〕表示“添加工程失落败〞
C〕表示“添加工程成功〞
D〕不任何表示
二、填空题〔每空2分，共30分〕
请将每空的精确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。
〔1〕有序线性表能停顿二分查寻的前提是该线性表必须是次第存储的。
〔2〕一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，那么后序遍历结果为DEBFCA
〔3〕对软件方案的最小单元〔模块或次第单元〕停顿的测试素日称为单元测试。
〔4〕实体残缺性约束恳求关系数据库中元组的主键属性值不克不迭为空。
〔5〕在关系A〔S,SN,D〕跟关系B〔D，CN，NM〕中，A的要紧害字是S，B的要紧害字是D，那么称D是关系A的外码。
〔6〕在窗体上有1个名称为Command1的命令按钮，并有如下状况过程跟函数过程：
PrivateSubCommand1_Click()
DimpAsInteger
p=m(1)+m(2)+m(3)
Printp
EndSub
PrivateFunctionm(nAsInteger)AsInteger
StaticsAsInteger
Fork=1Ton
s=s+1
Next
m=s
EndFunction
运行次第，单击命令按钮Command1后的输出结果为10。
〔7〕在窗体上画1个名称为Command1的命令按钮，然后编写如下次第：
PrivateSubCommand1_Click()
DimmAsInteger,xAsInteger
DimflagAsBoolean
flag=False
n=Val(Intputbox("请输出任意1个正整数"))
DoWhileNotflag
a=2
flag=Ture
DoWhileflagAnda<=Int(Sqr(n))
Ifn/a=n\aThen
flag=False
Else
a=a+1
EndIf
Loop
IfNotflagThenn=n+1
Loop
Print_n_
EndSub
上述次第的功能是，当在键盘输出任意的1个正整数时，将输出不小于该整数的最小素数。请填空完满次第。
〔8〕以下次第的功能是，先将随机发作的10个差异的整数放入数组a中，再将这10个数按升序办法输出。请填空。
PrivateSubForm_Click()
Dima(10)AsInteger,iAsInteger
Randomize
i=0
Do
num=Int(Rnd*90)+10
Forj=1ToI’检查新发作的随机数是否与平常的一样，一样的无效
Ifnum=a(j)Then
ExitFor
EndIf
Nextj
Ifj>iThen
i=i+1
a(i)=【num】
EndIf
LoopWhilei<10
Fori=1To9
Forj=【i】To10
ifa(i)>a(j)thentemp=a(i),a(i)=a(j);【a(j)=temp】
Nextj
Nexti
Fori=1To10
Printa(i)
Nexti
EndSub
〔9〕窗体上已有名称分不为Drive1、Dir1、File1的驱动器列表框、目录列表框跟文件列表框，且有1个名称为Text1的文本框。以下次第的功能是：将指定位置中扩展名为“.txt〞的文件表示在File1中，假定双击File1中某个文件，那么在Text1中表示该文件的内容。请填空。
PrivateSubForm_Load()
File1.Pattern=【〞*.txt|*.txt〞】
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubFile1_DblClick()
DimsAsString*1
IfRight(File1.Path,1)="\"Then
f_name=File1.Path+File1.FileName
Else
f_name=File1.Path+"\"+File1.FileName
EndIf
Openf_name【forinput】As#1
Text1.Text=""
DoWhile【noteof(1)】
s=Input(1,#1)
Text1.Text=Text1.Text+s
Loop
Close#1
EndSub
年世界打算机等级检验二级VB参考答案
选择题：
1-5AADDB
6-10BCDCB
11-15AACBC
16-20BDBAA
21-25DBACD
26-30CCBAA
31-35DCBDB
填空题
1、次第2、DEBFCA3、单元4、主键5、D
6、107、Ture8、a=a+19、n10、num
11、i12、a(j)=temp13、〞*.txt|*.txt〞
14、forinput15、noteof(1)
展开阅读全文
浙ICP备2021020529号-1 | 浙B2-20240490 
