考试中心安徽省计算机二级笔试权威模拟试题及答案Word格式文档下载.doc
- 文档编号:4614912
- 上传时间:2023-05-03
- 格式:DOC
- 页数:8
- 大小:72KB
考试中心安徽省计算机二级笔试权威模拟试题及答案Word格式文档下载.doc
《考试中心安徽省计算机二级笔试权威模拟试题及答案Word格式文档下载.doc》由会员分享,可在线阅读,更多相关《考试中心安徽省计算机二级笔试权威模拟试题及答案Word格式文档下载.doc(8页珍藏版)》请在冰点文库上搜索。
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,nAsString B)Dimx%,yAsInteger,nAsString
C)Dimx%,y$,nAsString D)DimxAsInteger,y,nAsString
14.下面表达式中,A的运算结果与其他三个不同。
A)Exp(-3.5) B)Int(-3.5)+0.5 C)-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)Visual B)Basic C)6 D)11
17.表达式5Mod3+3\5*2的值是B。
A)0 B)2 C)4 D)6
18.选拔性别S是女,身高T超过1.6米且体重W小于62.5公斤的人,表示该条件的表达式为C。
A)S="
女"
AndT>
=1.6AndW<
=62.5 B)S="
OrT>
1.7OrW<
62.5
C)S="
1.6AndW<
62.5 D)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)200 B)120 C)75 D)60
21.已设置数组元素下标从1开始,下列程序段运行时会提示出错,出错的原因是C。
a=Array(1,2,3,4)
Fori=4To1Step-1
Printa(i)
Nexti
A)第三行,数组元素a(i)下标越界 B)第一行,数组没定义,不能直接赋值
C)第五行,数组元素a(i)下标越界 D)第二行,循环语句格式不对
22.下列语句不合法的是D。
A)x=1:
y=2 B)Printx;
y;
C)Printx,y, D)x=1;
y=2
23.当0<
x<
10时,将x赋值给y,应使用语句C。
A)If0<
10Theny=x B)If0<
xOrx<
10Theny=x
C)If0<
xAndx<
10theny=x D)If0<
xXorx<
24.以下叙述中正确的是A。
A)窗体的Name属性指定窗体的名称,用来标识一个窗体
B)窗体的Name属性值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性值
D)对象的Name属性值可以为空
25.当启动程序时,系统自动执行启动窗体的A事件过程。
A)Load B)Unload C)Click D)DblClick
26.将数据项"
China"
添加到列表框List1中成为第3项,应使用B语句。
A)List1.AddItem"
,3 B)List1.AddItem"
,2
C)List1.AddItem3,"
D)List1.AddItem2,"
27.若要使标签框的大小自动与所显示的文本相适应,则可通过设置其A属性值为True来实现。
A)AutoSize B)Alignment C)Appearance D)Visible
28.复选框或单选按钮的当前状态通过A属性来设置或访问。
A)Value B)Checked C)Selected D)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)Change B)GotFocus C)LostFocus D)SetFocus
32.如果每秒触发10次计时器的Timer事件,那么计时器的Interval属性应设为C。
A)1 B)10 C)100 D)1000
33.下列对象中不能获得焦点的是B。
A)命令按钮控件 B)标签控件 C)文本框控件 D)单选按钮控件
34.设x=4,y=8,z=7,表达式x<
yAnd(Noty>
z)Orz<
x的值是D。
A)1 B)-1 C)True D)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>
=8 B)x<
=8 C)x>
=7 D)x<
=7
37.执行语句Open"
D:
\RandFile.dat"
ForOutputAs#1后,对文件“D:
\RandFile.dat”能够进行的操作是B。
A)只能读不能写 B)只能写不能读
C)既可以写,也可以读 D)既不能读,也不能写
38.要在运行时暂时关闭计时器,可通过赋值语句使计时器的C属性值为False。
A)Index B)Tag C)Enable D)Interval
39.VisualBasic中数据库的访问技术不包括D。
A)ADO B)DAO C)RDO D)DBMS
40.下列关于菜单的论述中,错误的是D。
A)菜单项是控件,也具有属性
B)菜单项只有Click事件
C)不能在顶层菜单加快捷键
D)在程序运行过程中,不能通过赋值语句设置菜单项的属性
二、填空题(每空2分,共20分)
1.数学表达式的VisualBasic表达式是:
(x+y)^3*(t+u)^2/t/(x-y)。
2.关系式-7.5≤x≤7.5所对应的逻辑表达式是:
x<
=7.5andx>
=-7.5。
3.以下程序用于判断输入的年份是否闰年,如果年份能被4整除但不能被100整除,或者年份能被400整除,则该年是闰年,否则不是闰年,请填空完善程序。
PrivateSubCommand1_Click()
y=Val(InputBox("
请输入一个年份"
))
Ifymod4=0andymod100<
>
0OryMod400=0Then
PrintStr(y)&
"
年是闰年!
"
Else
年不是闰年!
EndIf
EndSub
4.利用随机函数产生20个[10,90]之间的随机整数,每行输出4个整数。
填空完成以下程序。
PrivateSubForm_Click()
DimsumAsInteger,xAsInteger
Randomize
Fori=1To20
x=Int(81*rnd)+10 '
用随机函数产生[10~90]之间的整数
Printx;
Ifimod4=0ThenPrint '
满足换行条件时换行
Nexti
EndSub
5.下列程序的功能是在数组中找出数值最大的元素,请填空完善程序。
Dimarr1asVariant,MaxAsInteger
arr1=Array(12,34,10,78,4,89,45)
Max=arr1(0)
Fori=1To6
Ifarr1(i)>
MaxThen
Max=arr1(i)
Endif
Print"
最大值是:
;
Max
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=-1*C '
正负号切换
I=I+1 '
循环变量增加
LoopWhileI<
=N '
循环结束条件
三、阅读理解题(每小题4分,共20分)
1.执行下列程序后,输出的结果是:
1010
DimxAsInteger
x=10
SelectCasex
CaseIs>
=10
Printx&
x
Case7,8,9
Printx+x
Case0To6
Printx
EndSelect
EndSub
2.执行下列程序后,输出的结果是:
cals
DimiAsInteger
DimtAsString
st="
Fori=1To12 '
字符串逐字符处理
IfiMod3=0Then
st=Mid("
VisualBasic"
i,1)+st
Printst
3.执行下列程序后,输出的结果是:
55
DimsAsInteger,nAsInteger
s=0
n=1
Do
s=s+n*n
Ifs>
50Then
ExitDo '
强制跳出循环
n=n+1 '
循环变量自增
LoopUntiln>
6
Prints
EndSub
4.执行下列程序后,输出的结果是:
102
OptionBase1
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
EndSub
5.执行下列程序后,E盘下tdata.txt文件中的内容是:
30
Fori=1To5
s=s+fun(i)
Open"
e:
\tdata.txt"
ForOutputAs#1 '
打开顺序文件
Print#1,s
Close#1
PrivateFunctionfun(ByValiAsInteger)AsInteger
Statica
a=a+1
fun=a*i
EndFunction
四、编程题(共20分)
1.编写一个Function函数fun,求解如下分段函数的值(x为实型变量的函数形参)(6分)
Y=
-xx<
x20≤x≤10
100x>
10
答:
PrivateFunctionFUN(ByValxAsSingle)AsSingle
DimyAsSingle
Ifx<
0Then
y=-x
ElseIfx<
=10Then
y=x*x
y=100
FUN=y
EndFunction
2.编写程序,利用随机函数产生10个[10,100]之间的整数,并存入数组中,求出该数组中最大数与最小数之差并在窗体上输出结果。
(7分)
Dima(9)AsInteger
DimiAsInteger,maxAsInteger,minAsInteger
Fori=0To9
a(i)=Int(Rnd*91)+10
max=-1:
min=999
Fori=0To9
Ifmax<
a(i)Thenmax=a(i)
Ifmin>
a(i)Thenmin=a(i)
最大及最小数之差为"
max-min
参考程序2:
(排序计算)
Fori=0To8
Forj=i+1To9
Ifa(i)<
a(j)Then
tem=a(i):
a(i)=a(j):
a(j)=tem
EndIf
Nextj
a(0)-a(9)
3.假定在E盘下有一文件data.dat,其内容为三个点的坐标,内容样式如下
4,8
2,6
3,8
每一行的前1个数据表示点的横坐标x,后一个数据表示点的纵坐标y。
编写程序读取文件中的数据,并判断该三点能否构成三角形。
提示:
利用任意两边之和大于第三边来判定三角形。
边长L=,其中(x1,y1)及(x2,y2)为两点坐标。
参考程序1:
Dims(2,1)AsInteger
Diml1AsSingle,l2AsSingle,l3AsSingle
\a.txt"
ForInputAs#1
Fori=0To2
Input#1,s(i,0),s(i,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("
文件中三点能构成三角形"
)
文件中三点不能构成三角形"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 考试 中心 安徽省 计算机 二级 笔试 权威 模拟 试题 答案