南京工程学院vb题库10套Word格式文档下载.docx
《南京工程学院vb题库10套Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《南京工程学院vb题库10套Word格式文档下载.docx（13页珍藏版）》请在冰豆网上搜索。
123.4"
）））的值为（）.
A:
11
B:
5
C:
6
D:
8
C
在中断状态下可以运行代码,也可以在运行状态中作为输出结果的
窗口称为（）.
本地窗口
立即窗口
观察窗口
栈窗口
B
表达式Len（"
123程序设计ABC"
）的值是
10
14
20
17
A
有如下程序代码：
PrivateSubForm_MouseDown（ButtonAsIntegr,ShiftAsInteger,XAsSingle,YAsSingle）
FillColor=QBColor（Int（Rnd*15））
FillStyle=Int（Rnd*8）
Circle（x,y）,250
EndSub
该程序的功能是：
鼠标拖曳时在窗体中构造一个圆
双击鼠标时在窗体中构造一
个圆
单击鼠标时在窗体中构造一
加载时在窗体中构造一个圆
执行以下程序段后，变量c的值为（）
a="
VisualBasicPrograming"
:
b="
Quick"
c=b&
UCase（Mid（a,7,6））&
Right（a,11）
VisualBASICPrograming
QuickBasicPrograming
QUICKBasicPrograming
QuickBASICPrograming
D
第6题（2.0分）
\、/、Mod、*等4个算术运算符中,优先级最低的是（）.
\
/
Mod
*
第7题（2.0分）
参与运算的两个表达式均为True,运算结果也为True,则该逻辑运算符为:
AND
IMP
NOT
XOR
第8题（2.0分）
在文本框中欲使掩码符（如*）起作用,必须设置MultiLine属性值为（）.
False
True
-1
1
第9题（2.0分）
若要使命令按钮不可操作,要对（）属性进行设置.
Enabled
Visible
BackColor
Caption
第10题（2.0分）
当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件,这三个事件发生的顺序是（）.
KeyPress、KeyDown、KeyUp
KeyDown、KeyUp、KeyPress
KeyDown、KeyPress、KeyUp
没有规律
第11题（2.0分）
将调试通过的工程经"
文件"
菜单的"
生成.exe文件"
编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是（）.
运行的机器上无VB系统所需的动态连接库
缺少.frm窗体文件
该可执行文件有病毒
以上原因都不对
第12题（2.0分）
为了使列表框中的项目按字母顺序排列,应设置哪个属性?
List
Sorted
Style
Text
第13题（2.0分）
单击滚动条两端的任一个滚动箭头,将触发该滚动条的（）事件.
Scroll
KeyDown
Change
Dragover
第14题（2.0分）
下列哪个变量的取法是不正确的（）.
sTme
T_Temp
T12%
T_12
第15题（2.0分）
函数InStr（"
VB程序设计教程"
"
程序"
）的值为（）.
2
3
4
第16题（2.0分）
数学关系3≤x<
10表示成正确的VB表达式为
3<
=x<
=xANDx<
x>
=3ORx<
=xAND<
第17题（2.0分）
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=Sum+a（i）
Nexti
x=Sum/5
Ifa（i）>
xThenPrinta（i）;
EndSub
程序运行后,单击命令按钮,在窗体上显示的内容是
12
123
345
45
第18题（2.0分）
与传统的程序设计语言相比,VisualBasic最突出的特点是（）.
结构化程序设计
程序开发环境
事件驱动编程机制
程序调试技术
第19题（2.0分）
在窗体上画一个名称为Command1的按钮,并有下面程序,当按下Command1按
钮后,程序输出的结果是
Dima%,b%
a=50:
b=100
Print"
调用前"
"
A="
;
a,"
B="
b
Swapa,b
调用后"
PrivateSubSwap（ByValx%,y%）
Dimt%
t=x:
x=y:
y=t
调用前A=50B=100
调用后A=50B=100
调用后A=100B=50
调用后A=50B=50
调用后A=100B=100
第20题（2.0分）
若要禁止窗体被用户移动,通过设置可达此要求的窗体的属性是（）.
MaxButton
Moveable
Move
ControlBox
三、程序填空共1题（共计10分）
第1题（10.0分）
OptionExplicit
'
-------------------------------------------------------
【程序填空】
功能：
本程序实现功能：
将顺序文本文件“MYFILE.TXT”的
内容一个字符一个字符地读入文本框txtTest中
PrivateSubForm_Click（）
DimInputDataAsString*1
txtTest.Text="
"
'
**********SPACE**********
OpenApp.Path&
"
\MYFILE.TXT"
For【?
】As#1
DoWhile【?
】EOF
（1）
Input#1,InputData
txtTest.Text=txtTest.Text+【?
】
Loop
Close#1
=======（答案1）=======
Input
=======（答案2）=======
Not
=======（答案3）=======
InputData
四、程序改错共1题（共计10分）
------------------------------------------------
【程序改错】
题目：
随机产生n个两位正整数（n由输入对话框输入，且n>
0），
求出其中的偶数之和，并在标签框Label1上显示。
DimnAsInteger
DimiAsInteger,sumAsLong
DimrnddatAsInteger
n=Val（InputBox（"
Pleaseinputainteger"
InputNvalue"
））
**********FOUND**********
sum=n
Ifn>
0Then
Fori=1Ton
rnddat=（Int（90*Rnd））
Me.Printrnddat;
Ifrnddat/2=0Then
sum=sum+rnddat
EndIf
Nexti
Label1.Caption=sum
sum=0
rnddat=（10+Int（90*Rnd））
=========或=========
rnddat=（10+Int（90*Rnd））
IfrnddatMod2=0Then
Ifrnddat/2=int（rnddat/2）Then
Ifrnddat/2=cint（rnddat/2）Then
五、程序设计共1题（共计20分）
第1题（20.0分）
-------------------------------------------------
【程序设计】
（事件）单击窗体。
（响应）求sum=1+4+4+16+64+1024...前8项的和,
请将sum结果值输出到窗体上。
使用
dowhile...loop语句完成程序
----------------------
DimiAsInteger
Dims1AsLong
Dims2AsLong
i=1
s1=1:
s2=4
sum=sum+s1+s2
DoWhilei<
=3
s1=s1*s2
s2=s1*s2
sum=sum+s1+s2
i=i+1
Printsum
六、VB窗体设计共1题（共计10分）
【窗体设计】
界面上部放置一标签，标签内容为“一身正气铸警魂”，
按图菜单编辑器内容，设计一个可以改变窗体中标签字号
及颜色的菜单程序，程序运行界面如图2所示。
菜单项属性如下表。
菜单项名称快捷键
字号（&
S）fontsize
....36号Size1Ctrl+A
....48号Size2Ctrl+B
....-G
....退出exitCtrl+X
颜色（&
C）color
....红色redCtrl+C
....蓝色blueCtrl+D
各控件属性设置如下表：
对象名称Name属性Caption属性
窗体默认默认
标签label1一身正气铸警魂
升级会员 