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