南京工业大学vb考试含答案Word文档下载推荐.docx
《南京工业大学vb考试含答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《南京工业大学vb考试含答案Word文档下载推荐.docx（15页珍藏版）》请在冰豆网上搜索。
PrivateSubCommand1_Click（）
DimbAsSingle
B=2/3
Printb
EndSub（）
A、0.6666666666667
B、1
C、0
D、0.6666667
8、VisualBasic中的标准模块文件的扩展名是____________。
A、.reg
B、.frm
C、.bas
D、.vbp
9、下面程序的内层循环次数是________。
Fori=1TO3
Forj=1TOi
Fork=jTO3
...
Nextk
Nextj
Nexti（）
A、3
B、14
C、9
D、21
10、以下有关对象属性的说法中错误的是____________。
A、所有的对象都具有Name（名称）属性
B、只能在执行时设置或改变的属性为执行时属性
C、对象的某些属性只能在设计时设定，不能使用代码改变
D、Enabled属性值设为False的控件对象在窗体上将不可见
11、下列4个表达式中，不能对Single类型变量x（正数）的第三位小数正确地进行四舍五入的是（）
A、Format（x,"
#.00"
）
B、Int（100*（x+0.005））/100
C、CInt（100*（x+0.005））/100
D、Fix（100*（x+0.005））/100
12、以下语句的输出结果是____________。
printFormats（3678.234,"
000，000，000"
）（）
A、000,003.678
B、003,678.23
C、003,678,234
D、000,003,678
13、当用户单击命令按钮时，________属性可以使得命令按钮对激发事件无效。
A、Name
B、Enable
C、Default
D、Cancel
14、语句x=x+1的正确含义是__________.（）
A、变量X的值与X+1的值相等
B、将变量X的值存在X+1中去
C、将变量X的值加1后赋给变量X
D、变量X的值为1
15、要想改变窗体边框线型，可使用的属性是____________。
A、FonStyle
B、BorderStyle
C、BackStyle
D、Border
16、在窗体中添加一个命令按钮，并编写如下程序代码：
DimyAsInteger
y=0
DoWhiley<
7
y=y+3
Loop
MsgBoxy
EndSub
程序运行后，消息对话框中显示________。
A、6
B、7
C、8
D、9
17、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_________状态。
A、不选中
B、不显示
C、禁止
D、选中
18、以下__________程序段可以实施X，Y变量值的变换.（）
A、Y=X:
X=Y
B、Z=X:
Y=Z:
C、Z=X:
X=Y:
Y=Z
D、Z=X:
W=Y:
19、在窗体上画一个命令按钮名为Command1，然后编写如下事件过程:
OptionBase0
PrivateSubCommand1_Click（）
DimcityAsVariant
city=Array（"
Beijing"
"
Shanghai"
NewYork"
London"
Printcity（4）
程序运行后，屏幕显示________（）
A、BeijingShanghaiNewYorkLondon
B、London
C、出错
D、空白
20、下述语句段运行时的显示结果是____________。
CLS
x=2.34+8
printLen（x）（）
A、5
B、10
C、11
D、非法使用，无输出
21、当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是____________。
A、文本框中没有内容
B、文本框的MultiLine属性为False
C、文本框的MultiLine属性为True
D、文本框的Locked属性为True
22、表达式（7\3+1）*（18\5-1）的值是___________.（）
A、8.67
B、7.8
C、6
D、6.67
23、下面____________是合法的单精度型变量。
A、num!
B、sum%
C、xinte$
D、mm
24、假设如下的Sub过程：
SubCalCul（aAsInteger,bAsInteger）
a=a/b
b=a*b
在窗体上画一个命令按钮，然后编写如下事件过程
DimxAsSingle,yasSingle
x=8
y=5
CalCulx,y
Printx,y
程序运行后，单击命令按钮，输出结果为（）
A、85
B、1.68.0
C、2.08.0
D、28
25、下列语句中的语句可以用来正确地声明一个动态数组。
A、PrivateA（n）AsInteger
B、DimA（）AsInteger
C、DimA（,）AsInteger
D、DimA（1ton）
26、只有当一个对象的________和________属性为True时，它才能获得焦点。
A、Enabled;
Visible
B、Visible;
Caption
C、Visible;
Name
D、Enabled;
27、用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。
A、命令按钮的所有Caption属性都是Command1
B、在代码中访问命令按钮只需使用名称Command1
C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
28、结构化程序设计方法的核心是规定了三种基本结构：
________结构、分支结构、循环结构。
A、条件
B、顺序
C、当型
D、逻辑
29、在下列说法中，正确的是____________。
A、通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
B、在列表框中不能进行多项选择
C、在列表框中能够将项目按字母顺序从大到小排列
D、框架也有Click和DblClick事件
30、下面____________是不合法的整常数。
A、100
B、&
O100
C、&
H100
D、%100
31、VB也提供了结构化程序设计的三种基本结构，三种基本结构是________。
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入、输出结构、转向结构
D、选择结构、循环结构、顺序结构
32、下列语句执行后的输出结果是____________。
（一个方格表示一个空格）
Wage=26
Print"
工资"
;
PrintWage（）
A、工资□26
B、工资□□26
C、“工资”□26
D、“工资”□□26
33、任何控件都具有__________属性。
A、Text
B、Caption
C、Name
D、ForeColor
34、表达式（-1）*Sgn（-100+Int（Rnd*100））的值是____________。
A、随机数
B、0
C、1
D、-1
35、执行以下语句后，a的值为________。
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop（）
A、99
B、100
C、101
D、溢出
36、<
spanlang="
EN-US"
>
VisualBasic<
/span>
<
span>
是一种面向<
u>
&
#160;
<
/u>
的程序设计语言。
A、<
过程<
B、<
用户<
C、<
方法<
D、<
对象<
37、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。
C、过程结构、输入\输出结构、转向结构
38、所谓____________就是使某个对象进入活动状态（又称激活）的一种操作或动作。
A、事件
39、要从自定义对话框Form2中退出，可以在该对话框的&
ldquo;
退出&
rdquo;
按钮的Click事件过程中使用的语句是________。
A、UnloadForm2
B、HideForm2
C、Unload.Form2
D、Form2.Unload
40、下列语句正确的是____________。
A、IfK<
3*NAndK>
NThenN=K^3
B、IfK<
NThenN=K3
C、IfK<
3*N：
K>
D、IfK<
NThenN=K**3
2、填空题（本题共计20分）
1、执行下面的程序，单击窗体后在窗体上显示的第一行结果是_______，第三行结果是_______。
s1="
B"
Fori=1To3
s2=LCase（s1）
s1=s1&
s2
s=s&
s1
Prints
s1=Chr（Asc（s1）+i）
Nexti
2、a=100
Do
s=s+a
a=a+1
Loopwhilea>
120
Printa
3、要把在Label控件中显示的文字颜色设置为红色，应设置Label控件的__
（1）__属性。
4、已知下列程序运行结果是ABCD，请将程序补充完整。
a="
"
Forn=65To68
a=a+______
Nextn
5、某人编写如下函数来判断a是否为素数，若是，则函数返回True；
否则返回False。
Functionprime（aAsInteger）AsBoolean
DimkAsInteger,isprimeAsBoolean
Ifa<
2Then
isprime=False
Else
isprime=True
k=2
DoWhilek<
a/2Andisprime
IfaModk=0Then
k=k+1
EndIf
prime=isprime
EndFunction
在测试时发现有1个非素数也被判断为素数，这个被错判的数是________
6、找出1～10000之间的同构数。
所谓同构数，是指此数的平方数的最后几位与该数相等。
例如，25的平方为625，25是同构数。
完善下列程序。
程序代码如下：
DimiAsInteger,yAsLong
Forx=1To1000
y=x*x
If___
（1）___Then
Printx
Nextx
7、有下列程序：
x$="
Apply"
y$="
Action"
z$="
Study"
z$=Left$（x$,4）+Mid（y,4,1）+LCase$（z）+"
+z$
Printz$
运行后窗体上显示的是_______。
8、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。
1，1，2，3，5，8，13,......
DimaAsInteger,bAsInteger
DimiAsInteger
a=1:
b=1:
i=3
Printa,b,
DoWhile（i<
=20）
c=a+b
t=b
b=a+b
____
（1）____
Printc,
If____
（2）____Then
Print
_____（3）_____
9、执行下面的程序，在窗体上显示的输出结果的第一行是_____
（1）_____，第二行是_____
（2）_____。
OptionExplicit
PrivateSubForm_Click（）
DimsAsString,iAsInteger,flagAsBoolean
s="
THISISABOOK"
s=LCase（s）
flag=True
Fori=1ToLen（s）
IfMid（s,i,1）="
"
Then
ElseIfflagThen
s=Left（s,i-1）&
UCase（Mid（s,i,1））&
Right（s,Len（s）-i）
flag=False
10、有如下程序：
a=Val（InputBox（"
请输入"
））
b=Val（InputBox（"
x=a+b
Ifa>
bThenx=a-b
Text1.Text=x
运行后，从InputBox对话框中连续输入3和4，文本框中显示的是_________；
若连续输入4和3，文本框中又显示的是_________。
11、下列程序的运行结果为________。
x=1
Fork=1To3
Ifk=1Thena=x*x
Ifk<
=2Thena=x*x+1
Ifk>
=3Thena=x*x+2
Printa;
12、表示"
A+B+C大于等于255，或A与B分别大于90且C大于80"
的VB表达式的____
13、Print"
125+32="
125+32执行后的结果是________。
14、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是__
（1）___。
a=InputBox（"
请输入第一个整数"
b=InputBox（"
请输入第二个整数"
Printa+b
15、输入一个正整数k，求各位数字之和。
请将下列程序补充完整。
程序代码如下：
DimSumAsInteger,kAsLong
k=Val（Text1.Text）
DoWhileK>
Sum=Sum+____
（1）__
k=k\10
Text2.Text=Str（Sum）
参考答案
1.c,2.b,3.c,4.d,5.d,6.b,7.d,8.c,9.b,10.d,11.c,12.d,13.b,14.c,15.b,16.d,17.d,18.c,19.c,20.a,21.b,22.c,23.a,24.b,25.b,26.a,27.b,28.b,29.d,30.d,31.d,32.a,33.c,34.c,35.d,36.d,37.d,38.a,39.a,40.a
1.Bb,BbCcEe,2.101,3.ForeColor,4.Chr$（n）,5.4,6.x=（ymod10）or（x=（ymod100））or（x=（ymod1000））,7.ApplistudyStudy,8.a=t,iMod5=0,i=i+1,9.thisisabook,ThisIsABook,10.7,1,11.223,12.A+B+C>
=255OrA>
90AndB>
90AndC>
80,13.125+32=157,14.123234,15.kmod10
升级会员 