全国计算机等级VB考试笔试部分Word文档格式.docx
《全国计算机等级VB考试笔试部分Word文档格式.docx》由会员分享，可在线阅读，更多相关《全国计算机等级VB考试笔试部分Word文档格式.docx（18页珍藏版）》请在冰豆网上搜索。
D、软件可行性研究的依据
9、下面属于墨盒测试的方法是
A、语句覆盖
B、逻辑覆盖
C、边界值分析
D、路径覆盖
10、下面不属于软件设计阶段任务的是
A、软件总体设计
B、算法设计
C、制定软件确认测试计划
D、数据库设计
11、以下叙述中错误的是
A、.vbp文件是工程文件，一个工程可以包含.bas文件
B、.frm文件是窗体文件，一个窗体可以包含.bas文件
C、.vbp文件是工程文件，一个工程可以由多个.frm文件组成
D、.vbg文件是工程组文件，一个工程组可以由多个工程组成
12、以下叙述中错误的是
A、在VisualBasic的窗体中，一个命令按钮是一个对象
B、事件是能够被对象识别的状态变化或动作
C、事件都是由用户的键盘操作或鼠标操作触发的
D、不同的对象可以具有相同的方法
13、设x=3.3，y=4.5，表达式x-Int（x）+Fix（y）的值是
A、3.5
B、4.8
C、4.3
D、4.7
14、窗体上有一个名称为Command1的命令按钮，其中部分代码如下：
PrivateSubCommand1_Click（）
Dima（10）AsInteger
DimnAsInteger
……
Callcalc（a,n）
……
EndSub
calc过程的的首行应该是
A、Subcalc（x（）AsInteger,nAsInteger）
B、PublicSubcalc（x（）AsInteger）
C、PrivateSubcalc（a（n）AsInteger,nAsInteger）
D、PublicSubcalc（aAsInteger,nAsInteger）
15、设有如下程序
Subf（xAsInteger，ByValyAsInteger）
x=2*x
y=y+x
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=6;
b=35
callf（a,b）
printa,b
程序运行后，单击命令按钮Command1，输出结果为
A、647
B、1247
C、635
D、1235
16、以下叙述中正确的是
A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中
B、在工程中只有启动窗体可以建立菜单
C、窗体名称必须与窗体文件的名称相同
D、程序一定是从某个窗体开始执行的
17、窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
StaticxAsVariant
n=0
x=array（1,2,3,4,5,6,7,8,9,10）
Whilen<
=4
x（n）=x/（n+5）
Printx（n）;
N=n+1
Wend
运行程序，单击命令按钮Command1，窗体上显示的是
A、12345
B、
C、23456
D、62345
18、窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：
PrivateSubCommand1_click（）
x=InputBox（“输入x:
”，，0）
y=InputBox（“输入y:
Label1.caption=x+y
运行程序后，单击命令按钮，在输入对话框中分别输入2，3，运行的结果是
A、程序运行有错误，数据类型不匹配
B、程序运行有错误，InputBox函数的格式不对
C、在Label1中显示5
D、在Label1中显示25
19、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。
窗体外观如图所示（从上到下的3个命令按钮下标分别为0、1、2）。
有事件过程如下：
PrivateSubcmdDraw_Click（IndexAsInteger）
SelectCaseIndex
Case0
Shape1.shape=0
Case1
Shape1.shape=1
Case2
Shape1.Shape=3
EndSelect
当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。
以下叙述中正确的是
A、Case2分支有错，此Case后面表达式的值应该与赋给Shape1.Shape的值一致
B、程序运行有错，控件数级别的下标应该从1开始
C、Index是形状控件的参数
D、程序正常运行，形状控件被显示为圆形
20、如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：
9632是降序数，而8156则不是降序数）。
现编写如下程序，判断输入的正整数是否为降序数。
DimnAsLong
DimflagAsBoolean
n=InputBox（“输入一个正整数”）
s=Trim（Str（n））
Fori=2ToLen（s）
IfMid（s,i-1,1）<
Mid（s,i,1）ThenExitFor
Nexti
Ifi=Len（s）Thenflag=TrueElseflag=False
IfflagThen
Printn;
“是降序数”
Else
“不是降序数”
EndIf
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改，以下正确的修改是
A、ifi=Len（s）+1Thenflag=FalseElseflag=True
B、ifi=Len（s）+1Thenflag=TrueElseflag=False
C、ifi=Len（s）-1Thenflag=FalseElseflag=True
D、ifi=Len（s）-1Thenflag=TrueElseflag=False
21、现有以下程序：
c1=0
c2=0
Fori=1To100
Ifimod3=0Then
c1=c1+1
ElseIfiMod7=0Then
c2=c2+1
EndIf
Next
Printc1+c2
此程序运行后输出的是在1~100范围内
A、同时能被3和7带队的整数个数
B、能被3或7整除的整数个数（同时被3和7整除的数只记一次）
C、能被3整除，而不能被7整除的整数个数
D、能被7整除，而不能被3整除的整数个数
22、设菜单编辑器中各菜单项的属性设置如下表所示：
序号
标题
名称
复选
有效
可见
内缩符号
1
File
√
无
2
Open
OpenFile
3
Save
SaveFile
4
Exit
EndOfAll
5
Help
ShowHelp
针对上述属性设置，以下叙述中错误的是
A、属性设置有错，存在“标题”与“名称”重名现象
B、运行程序，序号为“3”的菜单项不显示
C、运行程序，序号为“4”的菜单项不可用
D、运行程序，序号为“5”的菜单项前显示“√”
23、窗体上有一个名称为Command1的命令按钮，并有如下程序：
x=15
DoWhilex>
x=x-3
x=iif（int（x/5）=x/5,x+2,x）
loop
printx
A、0
B、-1
C、-2
D、-3
24、以下关于通用对话框中叙述中，错误的是
A、若没有指定InitDir属性值，则起始目录为当前目录
B、用一个通用对话框控件可以建立几种不同的对话框
C、FileTitle属性指明了文件对话框中所选择的文件名
D、文件对话框用属性FilterIndex指定默认过滤器，它是一个从0开始的整数
25、窗体上有一个名为Command1的命令按钮，并有如下程序：
PrivateCommand1_Click（）
DimmAsInteger,nAsInteger
m=InputBox（“输入第一个数”）
n=InputBox（“输入第二个数”）
DoWhilem<
>
n
DoWhilem>
m=m-n
Loop
DoWhilen>
m
n=n-m
Printm
该程序的功能是
A、求数值m和n的最大公约数
B、求数值m和n的最小公倍数
C、求数值m和n中的较大数
D、求数值m和n中的较小数
26、窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
n=add（5,10）
Printn
Functionadd（v1AsInteger,v2AsInteger,Optionalv3）AsInteger
IfNotIsMissing（V3）Then
add=v1+v2+v3
Else
add=v1+v2
EndFunction
运行程序，单击命令按钮，以下叙述中正确的是
A、程序不能正常运行，因为函数add的参数定义有错
B、程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C、程序能正常运行，结果是在窗体上显示15
D、程序能正常运行，结果是在窗体上显示510V3
27、目录列表框Path属性所表示的含义是
A、当前驱动器或指定驱动器上的路径
B、当前驱动器或指定驱动器上的某目录下的文件列表
C、根目录下的文件列表
D、指定路径下的文件列表
28、以下关于函数过程中叙述中错误的是
A、函数过程一定有返回值
B、函数过程一定有参数
C、函数过程可以在窗体模块和标准模块中定义
D、函数过程参数的类型与返回值的类型无关
29、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PublicEunms
a=4
b=3
EndEnum
DimxAsInteger
x=a
Ifx>
=3ThenMsgBox“Pass!
”
运行程序，其结果是
A、运行错误，因为Enum定义有错
B、运行错误，因为x=a类型不匹配
C、运行正常结束，不显示任何信息
D、运行正常，显示内容为“Pass！
”的信息框
30、设有如下程序
OptionBase1
PrivateSubForm_Click（）
Dima（5）AsString,iAsInteger
Fori=1To5
a（i）=Chr（Asc（“A”）+i）
Callf（a,i）
Nexti
Subf（ta（）AsString,nAsInteger）
DimiAsInteger
Fori=1To
Printta（i）;
对上述程序，以下叙述中正确的是
A、程序有错，因为在过程f的定义中数组参数格式不正确
B、程序可正常运行，输出内容的第一行是一个字母“A”
C、程序可正常运行，输出内容的第一行是一个字母“B”
D、程序可正常运行，输出内容的第一行是数字65
31、窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计时器控件，其Interval属性值为1000。
要求每隔5秒钟图片框右移100。
现编写程序如下：
PrivateSubTimer1_Timer（）
StaticnAsInteger
n=n+1
If（n/5）=Int（n/5）AndPicture1.Left<
Form1.WidthThen
Picture1.Left=Picture1.Left+100
分析以上程序，以下叙述中正确的是
A、程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次
B、此程序运行时图片框位置保持不动
C、此程序运行时图片框移动方向与题目要求相反
D、If语句条件中“Picture1.Left<
Form1.Width”用于限制图片框移动的范围
32、窗体上有一名称为Command1的命令按钮，其事件过程如下：
DimiAsInteger,jAsInteger,kAsInteger
DimsAsDouble
s=0;
i=1;
j=0;
k=-1
DoWhilei<
6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Prints
以上程序所计算的表达式是
A、1/2-2/3+3/4-4/5
B、-1/2+2/3-3/4+4/5
C、1-1/2+2/3-3/4+4/5
D、-1+1/2-2/3+3/4-4/5
33、窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Dima,b（2,3）AsInteger
a=Array（3,7,5,11,31,43,17,62,9,23,37,41）
i=0
=UBound（a）
Forj=0To2
Fork=0To3
B（j,k）=a（i）
Pritnb（2,2）
运行程序，窗体上显示的是
A、43
B、17
C、37
D、23
34、窗体上有一个名称为Command1的命令按钮，其事件过程如下：
DimsAsString
Open“c:
\File1.txt”ForInputAs#1
\File2.txt”ForOutputAs#2
DoWhileNotEOF
（1）
Input#1,s
Print#2,s
Close#1,#2
关于上述程序，以下叙述错误的是
A、程序把File1.txt文件的内容存放到File2.txt文件中
B、程序中打开了两个随机文件
C、程序中打开了两个顺序文件
D、“EOF
（1）”中的“1”对应于File1.txt文件
35、以下关于文件及相关操作的叙述中错误的是
A、以Append方式打开的文件可以进行读写操作
B、文件记录的各个字段的数据类型可以不同
C、随机文件各记录的长度是相同的
D、随机文件可以通过记录号直接访问文件中的指定记录。
二、填空题（每空2分，共30分）
1.一棵二叉树共有47个结点，其中有23个度为2的结点。
假设根结点在第1层，则该二叉树的深度为【1】
2.设栈的存储空间为S（1:
40），初始状态为bottom=0,top=0。
现经过一系列入栈与出栈运算后，top=20，则当前栈中有【2】个元素
3.数据独立性分为逻辑独立性和物理独立性。
当总体逻辑结构改变时，其局部逻辑结构可以不变，从而根据局部逻辑结构编写的应用程序不必修改，称为【3】
4.关系数据库中能实现的专门关系运算包括【4】、连接和投影
5.软件按功能通常可以分为应用软件、系统软件和支撑软件（或工具软件）。
UNIX操作系统属于【5】软件
6.窗体上有从左到右的4个单选按钮组成的控件数组Opt1,下标从0开始。
程序运行时，单击命令按钮“选择”（名称为Command1），则在标签Label1中显示所选中的信息，如图所示。
以下是完成上述功能的程序，请填空。
Fori=0To3
IfOpt（i）.Value=TrueThen
Callf（【6】）
Next
PrivateSubf（xAsControl）
Label1.Caption=”你选择的是：
”&
【7】.Caption
7.窗体上有一个名称为List1的列表框，列表框中有若干数据项，列表框的style属性为1;
有一个名称为Label2的标称；
还有一个名称为Command1,Caption属性为“计算”的命令按钮（见图）。
运行程序，在列表框中选中某些数据项后，单击命令按钮，则可以计算机所选数据之和，并将结果显示在标签Label2中。
以下是实现上述功能的程序，请填空。
s=0
Fori=0ToList1.ListCount-1
If【8】=TrueThen
s=s+【9】
Label2.Caption=【10】
8.以下程序的功能是从随机产生的20个20~200（含20和200）的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。
请填空。
Dima（20）AsInteger
m=0
Fori=1To20
a（i）=Int（Rnd*【11】）+20
Ifa（i）Mod3=0【12】a（i）Mod5=0Then
Ifa（i）>
mThenm=a（i）
Next
If【13】Then
Print“没有满足条件的数”
Print“满足条件的数是”;
9.在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值为False，Interval属性值设为100。
要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆。
其效果如图所示。
DimaAsInteger,bAsInteger
PrivateSubForm_【14】
（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
a=X
b=Y
Timer1.Enabled=【15】
PrivateSubTimer1_timer（）
Form1.Cirle（a,b）,100‘以（a,b）为圆心画一个半径为100的圆
答案
7
8
9
10
A
D
C
B
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
填空题：
1.6
2.20
3.逻辑独立性
4.选择
5.系统
6.Opt1（i）
7.X
8.List1.selected（i）
9.Val（List1.list（i））
10.Str（s）
11.181
12.And
13.m=0
14.MouseMove
15.true
升级会员 