最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx
《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx》由会员分享,可在线阅读,更多相关《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx(13页珍藏版)》请在冰豆网上搜索。
![最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2.docx](https://file1.bdocx.com/fileroot1/2023-1/5/61dfceea-1ae3-4143-a61a-e14b7e2e4b96/61dfceea-1ae3-4143-a61a-e14b7e2e4b961.gif)
最新考试中心安徽省计算机二级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分
注:
其他解法可参照给分