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