最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx
《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx》由会员分享，可在线阅读，更多相关《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx（13页珍藏版）》请在冰豆网上搜索。
最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2
全国高等学校（安徽考区）
计算机水平考试试卷
（二级VisualBasic语言）
一、单项选择题（每题1分，共40分）
1．计算机硬件系统中最核心的部件是C。
A）内存储器B）输入/输出设备C）CPUD）硬盘
2．计算机最早的应用领域是A。
A）科学计算B）图形处理C）过程控制D）人工智能
3．下列属于文字处理软件的是B。
A）WindowsB）WordC）PowerPointD）Excel
4．在计算机系统内部，所有数据都是采用D表示。
A）十六进制B）十进制C）八进制D）二进制
5．在Windows系统中，下面文件命名合法的是B。
A）A*.DOCB）AB.DOCC）A?
.DOCD）A>.DOC
6．计算机可以播放DVD等音像制品,主要运用的是6技术。
A）多媒体B）人工智能C）数据库D）数据挖掘
7．将文件从FTP服务器传输到本地计算机的过程称为D
A）上传B）浏览C）查找D）下载
8．下列IP地址中，错误的是C。
A）219.231.10.155B）192.168.5.1
C）219.260.20.12D）192.10.6.7
9．下列关于计算机病毒的叙述中，正确的是C。
A）加密文件不会感染计算机病毒
B）系统软件不会感染计算机病毒
C）有防火墙的计算机系统也会感染病毒
D）压缩的文件不会感染计算机病毒
10．计算机能直接运行的是B。
A）目标程序B）机器语言程序C）汇编语言程序D）高级语言程序
11．下列选项中是VisualBasic的合法变量名的是C。
A）1_abcB）abc-1C）abc_1D）abc.1
12．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是C。
A）X/Y=Int（X/Y）B）XModY=0
C）X\Y=Fix（X/Y）D）X\Y=X/Y
13．下面可以正确定义2个整形变量和一个字符型变量的语句是B。
A）Dimx,yAsInteger,nAsStringB）Dimx%,yAsInteger,nAsString
C）Dimx%,y$,nAsStringD）DimxAsInteger,y,nAsString
14．下面表达式中，A的运算结果与其他三个不同。
A）Exp（-3.5）B）Int（-3.5）+0.5C）-Abs（-3.5）D）Sgn（-3.5）-2.5
15．将任意一个正的两位整数N的个位数与十位数对换的表达式为A。
A）（N-Int（N/10）*10）*10+Int（N/10）B）N-Int（N）/10*10+Int（N）/10
C）Int（N/10）+（N-Int（N/10））D）（N-Int（N/10））*10+Int（N/10）
16．执行语句s=Mid（"VisualBasic",1,6）后，s的值是A。
A）VisualB）BasicC）6D）11
17．表达式5Mod3+3\5*2的值是B。
A）0B）2C）4D）6
18．选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表示该条件的表达式为C。
A）S="女"AndT>=1.6AndW<=62.5B）S="女"OrT>1.7OrW<62.5
C）S="女"AndT>1.6AndW<62.5D）S="女"OrT<=1.7OrW>=62.5
19．可以强行中断程序运行的操作是D
A）按Ctrl+C键B）按Ctrl+Z键
C）按Ctrl+V键D）按Ctrl+Break键
20．在默认条件下有数组声明语句：
DimA（2,-2to2,3），则数组A包含D个元素。
A）200B）120C）75D）60
21．已设置数组元素下标从1开始，下列程序段运行时会提示出错，出错的原因是C。
a=Array（1,2,3,4）
Fori=4To1Step-1
Printa（i）
Nexti
Printa（i）
A）第三行，数组元素a（i）下标越界B）第一行，数组没定义，不能直接赋值
C）第五行，数组元素a（i）下标越界D）第二行，循环语句格式不对
22．下列语句不合法的是D。
A）x=1:
y=2B）Printx;y;C）Printx,y,D）x=1;y=2
23．当0A）If0C）If024．以下叙述中正确的是A。
A）窗体的Name属性指定窗体的名称，用来标识一个窗体
B）窗体的Name属性值是显示在窗体标题栏中的文本
C）可以在运行期间改变对象的Name属性值
D）对象的Name属性值可以为空
25．当启动程序时，系统自动执行启动窗体的A事件过程。
A）LoadB）UnloadC）ClickD）DblClick
26．将数据项"China"添加到列表框List1中成为第3项，应使用B语句。
A）List1.AddItem"China"，3B）List1.AddItem"China"，2
C）List1.AddItem3，"China"D）List1.AddItem2，"China"
27．若要使标签框的大小自动与所显示的文本相适应，则可通过设置其A属性值为True来实现。
A）AutoSizeB）AlignmentC）AppearanceD）Visible
28．复选框或单选按钮的当前状态通过A属性来设置或访问。
A）ValueB）CheckedC）SelectedD）Caption
29．要将列表框List1中当前选中的一项删除，应执行的语句是D。
A）List1.Clear
B）list1.ClearList1.ListIndex
C）List1.DeleteList1.ListIndex
D）List1.RemoveItemList1.ListIndex
30．下列控件可以用作其他控件容器的有D。
A）窗体，标签，图片框B）窗体，框架，文本框
C）窗体，图像，列表框D）窗体，框架，图片框
31．因修改文本框的内容而触发的事件是A。
A）ChangeB）GotFocusC）LostFocusD）SetFocus
32．如果每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为C。
A）1B）10C）100D）1000
33．下列对象中不能获得焦点的是B。
A）命令按钮控件B）标签控件C）文本框控件D）单选按钮控件
34．设x=4，y=8，z=7，表达式xz）OrzA）1B）-1C）TrueD）False
35．在设计阶段，双击窗体Form1的空白处，则在代码窗口打开B事件过程代码。
A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload
36．如下有一段不完整的程序段，若要求该程序执行3次循环，则在程序中的空白处填入
A。
X=1
Do
x=x+3:
Printx
LoopUntil
A）x>=8B）x<=8C）x>=7D）x<=7
37．执行语句Open"D:
\RandFile.dat"ForOutputAs#1后，对文件“D:
\RandFile.dat”能够进行的操作是B。
A）只能读不能写B）只能写不能读
C）既可以写，也可以读D）既不能读，也不能写
38．要在运行时暂时关闭计时器，可通过赋值语句使计时器的C属性值为False。
A）IndexB）TagC）EnableD）Interval
39．VisualBasic中数据库的访问技术不包括D。
A）ADOB）DAOC）RDOD）DBMS
40．下列关于菜单的论述中，错误的是D
A）菜单项是控件，也具有属性
B）菜单项只有Click事件
C）不能在顶层菜单加快捷键
D）在程序运行过程中，不能通过赋值语句设置菜单项的属性
二、填空题（每空2分，共20分）
1.数学表达式
的VisualBasic表达式是：
（1）。
2.关系式-7.5≤x≤7.5所对应的逻辑表达式是：
（2）。
3.以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。
PrivateSubCommand1_Click（）
y=Val（InputBox（"请输入一个年份"））
If（3）OryMod400=0Then
PrintStr（y）&"年是闰年！
"
Else
PrintStr（y）&"年不是闰年！
"
EndIf
EndSub
4.利用随机函数产生20个[10,90]之间的随机整数，每行输出4个整数。
填空完成以下程序。
PrivateSubForm_Click（）
DimsumAsInteger,xAsInteger
Randomize
Fori=1To20
x=（4）'用随机函数产生[10~90]之间的整数
Printx;
If（5）ThenPrint'满足换行条件时换行
Nexti
EndSub
5.下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。
PrivateSubCommand1_Click（）
Dimarr1asVariant,MaxAsInteger
arr1=Array（12,34,10,78,4,89,45）
Max=arr1（0）
Fori=1To（6）
Ifarr1（i）>MaxThen
Max=（7）
Endif
Nexti
Print"最大值是：
";Max
EndSub
6.下列程序的功能是计算
（N是偶数），试填空完成以下程序。
PrivateSubCommand2_Click（）
DimSAsDouble
DimIAsInteger,NAsInteger
DimCAsInteger
S=0:
I=1:
C=1
N=Val（InputBox（"请输入大于零的偶数N：
"））
Do
S=S+C*I*I
C=（8）'正负号切换
I=（9）'循环变量增加
LoopWhile（10）'循环结束条件
EndSub
三、阅读理解题（每小题4分，共20分）
1．执行下列程序后，输出的结果是：
（1）
PrivateSubForm_Click（）
DimxAsInteger
x=10
SelectCasex
CaseIs>=10
Printx&x
Case7,8,9
Printx+x
Case0To6
Printx
EndSelect
EndSub
2．执行下列程序后，输出的结果是：
（2）
PrivateSubForm_Click（）
DimiAsInteger
DimtAsString
st=""
Fori=1To12'字符串逐字符处理
IfiMod3=0Then
st=Mid（"VisualBasic",i,1）+st
EndIf
Nexti
Printst
EndSub
3．执行下列程序后，输出的结果是：
（3）
PrivateSubForm_Click（）
DimsAsInteger,nAsInteger
s=0
n=1
Do
s=s+n*n
Ifs>50Then
ExitDo'强制跳出循环
EndIf
n=n+1'循环变量自增
LoopUntiln>6
Prints
EndSub
4．执行下列程序后，输出的结果是：
（4）
OptionBase1
PrivateSubForm_Click（）
Dima（4,4）AsInteger
DimiAsInteger,jAsInteger
DimcountAsInteger,sAsInteger
count=1
Fori=1To4'给二维数组赋值并累加特殊位置的元素值
Forj=1To4
a（i,j）=count
count=count+1
Ifi=1Ori=4Orj=1Orj=4Then
s=s+a（i,j）
EndIf
Nextj
Nexti
Prints
EndSub
5．执行下列程序后，E盘下tdata.txt文件中的内容是：
（5）
PrivateSubForm_Click（）
Fori=1To5
s=s+fun（i）
Nexti
Open"e:
\tdata.txt"ForOutputAs#1'打开顺序文件
Print#1,s
Close#1
EndSub
PrivateFunctionfun（ByValiAsInteger）AsInteger
Statica
a=a+1
fun=a*i
EndFunction
四、编程题（共20分）
1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）
2．编写程序，利用随机函数产生10个[10，100]之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。
（7分）
3．假定在E盘下有一文件data.dat，其内容为三个点的坐标，内容样式如下
4,8
2,6
3,8
每一行的前1个数据表示点的横坐标x，后一个数据表示点的纵坐标y。
编写程序读取文件中的数据，并判断该三点能否构成三角形。
（7分）
提示：
利用任意两边之和大于第三边来判定三角形。
边长L=
，其中（x1,y1）及（x2,y2）为两点坐标。
《VisualBASIC程序设计（语种代号：
211）》（B）卷
参考答案及评分标准
一、单项选择题（每题1分，共40分）
1-5
CABDB
6-10
ADCCB
11-15
CCBAA
16-20
ABCDD
21-25
CDCAA
26-30
BAADD
31-35
ACBDB
36-40
ABCDD
二、填空题（每空2分，共20分）
1
（x+y）^3*（t+u）^2/t/（x-y）
6
6
2
x<=7.5andx>=-7.5
7
arr1（i）
3
ymod4=0andymod100<>0
8
-1*C
4
Int（81*rnd）+10
9
I+1
5
imod4=0
10
I<=N
说明：
不区分大小写，其他答案只要正确参照给分。
三、阅读理解题（每小题4分，共20分）
序号
参考答案
评分标准
1
1010
2
cals
3
55
4
102
5
30
注：
其他情况酌情给分
四、编程题（共20分）
序号
参考程序
评分标准
1
参考程序1：
PrivateFunctionFUN（ByValxAsSingle）AsSingle
DimyAsSingle
Ifx<0Then
y=-x
ElseIfx<=10Then
y=x*x
Else
y=100
EndIf
FUN=y
EndFunction
程序正确得6分，其中：
Function函数格式正确得2分
IF语句正确（使用IF嵌套及Select语句正确）得2分
函数值返回正确得2分
2
参考程序1：
Dima（9）AsInteger
DimiAsInteger,maxAsInteger,minAsInteger
Fori=0To9
a（i）=Int（Rnd*91）+10
Nexti
max=-1：
min=999
Fori=0To9
IfmaxIfmin>a（i）Thenmin=a（i）
Nexti
Print"最大及最小数之差为";max-min
参考程序2：
（排序计算）
Dima（9）AsInteger
DimiAsInteger,maxAsInteger,minAsInteger
Fori=0To9
a（i）=Int（Rnd*91）+10
Nexti
Fori=0To8
Forj=i+1To9
Ifa（i）tem=a（i）：
a（i）=a（j）：
a（j）=tem
EndIf
Nextj
Nexti
Print"最大及最小数之差为";a（0）-a（9）
程序正确得7分，其中：
数组定义正确得1分
随机数产生正确得2分
最大数及最小数查找判断正确得2分
有输出语句并结果正确得2分
数组定义正确1分
随机数产生正确2分
排序正确2分
结果正确2分
3
参考程序1：
Dims（2,1）AsInteger
Diml1AsSingle,l2AsSingle,l3AsSingle
Open"e:
\a.txt"ForInputAs#1
Fori=0To2
Input#1,s（i,0）,s（i,1）
Nexti
Close#1
l1=Sqr（（s（0,0）-s（1,0））^2+（s（0,1）-s（1,1））^2）
l2=Sqr（（s（0,0）-s（2,0））^2+（s（0,1）-s（2,1））^2）
l3=Sqr（（s（1,0）-s（2,0））^2+（s（1,1）-s（2,1））^2）
Ifl1+l2>l3Andl2+l3>l1Andl1+l3>l2Then
MsgBox（"文件中三点能构成三角形"）
Else
MsgBox（"文件中三点不能构成三角形"）
EndIf
程序正确得7分，其中：
正确使用文件打开语句得2分
文件数据正确读取得2分
求边长表达式正确得1分
三角形判定表达式正确得1分
输出语句正确使用得1分
注：
其他解法可参照给分
升级会员 