南京工业大学vb期末题库文档格式.docx
《南京工业大学vb期末题库文档格式.docx》由会员分享，可在线阅读，更多相关《南京工业大学vb期末题库文档格式.docx（16页珍藏版）》请在冰豆网上搜索。
⑥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"
1
C、Listl.Addltem0,"
D、Listl.Addltem1,"
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"
&
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<
C、Not（（X=0OrY=0）And（X<
0））
D、X*Y=0AndX+Y<
17、i被j整除的逻辑表达式是________________。
A、i/j=0
B、i\j=0
C、i<
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
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”
C、SelectCaseX
5,1,3,TO10
D、SelectCaseX
Case1,3,Is>
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、以下程序段的输出结果是____________。
<
br/>
DimB（2,2）AsInteger<
Dimi,j,tAsInteger<
Fori=1To2<
Forj=0To2<
B（i,j）=j<
Nextj<
Nexti<
t=1<
Fori=0To2<
t=t+B（i,B（j,j））<
Printt（）
B、4
C、1
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
C、不确定
D、程序出错
29、OptionBase1
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）;
"
;
参考答案
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
Print
A、123
231
323
B、123
123
C、123
246
369
D、111
222
333
30、在窗体的通用声明处有语句DimA（）AsSingle，以下在某事件过程中重定义此数组的一组正确语句是：
____________。
A、ReDimA（3,3）
<
BR/>
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!
。
__DimtasDouble___
n=0:
term=1:
t=1
Do
n=n+1
t=t/n
__term=term+t__
LoopWhilet>
1.0E-15
Text1.Text=term
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）
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
fork=1To10
Printa（k）;
5、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值.
_____dimx（）_____asinteger
privatesubcommand1_click（）
redim___x（1to20）____
fori=1to20
x（i）=1
printx（i）
nexti
endsub
6、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框List1中显示。
阶乘由Function计算。
在
（1）、
（2）处填上正确内容。
Fork=1To1000
a=LTrim（Str（k））
n=0
Fori=1ToLen（a）
p=Val（Mid（a,i,1））
n=n+fact（p）
Ifn=kThen_____List1.AddItemk_______
PrivateFunctionfact（x）
ifx<
=1Then
fact=1
fact=_____x*fact（x-1）_____
EndFunction
7、运行下面程序，单击窗体后在窗体上显示的第二行结果是__x2=0y2=1___；
第四行结果是___x4=1y4=3___。
DimyAsInteger
DimxAsInteger
x=1:
y=1
Print"
x1="
x,"
y1="
y
Test
x4="
y4="
PrivateSubTest（）
x2="
y2="
x=2:
y=3
x3="
y3="
8、滚动条的____Value___属性表示滚动条内滑块所处位置所代表的值。
升级会员 