南京工程学院vb题库8套.docx
《南京工程学院vb题库8套.docx》由会员分享，可在线阅读，更多相关《南京工程学院vb题库8套.docx（12页珍藏版）》请在冰豆网上搜索。
南京工程学院vb题库8套
南京工程学院vb题库。
。
。
。
试卷编号：
8954
所属语言：
VisualBasic
试卷方案：
09-10-2《程序设计基础—VB》模拟
试卷总分：
100分
共有题型：
6种
一、判断共5题（共计10分）
第1题（2.0分）
所有的VB的变量,都有隐含说明字符和强调声明两种方法来定义.
答案：
N
第2题（2.0分）
框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：
Y
第3题（2.0分）
组合框兼有文本框和列表框两者的功能,用户可以通过键入文
本或选择列表中的项目来进行选择.
答案：
Y
第4题（2.0分）
移动框架内的控件时框架内的控件也跟随移动,所以框架内各控
件的Left和Top属性值也将分别随之改变.
答案：
N
第5题（2.0分）
在框架控件上放置的控件可以移动到框架控件的外面.
答案：
N
二、单项选择共20题（共计40分）
第1题（2.0分）
如果没有在列表框中选择项目,且列表框的MultiSelect属性值为
默认值（0~None）,则执行语名List1.RemoveItemList1.ListIndex
的结果是（）.
A:
删除列表框的最后一项
B:
删除列表框的第一项
C:
出错
D:
删除列表框中的最后添加的一项
答案：
C
第2题（2.0分）
如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为（）.
A:
0
B:
-1
C:
True
D:
FALSE
答案：
B
第3题（2.0分）
若要使标签控件显示时不覆盖其背景内容,要进行设置的属性是（）.
A:
BackColor
B:
BorderStyle
C:
ForeColor
D:
BackStyle
答案：
D
第4题（2.0分）
表达式printLen（trim（"abcd"）&"123"）的结果是
A:
9
B:
7
C:
abcd
D:
123
答案：
B
第5题（2.0分）
要使标签能透出窗体的背景,必须设置（）属性.
A:
BackStyle
B:
BorderStyle
C:
Appearance
D:
BackColor
答案：
A
第6题（2.0分）
以下正确的For…Next结构是
A:
Forx=5Step10
…
Nextx
B:
Forx=3To-3Step-3
…
Nextx
C:
Forx=1To10
start:
…
Nextx
Ifi=10ThenGoTostart
D:
Forx=3To10Step3
…
Nextm
答案：
B
第7题（2.0分）
下面关于多重窗体的叙述中,正确的是
A:
作为启动对象的Main子过程只能放在窗体模块内
B:
如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据
不同情况决定是否加载及加载哪一个窗体
C:
没有启动窗体,程序不能执
行
D:
以上都不对
答案：
A
第8题（2.0分）
在VisualBasic中最基本的对象是（）,它是应用程序的基石,是其他控件的容器.
A:
文本框
B:
命令按钮
C:
窗体
D:
标签
答案：
C
第9题（2.0分）
以下叙述错误的是:
A:
下拉式菜单和弹出式菜单都用菜单编辑器建立
B:
如果把一个菜单项的Enabled属性设置为False,则菜单项不可见
C:
除分隔线外,所有菜单项都能接收Click事件
D:
内缩符号由4个点组成,它表明菜单项所在的层次
答案：
B
第10题（2.0分）
以下叙述中错误的是（）.
A:
双击鼠标可以触发DblClick事件
B:
窗体或控件的事件的名称可以由编程人员确定
C:
移动鼠标时,会触发MouseMove事件
D:
控件的名称可以由编程人员设定
答案：
B
第11题（2.0分）
VB的编程机制是
A:
可视化
B:
面向对象
C:
事件驱动
答案：
C
第12题（2.0分）
Cls方法可清除窗体或图片框中的信息是.
A:
Picture属性设置的背景图案
B:
在设计时放置的控件
C:
程序设计时产生的图形和文字
D:
以上方法都对
答案：
C
第13题（2.0分）
Print#1,STR1$中的Print是______.
A:
顺序文件的写语句
B:
在窗体上显示的方法
C:
子程序名
D:
打印命令
答案：
A
第14题（2.0分）
下列不属于代码窗口的是（）.
A:
对象下拉式列表框
B:
过程下拉式列表框
C:
代码框
D:
属性列表框
答案：
D
第15题（2.0分）
表达式INT（8*SQR（36）*10^（-2）*10+0.5）/10的值是（）.
A:
0.48
B:
0.048
C:
.5
D:
.05
答案：
C
第16题（2.0分）
如果要设置窗体的标题栏,应选择以下那种属性（）.
A:
Name
B:
Caption
C:
Tips
D:
Text
答案：
B
第17题（2.0分）
要使一个标签透明且不具有边框,则应（）.
A:
将其BackStyle属性设置为0,BorderStyle属性设置为0
B:
将其BackStyle属性设置为0,BorderStyle属性设置为1
C:
将其BackStyle属性设置为1,BorderStyle属性设置为0
D:
将其BackStyle属性设置为1,BorderStyle属性设置为1
答案：
B
第18题（2.0分）
若有数组说明语句为:
Dima（-3to8）,则数组a包含元素的个数是（）.
A:
5
B:
8
C:
11
D:
12
答案：
D
第19题（2.0分）
可视化编程的最大优点是（）.
A:
具有标准工具箱
B:
一个工程文件由若干个窗体文件组成
C:
不需要编写大量代码来描述图形对象
D:
所见即所得
答案：
C
第20题（2.0分）
将CommandDialog1通用对话框以打开对话框打开,可选以下（）方法.
A:
showopen
B:
showcolor
C:
showsave
D:
showfont
答案：
A
三、程序填空共1题（共计10分）
第1题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
窗体中有若干控件，单击其中的一个按扭cmdput时，
'执行如下的事件过程，该过程的功能是把数据输出到指定的文件中.
'-------------------------------------------------------
'**********SPACE**********
PrivateType【?
】
NumberAsString
NameAsString
EndType
PrivateSubcmdput_click（）
DimTitleAsString
DimStr1AsString
Dimstr2AsString
DimstuAsStudent
DimiAsInteger
OpenApp.Path&"\student.dat"ForRandomAs#1Len=Len（stu）
Title="写记录到随机文件"
Str1$="请输入学生号"
str2$="请输入学生名"
Fori=1To5
'**********SPACE**********
【?
】.Number=InputBox（Str1$,Title$）
stu.Name=InputBox$（str2$,Title$）
Put#1,i,stu
Nexti
'**********SPACE**********
Close【?
】
EndSub
答案：
=======（答案1）=======
Student
=======（答案2）=======
stu
=======（答案3）=======
#1
四、程序改错共1题（共计10分）
第1题（10.0分）
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：
产生30个小于100的成绩随机数，并统计出优、良
'、中等、及格、不及格数的个数，并计算出成绩属
'于优秀段的成绩平均分。
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsInteger
DimpjfAsInteger
Randomize
pjf=0
Fork=1To30
'**********FOUND**********
a=Int（Rnd（））
SelectCasea
Case0To59
bjg=bjg+1'不及格
Case60To69
jg=jg+1'及格
Case70To79
zd=zd+1'中等
Case80To89
lh=lh+1'良好
Case90To100
yx=yx+1'优秀
'**********FOUND**********
pjf=pjf+1
EndSelect
Nextk
'**********FOUND**********
Ifyx>0Thenpjf=pjf/30
Debug.Print"不及格"+Str$（bjg）+"人，及格"+Str$（jg）+"人，中等"+Str$（zd）+"人";
Debug.Print"良好"+Str$（lh）+"优秀"+Str$（yx）+"人"
Debug.Print"优秀分数段成绩平均分"&pjf
EndSub
答案：
=======（答案1）=======
a=Int（Rnd（）*100）
=========或=========
a=Int（Rnd*100）
=======（答案2）=======
pjf=pjf+a
=======（答案3）=======
Ifyx>0Thenpjf=pjf/yx
五、程序设计共1题（共计20分）
第1题（20.0分）
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）已知s=1+1/3!
+1/5!
+1/7!
+1/9!
请将s结果值
'输出到窗体上。
使用dowhile...loop语句完成程序
'-------------------------------------------------
答案：
----------------------
DimiAsInteger
i=1
p=1
DoWhilei<=9
p=p*i
IfiMod2=1Then
s=s+1/p
EndIf
i=i+1
Loop
Prints
sum=s
----------------------
六、VB窗体设计共1题（共计10分）
第1题（10.0分）
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：
如图所示，启动VB后，新建工程，界面上放5个命
令按钮，大小位置体调整好。
程序运行后，当分别
单击“上”、“下”、“左”、“右”四个按钮时，
“移动”按钮随之发生相应移动，请编写程序。
各控件属性设置如下表：
对象名称Name属性Caption属性
窗体默认默认
CmdUp上
CmdDown下
命令按钮CmdLeft左
CmdRight右
CmdMove移动
------------------------------------------------
升级会员 