最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2Word下载.docx
- 文档编号:19291862
- 上传时间:2023-01-05
- 格式:DOCX
- 页数:13
- 大小:28.99KB
最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2Word下载.docx
《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2Word下载.docx》由会员分享,可在线阅读,更多相关《最新考试中心安徽省计算机二级VB笔试权威模拟试题及答案2Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
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="
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
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.当0<
x<
10时,将x赋值给y,应使用语句C。
A)If0<
10Theny=xB)If0<
xOrx<
10Theny=x
C)If0<
xAndx<
10theny=xD)If0<
xXorx<
24.以下叙述中正确的是A。
A)窗体的Name属性指定窗体的名称,用来标识一个窗体
B)窗体的Name属性值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性值
D)对象的Name属性值可以为空
25.当启动程序时,系统自动执行启动窗体的A事件过程。
A)LoadB)UnloadC)ClickD)DblClick
26.将数据项"
China"
添加到列表框List1中成为第3项,应使用B语句。
A)List1.AddItem"
,3B)List1.AddItem"
,2
C)List1.AddItem3,"
D)List1.AddItem2,"
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,表达式x<
yAnd(Noty>
z)Orz<
x的值是D。
A)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
年不是闰年!
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.下列程序的功能是在数组中找出数值最大的元素,请填空完善程序。
Dimarr1asVariant,MaxAsInteger
arr1=Array(12,34,10,78,4,89,45)
Max=arr1(0)
Fori=1To(6)
Ifarr1(i)>
MaxThen
Max=(7)
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=(8)'
正负号切换
I=(9)'
循环变量增加
LoopWhile(10)'
循环结束条件
三、阅读理解题(每小题4分,共20分)
1.执行下列程序后,输出的结果是:
(1)
DimxAsInteger
x=10
SelectCasex
CaseIs>
=10
Printx&
x
Case7,8,9
Printx+x
Case0To6
Printx
EndSelect
EndSub
2.执行下列程序后,输出的结果是:
(2)
DimiAsInteger
DimtAsString
st="
Fori=1To12'
字符串逐字符处理
IfiMod3=0Then
st=Mid("
VisualBasic"
i,1)+st
Printst
3.执行下列程序后,输出的结果是:
(3)
DimsAsInteger,nAsInteger
s=0
n=1
Do
s=s+n*n
Ifs>
50Then
ExitDo'
强制跳出循环
n=n+1'
循环变量自增
LoopUntiln>
6
Prints
4.执行下列程序后,输出的结果是:
(4)
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
5.执行下列程序后,E盘下tdata.txt文件中的内容是:
(5)
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分)
2.编写程序,利用随机函数产生10个[10,100]之间的整数,并存入数组中,求出该数组中最大数与最小数之差并在窗体上输出结果。
(7分)
3.假定在E盘下有一文件data.dat,其内容为三个点的坐标,内容样式如下
4,8
2,6
3,8
每一行的前1个数据表示点的横坐标x,后一个数据表示点的纵坐标y。
编写程序读取文件中的数据,并判断该三点能否构成三角形。
提示:
利用任意两边之和大于第三边来判定三角形。
边长L=
,其中(x1,y1)及(x2,y2)为两点坐标。
《VisualBASIC程序设计(语种代号:
211)》(B)卷
参考答案及评分标准
1-5
CABDB
6-10
ADCCB
11-15
CCBAA
16-20
ABCDD
21-25
CDCAA
26-30
BAADD
31-35
ACBDB
36-40
1
(x+y)^3*(t+u)^2/t/(x-y)
6
2
=7.5andx>
=-7.5
7
arr1(i)
3
ymod4=0andymod100<
>
8
-1*C
4
Int(81*rnd)+10
9
I+1
5
imod4=0
10
I<
=N
说明:
不区分大小写,其他答案只要正确参照给分。
序号
参考答案
评分标准
1010
cals
55
102
30
注:
其他情况酌情给分
参考程序
参考程序1:
PrivateFunctionFUN(ByValxAsSingle)AsSingle
DimyAsSingle
Ifx<
0Then
y=-x
ElseIfx<
=10Then
y=x*x
y=100
FUN=y
EndFunction
程序正确得6分,其中:
Function函数格式正确得2分
IF语句正确(使用IF嵌套及Select语句正确)得2分
函数值返回正确得2分
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
Nextj
a(0)-a(9)
程序正确得7分,其中:
数组定义正确得1分
随机数产生正确得2分
最大数及最小数查找判断正确得2分
有输出语句并结果正确得2分
数组定义正确1分
随机数产生正确2分
排序正确2分
结果正确2分
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("
文件中三点能构成三角形"
)
文件中三点不能构成三角形"
正确使用文件打开语句得2分
文件数据正确读取得2分
求边长表达式正确得1分
三角形判定表达式正确得1分
输出语句正确使用得1分
其他解法可参照给分
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 考试 中心 安徽省 计算机 二级 VB 笔试 权威 模拟 试题 答案