南京工业大学vb期末题库3.docx
- 文档编号:29955235
- 上传时间:2023-08-03
- 格式:DOCX
- 页数:16
- 大小:19.59KB
南京工业大学vb期末题库3.docx
《南京工业大学vb期末题库3.docx》由会员分享,可在线阅读,更多相关《南京工业大学vb期末题库3.docx(16页珍藏版)》请在冰豆网上搜索。
南京工业大学vb期末题库3
09vb模拟测试卷
满分:
70分
姓名:
________
1、单项选择题(本题共计40分)
1、VisualBasic是用于开发________环境下的应用程序的工具。
()
A、DOS
B、Windows
C、DOS和Windows
D、UNIX
2、对象在响应某个事件时,计算机要执行一段程序,以完成相应的操作,这样的程序片段叫做____过程。
()
A、方法
B、事件
C、调动
D、编译
3、VisualBasic中的窗体文件的扩展名是____________。
()
A、.reg
B、.frm
C、.bas
D、.vbp
4、一只白色的足球踢进球门,则白色、足球、踢、进球门是________。
()
A、属性、对象、方法、事件
B、属性、对象、事件、方法
C、对象、属性、方法、事件
D、对象、属性、事件、方法
5、下面________语句,可以将列表框List1中当前选定的列表项的值替换成“ABC”。
()
A、List1.AddItem“ABC”,List1.ListIndex
B、List1.Text=“ABC”
C、List1.List(List1.ListIndex)=“ABC”
D、前三项均可
6、在VB中,下列关于控件的属性或方法中,搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print()
A、0
B、1
C、2
D、3
7、当对象失去焦点时,将会发生____________事件。
()
A、GetFocus
B、LostFocus
C、Focus
D、SetFocus
8、对于一个含有计时器控件的窗体,每经过一段由________属性指定的时间间隔,就会产生一个Timer事件。
()
A、Name
B、Enabled
C、Caption
D、Interval
9、在设计列表框时,若实现输入多行文字的目的,应使用____________键实现文本的换行。
()
A、Enter
B、Alt+Enter
C、Ctrl+Shift+Enter
D、Ctrl+Enter
10、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。
()
A、Listl.Addltem"China",0
B、Listl.Addltem"China",1
C、Listl.Addltem0,"China"
D、Listl.Addltem1,"China"
11、函数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
12、假定变量Logic类型是Boolean,下面赋值语句________是正确的。
()
A、Logic=‘True’
B、Logic=.True.
C、Logic=#True#
D、Logic=3<4
13、下列语句中不能正常执行的是________。
()
A、print+32758+10
B、print5+9=15
C、print"65"+12
D、print"65"&12
14、在窗体Form1上画两个文本框(Name属性分别为Fext1和Text2)和一个命令按钮(Name属性为Command1),程序如下。
执行后结果为___________。
PrivateSubCommand1_Click()
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_load()
Text1.Text="123"
Text2.Text="321"
EndSub()
A、444
B、321123
C、123321
D、132231
15、语句Print4+5\6*7/8Mod9的值是____________。
()
A、4
B、5
C、6
D、7
16、不能正确表示条件“两个整型变量X和Y之一为0,但不能同时为0”的布尔表达式是________。
()
A、X*Y=0And(X<>0OrY<>0)
B、(X=0OrY=0)And(X<>0OrY<>0)
C、Not((X=0OrY=0)And(X<>0OrY<>0))
D、X*Y=0AndX+Y<>0
17、i被j整除的逻辑表达式是________________。
()
A、i/j=0
B、i\j=0
C、i<>0
D、imodj=0
18、如果文本框的Enable属性被设置为False,则运行时_________.()
A、文本框中的文本将变成灰色,并且此时用户不能将光标置于文本框上
B、文本框中的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容
C、文本框中的文本将变成灰色,用户仍能改变文本框中的内容
D、文本框中文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容
19、下列表达式中,值为True的是________。
()
A、UCase("ABCD")>="abcd"
B、14/2\3>10MOD4
C、Mid(“ABCD”,2,2)>Left(“ABCD”,2)
D、not(Sqr(4)-3>=-2)
20、执行下面的程序,单击窗体后在窗体上显示的结果是________。
PrivateSubForm_Click()
DimStrlAsString,Str2AsString,IAsInteger
Str1=”ab”
ForI=Len(Str1)To1Step-1
Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)
NextI
PrintStr1
EndSub()
A、abce
B、abcd
C、abdb
D、abfd
21、设有如下语句:
strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后,strl的值是________。
()
A、“输入”
B、“”
C、“练习”
D、“示例”
22、假设X的值是5,则执行以下语句时,可得到的输出结果是ABCDEF的SelectCase语句是________。
()
A、SelectCaseX
Case10TO1
Print“ABCDEF”
EndSelect
B、SelectCaseX
CaseIs>15,Is<5
Print“ABCDEF”
EndSelect
C、SelectCaseX
CaseIs>5,1,3,TO10
Print“ABCDEF”
EndSelect
D、SelectCaseX
Case1,3,Is>5
Print“ABCDEF”
EndSelect
23、下面程序的内层循环次数是________。
Fori=1TO3
Forj=1TOi
Fork=jTO3
...
Nextk
Nextj
Nexti()
A、3
B、14
C、9
D、21
24、下面程序段运行后,显示的结果是____________。
Dimx
IfxThenPrintxElsePrintx+1()
A、1
B、0
C、-1
D、显示出错信息
25、在过程中有语句ForI=N1ToN2StepN3,在该循环体内有下列四条语句,其中________会影响循环执行的次数。
①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3()
A、①②
B、①②③
C、③
D、①②③④
26、以下语句中,不能正确执行的是____________。
()
A、IfOptionl.ValueThen
B、IfOptionl.Value=TrueThen
C、Check1.Value=0
D、Check1.Value=True
27、以下程序段的输出结果是____________。
DimB(2,2)AsInteger
Dimi,j,tAsInteger
Fori=1To2
Forj=0To2
B(i,j)=j
Nextj
Nexti
t=1
Fori=0To2
Forj=0To2
t=t+B(i,B(j,j))
Nextj
Nexti
Printt()
A、3
B、4
C、1
D、7
28、以下程序输出的结果是____________。
Dima
a=Array(1,2,3,4,5,6,7)
Fori=Lbound(a)ToUbound(a)
a(i)=a(i)*a(i)
Nexti
Printa(i)()
A、49
B、0
C、不确定
D、程序出错
29、OptionBase1
PrivateSubCommand1_Click()
Dima%(3,3)
Fori=1To3
Forj=1To3
Ifj>1Andi>1Then
a(i,j)=a(a(i-1,j-1),a(i,j-1))+1
Else
a(i,j)=i*j
EndIf
Printa(i,j);"";
Nextj
参考答案
1.b,2.b,3.b,4.b,5.c,6.c,7.b,8.d,9.d,10.a,11.b,12.d,13.a,14.c,15.b,16.c,17.d,18.a,19.c,20.c,21.d,22.a,23.b,24.a,25.c,26.d,27.d,28.d,29.a,30.d,31.b,32.b,33.a,34.b,35.c,36.a,37.b,38.a,39.d,40.d
1.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y),2.DimtasDouble,term=term+t,3.Bb,BbCcEe,4.Bb,BbCcEe5.dimx(),x(1to20),6.List1.AddItemk,x*fact(x-1),7.x2=0y2=1,x4=1y4=3,8.Value
Nexti
EndSub()
A、123
231
323
B、123
123
123
C、123
246
369
D、111
222
333
30、在窗体的通用声明处有语句DimA()AsSingle,以下在某事件过程中重定义此数组的一组正确语句是:
____________。
()
A、ReDimA(3,3)
ReDimA(4,4)AsInteger
B、ReDimA(3,3)
ReDimPreserveA(4,4)
C、ReDimA(3)
ReDimA(3,3)AsInteger
D、ReDimA(3,3)
ReDimPreserveA(3,4)
31、下列有关数组的说法中,不正确的是________。
()
A、在窗体模块中不可以定义全局数据组
B、可以使用Erase语句释放所有数组所占据的存储储空间
C、语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维的整型数组
D、形参数组的类型可以是定长符串类型
32、在窗体模块的通用声明处用下面的语句声明变量、数组,正确语句有________个。
①PublicA(5)AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb()AsInteger()
A、2
B、3
C、4
D、1
33已经删除
34此处34已经删除
35、已经删除
36已经删除
37、一般来说,当变量名称相同而作用域不同时,局限性_____________的变量总会用"阴影"遮住局限性不太大的变量。
()
A、大
B、小
C、更小
D、比较小
38、名为sort的Sub子过程的形式参数为一数组,以下的定义语句中正确的是________。
()
A、PrivateSubsort(A()AsInteger)
B、PrivateSubsort(A(10)AsInteger)
C、PrivateSubsort(ByValA()AsInteger)
D、PrivateSubsort(A(,)AsInteger)
39、下面子过程语句说明合法的是____________。
()
A、Subf1(ByValn%())
B、Subf1(n%)AsInteger
C、Functionf1%(f1%)
D、Functionf1(ByValn%)
40已经删除
2、填空题(本题共计30分)
1、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为___2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_____
2、以下程序可计算自然数e的值,要求精确到10^(-15)请将程序补充完整。
已知e的计算公式为e=1+1/1!
+1/2!
+...+1/n!
。
PrivateSubCommand1_Click()
__DimtasDouble___
n=0:
term=1:
t=1
Do
n=n+1
t=t/n
__term=term+t__
LoopWhilet>1.0E-15
Text1.Text=term
EndSub
3、执行下面的程序,单击窗体后在窗体上显示的第一行结果是___Bb_____;第三行结果是____BbCcEe_____。
PrivateSubForm_Click()
DimMystrAsString,Mystr1AsString,Mystr2AsString
Mystr1="B"
fori=1To3
Mystr2=Lcase(Mystr1)
Mystr1=Mystr1+Mystr2
Mystr=Mystr+Mystr1
PrintMystr
Mystr1=Chr(Asc(Mystr1)+I)
Nexti
EndSub
4、下面的程序用"冒泡"法将数组a中的10个整数按升序排列,请将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dima,i,j,kAsInteger
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=__1to9_______
Forj=____i+1to10_____
Ifa(i)___>=______a(j)Then
a1=a(j):
a(j)=a(i):
a(i)=a1
EndIf
Nextj
Nexti
fork=1To10
Printa(k);
Nextk
EndSub
5、以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值.
_____dimx()_____asinteger
privatesubcommand1_click()
redim___x(1to20)____
fori=1to20
x(i)=1
printx(i)
nexti
endsub
6、下程序的功能是找出此数各位数字的阶乘相加之和等于该数,并在列表框List1中显示。
阶乘由Function计算。
在
(1)、
(2)处填上正确内容。
PrivateSubCommand1_Click()
Fork=1To1000
a=LTrim(Str(k))
n=0
Fori=1ToLen(a)
p=Val(Mid(a,i,1))
n=n+fact(p)
Nexti
Ifn=kThen_____List1.AddItemk_______
Nextk
EndSub
PrivateFunctionfact(x)
ifx<=1Then
fact=1
Else
fact=_____x*fact(x-1)_____
EndIf
EndFunction
7、运行下面程序,单击窗体后在窗体上显示的第二行结果是__x2=0y2=1___;第四行结果是___x4=1y4=3___。
DimyAsInteger
PrivateSubForm_Click()
DimxAsInteger
x=1:
y=1
Print"x1=";x,"y1=";y
Test
Print"x4=";x,"y4=";y
EndSub
PrivateSubTest()
DimxAsInteger
Print"x2=";x,"y2=";y
x=2:
y=3
Print"x3=";x,"y3=";y
EndSub
8、滚动条的____Value___属性表示滚动条内滑块所处位置所代表的值。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 南京 工业大学 vb 期末 题库