南京工程学院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移动