10年VB期末底稿副本.docx
- 文档编号:12864857
- 上传时间:2023-06-08
- 格式:DOCX
- 页数:18
- 大小:20.90KB
10年VB期末底稿副本.docx
《10年VB期末底稿副本.docx》由会员分享,可在线阅读,更多相关《10年VB期末底稿副本.docx(18页珍藏版)》请在冰点文库上搜索。
10年VB期末底稿副本
10年VB期末底稿
满分:
60分
姓名:
________
1、单项选择题(本题共计40分)
1、对正实数X的第四位小数四舍五入的VB表达式是________。
()
A、0.001*Int(x+0.0005)
B、0.001*(1000*x+0.5)
C、0.001*Int(1000*x+5)
D、0.001*Int(1000*(x+0.0005))
2、设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能正确执行的是________。
()
A、Text1=a/b*a
B、Text1=a*a/b
C、Text1=“200”*a/b
D、Text1=a&b&a
3、函数Cint(–3.5),Int(–3.5),Fix(–3.5)的值分别是________。
()
A、-3,–4,–3
B、-4,–4,–3
C、-3,–4,–4
D、-4,–3,–3
4、在VB中,下列关于控件的属性或方法中,搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print()
A、0
B、1
C、2
D、3
5、在过程中可以用________语句定义变量。
()
A、Dim、Private
B、Dim、Static
C、Dim、Public
D、Dim、Static、Private
6、VB表达式Sqr(a+b)^3*2中优先进行运算的是________。
()
A、Sqr函数
B、+
C、^
D、*
7、如下数组声明语句,则数组a包含元素的个数有____________。
Dima(3,-2to2,5)()
A、120
B、75
C、60
D、13
8、如下二维数组声明语句,____________正确。
()
A、Dima[3,4]AsInteger
B、Dima(3,4)AsInteger
C、Dima(n,n)AsInteger
D、Dima(34)AsInteger
9、下列有关数组的说法中,不正确的是________。
()
A、在窗体模块中不可以定义全局数据组
B、可以使用Erase语句释放所有数组所占据的存储储空间
C、语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维的整型数组
D、形参数组的类型可以是定长符串类型
10、在窗体模块的通用声明处用下面的语句声明变量、数组,正确语句有________个。
①PublicA(5)AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb()AsInteger()
A、2
B、3
C、4
D、1
11、
PublicSubFl(n%)
…
n=3*n+4
…
EndSub
PrivateSubCmdl_Click()
Dimn%,m%
n=3:
m =4
…
EndSub()
A、
B、
C、
D、
12、
()
A、
B、
C、
D、
13、
①CallSub1(i,j)②CallSub1(3.1415,i)
③CallSub1(3.14,234)④CallSub1(“245”,“231.5”)()
A、
B、
C、
D、
14、
()
A、
B、
C、
D、
15、使用PublicConst语句声明一个全局的符号常量时,该语句应放在____________。
()
A、过程中
B、窗体模块的通用声明段
C、标准模块的通用声明段
D、窗体模块或标准模块的通用声明段
16、在过程调用中,参数的传递可以分为________________和________________两种方式。
()
A、按值传递按地址传递
B、按地址传递按参数传递
C、按参数传递按值传递
D、按位置传递按参数传递
17、在参数传递过程中,使用关键字________________来修饰参数,可以使之按值传递。
()
A、ByVal
B、ByRef
C、Value
D、Reference
18、VB也提供了结构化程序设计的三种基本结构,三种基本结构是________。
()
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入、输出结构、转向结构
D、选择结构、循环结构、顺序结构
19、用Msgbox"你好",vbokonly,"Hello"显示的消息对话框窗口的标题是________。
()
A、你好
B、vbokonly
C、Ok
D、Hello
20、下列循环能正常结束循环的是____________。
()
A、i=5
Do
i=i+1
LoopUntili<0
B、i=1
Do
i=i+2
LoopUntili=10
C、i=10
Do
i=i+1
LoopUntili>0
D、i=6
Do
i=i-2
LoopUntili=1
21、语句Ifx=1Theny=1,下列说法正确的是____________。
()
A、x=1和y=1均为赋值语句
B、x=1和y=l均为关系表达式
C、x=1为关系表达式,y=1为赋值语句
D、x=1为赋值语句,y=l为关系表达式
22、表达式(7\3+1)*(18\5-1)的值是___________.()
A、8.67
B、7.8
C、6
D、6.67
23、在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符________________,表示下一行是当前行的继续。
()
A、一个空格加一个下划字符(_)
B、一个下划字符(_)
C、直接回车
D、一个空格加一个连字符(—)
24、在一个语句行内写多条语句时,语句之间应该用___________分隔。
()
A、逗号
B、分号
C、顿号
D、冒号
25、下列叙述中不正确的是___________.()
A、变量名的第一个字符必须是字母
B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符
D、变量名不能使用关键字
26、设有如下语句:
strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后,strl的值是________。
()
A、“输入”
B、“”
C、“练习”
D、“示例”
27、如果一个变量未指明数据类型,那么,VB默认这个变量为______变量。
()
A、变体型
B、整型
C、公共
D、字符串型
28、执行语句
PrintFormat(1234.567,“##,##0.00”)
后,输出结果是____________。
()
A、1234.57
B、1,234.57
C、1,234.567
D、1,234.56
29、设M=3,N=5,P=4.5,Q=2.5,表达式(M*N+2)/(P-Q)的计算结果为____________。
()
A、8
B、9
C、8.5
D、8.0
30、下面程序的执行是____________。
PrivateSubCommand1_click()
x="321"
y="567"
z=Val(x+y)
Printz
EndSub()
A、321
B、567
C、888
D、321567
31、函数Int(Rnd*11)+10的值的范围是____________。
()
A、[10,20]
B、[0,20]
C、[10,10]
D、[10,11]
32、为了给x,y,z三个变量赋初值1,下面正确的赋值语句是____________。
()
A、x=1:
y=1:
z=l
B、x=1,y=1,z=1
C、x=y=z=1
D、xyz=1
33、下面正确的赋值语句是____________。
()
A、x+y=30
B、y=π*r*r
C、y=x+30
D、3y=x
34、与数学表达式(ab/3cd)对应,VB的不正确表达式是____________。
()
A、a*b/(3*c*d)
B、a/3*b/c/d
C、a*b/3/c/d
D、a*b/3*c*d
35、\、/、Mod、*四个算术运算符中,优先级别最低的是____________。
()
A、\
B、/
C、Mod
D、*
36、数学关系3<=x<10表示成正确的VB表达式为____________。
()
A、3<=x<0
B、3<=xANDx<10
C、x>=3ORx<10
D、3<=xAND<10
37、在以下有关对象属性的叙述中,不正确的是____________。
()
A、一个对象的属性可分为外观、行为等若干类。
B、不同属性可能具有不同的数据类型。
C、一个对象的所有属性都可在属性窗口的列表中进行设置。
D、属性窗口中的属性列表既可按字母序也可按类别排列。
38、一只白色的足球踢进球门,则白色、足球、踢、进球门是________。
()
A、属性、对象、方法、事件
B、属性、对象、事件、方法
C、对象、属性、方法、事件
D、对象、属性、事件、方法
39、当一个CheckBox控件的Value属性为2时,表示该控件____________。
()
A、以被选中
B、未选中
C、当前不可用
D、未知
40、引用列表框(Listl)最后一个数据项应使用____________。
()
A、Listl.List(Listl.ListCount)
B、Listl.List(Listl.ListCount-1)
C、Listl.Lis((ListCount)
D、Listl.List(ListCount-1)
2、填空题(本题共计20分)
1、下列程序的功能是:
当发生窗体的单击事件后,将在窗体上显示"1!
+2!
+3!
+...+10!
"的和。
完善下列程序。
PrivateSubForm_Click()
DimsAsLong,IAsInteger
s=0
Fori=1To10
s=s+______
Nexti
Prints
EndSub
PrivateFunctionfact(ByValnAsInteger)AsLong
DimiAsInteger,fAsLong
f=1
Fori=2Ton
f=f*i
Nexti
_________
EndFunction
2、用二分法求函数f(x)=x^3-6x-1=0在x=2~5范围内的x=2附近的一个实根,其计算误差为|xl-x2|<10^(-6)。
完善下列程序。
PrivateSubCommand1_Click()
DimV0AsSingke,vAsSingle,sAsString
DimxAsSingle,tAsSingle,x1AsSingle,x2AsSingle
x1=0:
x2=5
DoWhile______
x=(x1+x2)/2
IfSgn(f1(x))=1Then
x2=x
Else
x1=x
EndIf
Loop
Print"x=";x
EndSub
PrivateFunctionf1(xAsSingle)AsSingle
f1=x*x*x-6*x-1
EndFunction
3、执行下面程序后,窗体上输出的第一行是_______,第二行是_____。
OptionExplicit
PrivateSubForm_Click()
DimaAsInteger
a=2
CallSub1(a)
EndSub
PrivateSubSub1(xAsInteger)
x=x*2+1
Ifx<10Then
CallSub1(x)
EndIf
x=x*2+1
Printx;
EndSub
4、以下程序段产生100个1-4之间的随机整数,并进行统计。
数组元素s(i)的值表示等于i的随机数的个数,要求输出如下格式:
s
(1)=……
s
(2)=……
s(3)=……
s(4)=……
将程序补充完整。
PrivateSubForm_Click()
Dims(4)AsInteger
Randomize
fori=1to_____
(1)______
x=Int(Rnd*__
(2)___+1)
s(x)=s(x)+1
Nexti
fori=1to____(3)____
Print"s(";I;")=";s(i)
Nexti
EndSub
5、下列程序执行时,要求输入一个密码,如果密码不正确则显示出非法用户的对话框。
请填空:
ConstPassWord="12345678"
DiminpassAsString
Inpass=_______("请输入你的密码","输入密码")
Ifinpass=PassWordThen
ExitSub
Else
_______"对不起!
你是非法用户。
",vbOKOnly+vbCritical,"拒绝"
UnloadMe
EndIf
6、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串,并把该字符串在窗体上打印出来,请完善下面程序。
OptionExplicit
PrivateSubCommand1_Click()
DimsAsString,kAsInteger
DimrAsString,iAsInteger,tAsString
s=“aa11bb22Cc33”
Fori=1ToLen(s)
t=_____
(1)_____
Ift>=“a”Andt<=“z”Ort>=“A”Andt<=“Z”Then
r=r&t
EndIf
Nexti
Printr
EndSub
7、求满足如下条件的三位数,它除以11所得的商等于各位数字的平方和。
例如:
550/11=50=5*5+5*5+0。
完善下列程序。
程序代码如下:
PrivateSubForm_Click()
DimaAsInteger,bAsInteger,cAsInteger,nAsInteger,jAsInteger
Fora=__
(1)__
Forb=0To9
Forc=0To9
n=__
(2)__
If(nMod11=0)And(n\11=a*a+b*b+c*c)Then
Printn;"/11=";n/11;"=";a*a;b*b;c*c
EndIf
Nextc
Nextb
Nexta
EndSub
8、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉,其麦子颗粒数的计算公式为:
sum=1+2+2^2+2^3+2^4+2^5+...+2^63,相应的计算程序如下,请将程序补充完整。
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
Sum=0
Forn=0To63
x=__________
Sum=sum+x
Nextn
Print"麦子的总颗粒数为:
";Sum
EndSub
9、在下面程序运行时键入2,则该程序的运行结果是___
(1)___
PrivateSubCommand1_Click()
x=InputBox("请输入一个整数")
SelectCasex
CaseIs<-3
Print(x+1)/(x+3)
Case-3To3
Printx*x+1
CaseIs>3
Print(x+1)/(x-3)
EndSelect
EndSub
10、运行下面的程序,就会出现死循环,按________键可以终止程序运行。
PrivateSubForm_Click()
DimiAsInteger
DoWhilei<10
i=i*20
Loop
EndSub
11、程序运行输出的a的值为_____,b的值为__________。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=1
b=0
DoWhilea<=5
b=b+a*a
a=a+1
Loop
Printa,b
EndSub
12、以下程序运行输出的i的值为_____,p的值为__________。
PrivateSubCommand1_Click()
DimpAsInteger,iAsInteger
p=1
Fori=1To5
p=p+(2*i-1)/(2*i+1)
Ifp>=20ThenExitFor
Nexti
Printi,p
EndSub
参考答案
1.d,2.b,3.b,4.c,5.b,6.b,7.a,8.b,9.b,10.b,11.b,12.d,13.b,14.c,15.c,16.a,17.a,18.d,19.d,20.c,21.c,22.c,23.a,24.d,25.c,26.d,27.a,28.b,29.c,30.d,31.a,32.a
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10年VB期末底稿 副本 10 VB 期末 底稿