南京工业大学vb期末题库Word格式文档下载.docx
- 文档编号:16406929
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:15
- 大小:20.67KB
南京工业大学vb期末题库Word格式文档下载.docx
《南京工业大学vb期末题库Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《南京工业大学vb期末题库Word格式文档下载.docx(15页珍藏版)》请在冰豆网上搜索。
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);
"
;
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、<
fontface="
TimesNewRoman"
size="
2"
strong>
在单击命令按钮时的输出结果是________。
br/>
PrivateSubCommand1_Click()<
#160;
Dimx%,y%<
x=1:
y=1<
Forn=1to3<
z=First(x,y)<
Printn,z<
Nextn<
EndSub<
PrivateFunctionFirst%(x%,y%)<
Dimn%<
DoWhilen&
lt;
=4<
x=x+y<
n=n+1<
Loop<
First=x<
EndFunction<
/strong>
/font>
A、<
16211316<
B、<
26131116<
C、<
123456<
D、<
213133<
34、<
在Cmdl_C1ick事件中有效的地址传递的调用语句是<
u>
/u>
。
PublicSubFl(n%)<
…<
n=3*n+4<
PrivateSubCmdl_Click()<
Dimn%,m%<
n=3:
m&
=4<
…&
fontcolor="
#006633"
'
调用F1语句<
F1n+m<
F1m<
F15<
F1m+5<
35、<
fontsize="
要想在过程调用后返回两个结果,下面的过程定义语句合法的是_______。
SubProcl(ByValn,ByValm)<
SubProcl(n,ByValm)<
SubProcl(n,m)<
SubProcl(ByValn,m)<
36、<
宋体"
如果在被调用过程中改变了形参值,只影响副本,而不会影响实参的变量本身,这种参数传递方式称为<
传递。
按值<
按地址<
ByRef<
按形参<
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、<
以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中,错误的是<
在缺少情况下,设计时的一个窗体被指定为启动窗体<
通过人为设置,可指定任一窗体为启动窗体<
通过人为设置,可指定标准模块中的Main()过程为启动过程<
通过人为设置,可指定窗体模块中的Main()过程为启动过程<
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="
Pri
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 南京 工业大学 vb 期末 题库