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